大家帮我看看这个文件哪条语句错了!

[情绝书生]

<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="util.asp" -->
<!--#include file="conn.asp" -->
<%
ProductList = Session("ProductList")
response.write"ProductList"
Products = Split(Request("cpbm"), ", ")
response.write"Products"
For I=0 To UBound(Products)
PutToShopBag Products(I), ProductList
Next
Session("ProductList") = ProductList
response.write"Products(I)"
response.write"ProductList"

Head="以下是您所选购的物品清单"
ProductList = Session("ProductList")
If Len(ProductList) =0 Then
Response.Redirect "nothing.asp"
response.end
end if

If Len(ProductList) = 0 Then
Response.Redirect "nothing.asp"
response.end
end if
set rs=server.createobject("adodb.recordset")
sql = "Select * From flowmanage Where id In (" & ProductList & ")"
rs.open sql,conn,1,1
%>
<%Do While Not rs.EOF%>
........................
<%
rs.MoveNext
Loop
%>

//util文件
<%
Sub PutToShopBag( cpbm, ProductList )
If Len(ProductList) = 0 Then
ProductList = "'" & cpbm & "'"
ElseIf InStr( ProductList, cpbm ) <= 0 Then
ProductList = ProductList & ", '" & cpbm & "'"
End If
End Sub
%>

[ldw701]

能说说出现什么错误提示吗？

[x_gn]

把错误信息贴出来

[情绝书生]

打开这个页面很慢很慢,提示超时,id写出是正确,好像就是不能循环写出数据!

<%
rs.MoveNext
response.end 此处加上这名结束语句,倒是很快,但是第一条记录不能写出
Loop
%>

[ldw701]

你把浏览器中的显示友好HTTP错误信息勾掉，然后再看看出现什么错误提示
“工具”－－internet选项－－高级－－－显示友好HTTP勾去，就应该能看到错误提示了