下面的代码错在哪儿了？

yl1209 2003-12-02 01:52:33

sSQL=" lsp_GetBookingInquireByDoc '" & request("Field") & "','" & request("Field1")&"','"_
& trim(request("Value")) &"','"& request("Value1") &"','"& request("AndOr") &"','"_
& BeginTime & "','" & EndTime & "','" & request("OrderBy") & "','"_
&Session("UserID")&"','Inquire'"

set rs=cnn.execute(sSQL)
dim TotalReceive
dim TotalDue

Set RsFields=cnn.execute("Select * from ShowingFields where UserID='"&Session("UserID")&"' and Pages='BookingInquire'")
if not RsFields.eof then
%>
<table border="1" cellpadding="0" cellspacing="0" bordercolor="#000000">
<caption><%=request("Title")%></caption>
<tr class=Headline>
<th> </td>
<th nowrap><div onclick="Order('BookingID')">Bk ID</div></th>
<th nowrap><div onclick="Order('BookingID_Group')">Group Bk ID</div></th>
<% Dim FieldsTotal
FieldsTotal=0
Do while not RsFields.eof
FieldsTotal=FieldsTotal+1
response.write "<th><div onclick=Order('"&RsFields("showFields")&"')>"&RsFields("showFields")&"</div></th>"
RsFields.movenext
Loop%>
</tr>
<%if rs.EOF then %>
<tr><td colspan="14">No Result Available.</td></tr>
<%' response.end
end if
dim i
i = 0
Do while not rs.EOF
i = i + 1
response.write i%>
<tr bgcolor=<%Bgcolor(i)%> bordercolor=#C0C0C0>
<td nowrap> <%=i%></td>

</td>
<% Dim j
j=0
for j=0 to FieldsTotal-1
%>
<td nowrap title="<%=rs(""&rsfields("showfields")&"")%>"> <%=left(rs(""&rsfields("showfields")&""),14)%></td>"
<%next
%>
</tr>
<%
Loop
set rs=nothing%>

</table>

...全文