asp语法问题

帮我看看这几行代码，用asp语法写的，哪里出错了！  
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

objCONN.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
objCONN.Close
Response.Write(strXmlNames)
  endif

lz把帖子发错地了吧···vb.net看不懂啊

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
 

还是不行

str[sum]



asp
的数组是用（）
str(sum）

VBScript code

<%
comCode = Request("comcode")
str = Replace(comCode, " ", "")
str = Replace(str, "'", "''")
str = Replace(str, ";", "','")
str = "'" & str & "'"
strXmlNames = ""
strSQL = "SELECT distinct STF_Name FROM Staff_Company,Staff WHERE Staff_Company.STF_ID=Staff.STF_ID AND Company_Code IN (" & str &")"
Set objCONN = CreateObject("ADODB.Connection")
objCONN.open Application("ConnStr")
Set objRS = CreateObject("ADODB.RecordSet")
objRS.CursorLocation = 3
objRS.open strSQL,objCONN,1,1
strXmlNames = objRS.GetString(2, , "", ";", "")
objRS.Close
Set objRS = Nothing
objCONN.Close
Set objCONN = Nothing
strXmlNames = Replace(strXmlNames, " ", "")
Response.Write strXmlNames
%>

很感谢上面这位同学，但是我传多个公司，比如"company1;company2;"的时候，它没输出，再次请教

原来是我弄错了，我真是垃圾，前台写错了，希望这位同学不要取笑！