Question

请高手帮忙，ASP 循环问题，当有多条时，就出错？

<%
dim str,aq,ii
str=1,5,8,11
aq=split(str,",")
for ii=LBound(aq) to ubound(aq)
response.write PayType(aq(ii))
next
%>

Function PayType(cid)
Dim rs,sql
'response.write cid
Set rs = server.CreateObject("adodb.recordset")
sql = "Select * From Uonin_Paying where id="&cid&""
rs.Open sql, oconn, 1, 1
if rs.bof and rs.eof then
PayType = ""
else
'SortText = rs("SortName")
PayType = "<a href=""Houses_List.Asp?Communityid="&rs("ID")&"&Page=1""><img src=../images/f"&rs("id")&".png alt="&rs("Paying")&"></a>"
end if
rs.Close
Set rs = Nothing
End Function

Answer 1

语法错误，变量str赋值要加上引号
str=1,5,8,11

改成
str = "1,5,8,11"

追问

感谢，这个是我复制时，忘记写了，真正出错不是这块，是Function PayType(cid)调用参数时，结尾时老提示错误，不继续执行下一条。
提示语：
Microsoft JET Database Engine ���� '80040e14'