语法有误，帮帮我

下面的代码哪里写错了，求看看
 comCode = Request("comcode")
  strXmlNames = ""
  Set objCONN = Server.CreateObject("ADODB.Connection")
Set objRS = Server.CreateObject("ADODB.RecordSet")
objCONN.open application("ConnStr")
  if comCode.split(";").length > 0 then
  dim str
  str = comCode.split(";")
  dim sum  
  sum = 0
  for each sum in str.length-1
  strSQL = "SELECT distinct STF_Name FROM Staff_Company,Staff WHERE Staff_Company.STF_ID=Staff.STF_ID AND Company_Code='"& str[sum] &"'"
  objRS.open strSQL,objCONN
 while not objRS.EOF
 strXmlNames = strXmlNames+trim(objRS("STF_Name")) + ";"  
objRS.movenext
 wend
 objRS.Close  
  sum++
  next
else
strSQL = "SELECT distinct STF_Name FROM Staff_Company,Staff WHERE Staff_Company.STF_ID=Staff.STF_ID AND Company_Code='"& comCode &"'"
objRS.open strSQL,objCONN
while not objRS.EOF
  strXmlNames = strXmlNames+trim(objRS("STF_Name")) + ";"  
objRS.movenext
wend
objRS.Close
Response.Write(strXmlNames)
  endif
   
objCONN.Close

这不是VB.NET，是ASP代码，而且，你应该给出哪一行错，错误提示是什么。查询错了还是代码错了。

怎么知道哪行有错误，求解

运行，或者用调试器启动，会报告。

dim str() as string
  str = comCode.split(";")
split之后生成的是数组

dim str() as string
  str() = comCode.split(";")
split之后生成的是数组