Simple syntax error.

[gamcall]

Hi All,
I'm quite new to ASP & have a (probably) simple ASP
syntax error. The code is:

...
<% If blnFromRS AND rsTopArea.RecordCount > 1 then%>
...

to which the VBScript compiler responds:

Error Type:
Microsoft VBScript runtime (0x800A01A8)
Object required: ''
/prawnebn/Order_Track_dev/OrderDetails.asp, line 126


(Line 126 is the line of my code). Can anyone tell me what
I am doing wrong please. Yes rsTopArea is set earlier in the
page.

T.I.A,
GAM

 

[culshaja]

Could you please post the whole script so I could have a look through it?

James James Culshaw
jculshaw@active-data-solutions.co.uk

http://www.active-data-solutions.co.uk

http://www.brainbench.com/transcript.jsp?pid=193305

 

[gamcall]

OK - you asked for it. I was trying to avoid (obviously)
posting the whole shebang, but here it is...

<%@ LANGUAGE=&quot;VBSCRIPT&quot; %>
<!--#include file=&quot;adovbs.inc&quot; -->
<!--#include file=&quot;OrderTrackingSubs.inc&quot; -->
<!--#include file=&quot;QueryBuilding.inc&quot; -->

<%
blnFromRS = FALSE
Set dicDate = createObject(&quot;Scripting.Dictionary&quot
' Show the records from the form elements of the posting page only if no records are found

If Request(&quot;FromPage&quot = &quot;OrderDetails&quot; or Request(&quot;FromPage&quot = &quot;LineItemInfo&quot; or Request(&quot;FromPage&quot = &quot;RepAllOrders&quot; or Request(&quot;FromPage&quot = &quot;RepActiveOrders&quot;then
blnFromRS = TRUE
'---- Check which submit button brought user back to page then compose SQL query
Set EBNConn = Server.CreateObject(&quot;ADODB.Connection&quot
EBNConn.Open &quot;File Name=\\ebnsrv01\Lancelot\Order_Track\ot_test.udl&quot;
' EBNConn.Open &quot;EBNSRV01&quot;, &quot;ot_user&quot;, &quot;otusr&quot;
'----- Requests from other pages first...
'Why this can't be in a seperate if branch is beyond me... (GAM 3/11/00)
' If Request(&quot;FromPage&quot = &quot;LineItemInfo&quot; then
' Set EBN_Reference_No = request.Querystring(&quot;nav_s_order_no&quot
' response.write(EBN_Reference_No)
' subGetQueryString strQuery,&quot;Top_SalesOrderNo&quot;
' Set rsTopArea = EBNConn.Execute(strQuery)
' subGetQueryString strQuery,&quot;Bottom_SalesOrderNo&quot;
' Set rsBottomArea = Server.CreateObject(&quot;ADODB.RecordSet&quot
' rsBottomArea.Open strQuery,EBNConn,adOpenStatic,adLockPessimistic,adCmdText
If Request(&quot;FromPage&quot = &quot;RepAllOrders&quot; or Request(&quot;FromPage&quot = &quot;LineItemInfo&quot; or Request(&quot;FromPage&quot = &quot;RepAllOrders&quot; or Request(&quot;FromPage&quot = &quot;RepActiveOrders&quot;then
Set EBN_Reference_No = request.Querystring(&quot;nav_s_order_no&quot
subGetQueryString strQuery,&quot;Top_SalesOrderNo&quot;
Set rsTopArea = EBNConn.Execute(strQuery)
subGetQueryString strQuery,&quot;Bottom_SalesOrderNo&quot;
Set rsBottomArea = Server.CreateObject(&quot;ADODB.RecordSet&quot
rsBottomArea.Open strQuery,EBNConn,adOpenStatic,adLockPessimistic,adCmdText
ElseIf Request.Form(&quot;SubmitLikeEBN_Reference_No&quot = &quot;Get Like&quot; then
Set EBN_Reference_No = request.form(&quot;EBN_Reference_No&quot
subGetQueryString strQuery,&quot;Top_SalesOrderNo&quot;
Set rsTopArea = EBNConn.Execute(strQuery)
subGetQueryString strQuery,&quot;Bottom_SalesOrderNo&quot;
Set rsBottomArea = Server.CreateObject(&quot;ADODB.RecordSet&quot
rsBottomArea.Open strQuery,EBNConn,adOpenStatic,adLockPessimistic,adCmdText

ElseIf Request.Form(&quot;SubmitGetByOrderRequestHeaderID&quot = &quot;Get Order&quot; then
subGetQueryString strQuery,&quot;Top_OrderRequestHeaderID&quot;
Set rsTopArea = EBNConn.Execute(strQuery)
subGetQueryString strQuery,&quot;Bottom_OrderRequestHeaderID&quot;
Set rsBottomArea = Server.CreateObject(&quot;ADODB.RecordSet&quot
rsBottomArea.Open strQuery,EBNConn,adOpenStatic,adLockPessimistic,adCmdText
ElseIf Request.Form(&quot;SubmitAllOrders&quot = &quot;All Orders&quot; then
Set s_order_no = request.form(&quot;EBN_Reference_No&quot
Response.Redirect(&quot;RepAllOrders.asp?FromPage=OrderDetails&s_order_no=&quot; & s_order_no & &quot;&quot
ElseIf Request.Form(&quot;SubmitActiveOrders&quot = &quot;Active Orders&quot; then
Set s_order_no = request.form(&quot;EBN_Reference_No&quot
Response.Redirect(&quot;RepActiveOrders.asp?FromPage=OrderDetails&s_order_no=&quot; & s_order_no & &quot;&quot

ElseIf Request.Form(&quot;SubmitGetPrevious&quot = &quot;Previous&quot; then
ElseIf Request.Form(&quot;SubmitGetNext&quot = &quot;Next&quot; then
' ElseIf Request.Form(&quot;SubmitJumpTo&quot = &quot;Go&quot; then
' ElseIf Request.Form(&quot;SubmitLikeOrder_Date&quot = &quot;Get Like&quot; then
' blnFromRS = NOT fcnDtVldty(&quot;Order_Date&quot;,cNoTime) = cNotDate
' (not implemented yet)
ElseIf Request.Form(&quot;SubmitLikeBill_to_Name&quot = &quot;Get Like&quot; then
subGetQueryString strQuery,&quot;Top_Bill_to_Name&quot;
Set rsTopArea = EBNConn.Execute(strQuery)
subGetQueryString strQuery,&quot;Bottom_Bill_to_Name&quot;
Set rsBottomArea = EBNConn.Execute(strQuery)
Set rsBottomArea = Server.CreateObject(&quot;ADODB.RecordSet&quot
rsBottomArea.Open strQuery,EBNConn,adOpenStatic,adLockPessimistic,adCmdText
ElseIf Request.Form(&quot;SubmitLikeBill_to_Address&quot = &quot;Get Like&quot; then
ElseIf Request.Form(&quot;SubmitLikeBill_to_Address_2&quot = &quot;Get Like&quot; then
ElseIf Request.Form(&quot;SubmitLikeBill_to_City&quot = &quot;Get Like&quot; then
ElseIf Request.Form(&quot;SubmitLikeBill_to_County&quot = &quot;Get Like&quot; then
ElseIf Request.Form(&quot;SubmitLikeBill_to_Post_Code&quot = &quot;Get Like&quot; then
ElseIf Request.Form(&quot;SubmitLikePhone_No&quot = &quot;Get Like&quot; then
ElseIf Request.Form(&quot;SubmitLikeE_Mail&quot = &quot;Get Like&quot; then
ElseIf Request.Form(&quot;SubmitLikeShip_to_Name&quot = &quot;Get Like&quot; then
ElseIf Request.Form(&quot;SubmitLikeShip_to_Address&quot = &quot;Get Like&quot; then
ElseIf Request.Form(&quot;SubmitLikeShip_to_Address_2&quot = &quot;Get Like&quot; then
ElseIf Request.Form(&quot;SubmitLikeShip_to_City&quot = &quot;Get Like&quot; then
ElseIf Request.Form(&quot;SubmitLikeShip_to_County&quot = &quot;Get Like&quot; then
ElseIf Request.Form(&quot;SubmitLikeShip_to_Post_Code&quot = &quot;Get Like&quot; then
Else
blnFromRS = FALSE
End If
End If
%>

<html>

<head>
<meta http-equiv=&quot;Content-Type&quot;
content=&quot;text/html; charset=iso-8859-1&quot;>
<meta name=&quot;GENERATOR&quot; content=&quot;Microsoft FrontPage Express 2.0&quot;>
<title>Order Details</title>
<SCRIPT LANGUAGE=&quot;JavaScript&quot;>

function Change()
{
var URL = document.form.Next.options[document.form.Next.selectedIndex].value;
window.location.href = URL;
}

</SCRIPT>
</head>

<body bgcolor=&quot;#FFFFFF&quot;>

<form action=&quot;OrderDetails.asp&quot; method=&quot;POST&quot;>
<input type=&quot;hidden&quot; name=&quot;FromPage&quot; value=&quot;OrderDetails&quot;>

<p align=&quot;center&quot;><font size=&quot;5&quot;><u>Order Details </u></font></p>
<table border=&quot;0&quot; width=&quot;100%&quot;>
<tr>
<td><table border=&quot;0&quot;>
<tr>
<td>Web Order No</td>
<% strEBNOrderNo = fcnFillTextFormElement(rsTopArea,&quot;OrderRequestHeaderID&quot;,blnFromRS)%>
<td><input type=&quot;text&quot; size=&quot;20&quot; name=&quot;OrderRequestHeaderID&quot; value=&quot;<%=strEBNOrderNo%>&quot;></td>
<td><input type=&quot;submit&quot; name=&quot;SubmitGetByOrderRequestHeaderID&quot; value=&quot;Get Order&quot;></td>
<td><input type=&quot;submit&quot; name=&quot;SubmitAllOrders&quot; value=&quot;All Orders&quot;></td>
<td><input type=&quot;submit&quot; name=&quot;SubmitActiveOrders&quot; value=&quot;Active Orders&quot;></td>

</tr>
</table>
</td>

<% If blnFromRS AND rsTopArea.RecordCount > 1 then%>
<td align=&quot;right&quot;><div align=&quot;right&quot;><table border=&quot;0&quot;>
<tr>
<td><input type=&quot;hidden&quot; name=&quot;OrderNo&quot; value=&quot;<%=rsBottomArea.RecordCount%>&quot;>
1 of <%rsBottomArea.RecordCount%> Orders</td>
<td><input type=&quot;submit&quot; name=&quot;SubmitGetPrevious&quot;
value=&quot;Previous&quot;></td>
<td><input type=&quot;submit&quot; name=&quot;SubmitGetNext&quot;
value=&quot;Next&quot;></td>
<td> </td>
<td>Jump to <select name=&quot;OrderJumpedTo&quot; size=&quot;1&quot;>
<% Do While NOT rsTopArea.EOF
strWebOrderNo = rsTopArea.Fields(&quot;ebn_order_no&quot%>
<option value=&quot;<%=strWebOrderNo%>&quot;><%
Response.Write(strWebOrderNo & rsTopArea(&quot;Bill_to_Name&quot)
%></option>
<% rsTopArea.MoveNext
Loop%>
</select></td>
<td><input type=&quot;submit&quot; name=&quot;SubmitJumpTo&quot;
value=&quot;Go&quot;></td>
</tr>
</table>
</div></td>
<% End If%>

</tr>
</table>
<hr>
<table border=&quot;0&quot; width=&quot;100%&quot;>
<tr>
<td align=&quot;right&quot;><!--<input type=&quot;submit&quot;
name=&quot;SubmitMatchAllFields&quot;
value=&quot;Find orders matching all fields filled in&quot;>--></td>
</tr>
</table>
<table border=&quot;0&quot; width=&quot;100%&quot;>
<tr>
<td><table border=&quot;0&quot;>
<tr>
<td>Order Date</td>
<td><table>
<tr>
<td><%subPutUpdatableDate rsTopArea,&quot;Order_Date&quot;,-1,blnFromRS,&quot;DAY&quot;%></td>
<td><%subPutUpdatableDate rsTopArea,&quot;Order_Date&quot;,-1,blnFromRS,&quot;MONTH&quot;%></td>
<td><%subPutUpdatableDate rsTopArea,&quot;Order_Date&quot;,-1,blnFromRS,&quot;YEAR&quot;%></td>
</tr>
</table></td>
<td><!--<input type=&quot;submit&quot; name=&quot;SubmitLikeOrder_Date&quot;
value=&quot;Get Like&quot;>--></td>
</tr>
<tr>
<td>Customer Name</td>
<td><input type=&quot;text&quot; size=&quot;20&quot;
name=&quot;Bill_to_Name&quot; value=&quot;<%=fcnFillTextFormElement(rsTopArea,&quot;Bill_to_Name&quot;,blnFromRS)%>&quot;></td>
<td><input type=&quot;submit&quot; name=&quot;SubmitLikeBill_to_Name&quot;
value=&quot;Get Like&quot;></td>
</tr>
<tr><td colspan=&quot;3&quot;><hr></td></tr>
<tr>
<td>Billing Address:</td>
<td><!--<input type=&quot;submit&quot; name=&quot;SumbitExactBillingAddress&quot; value=&quot;Get Exact Address&quot;>--></td>
</tr>
<tr>
<td>Line 1</td>
<td><input type=&quot;text&quot; size=&quot;20&quot;
name=&quot;Bill_to_Address&quot; value=&quot;<%=fcnFillTextFormElement(rsTopArea,&quot;Bill_to_Address&quot;,blnFromRS)%>&quot;></td>
<td><!--<input type=&quot;submit&quot; name=&quot;SubmitLikeBill_to_Address&quot; value=&quot;Get Like&quot;>--></td>
</tr>
<tr>
<td>Line 2</td>
<td><input type=&quot;text&quot; size=&quot;20&quot;
name=&quot;Bill_to _Address2&quot; value=&quot;<%=fcnFillTextFormElement(rsTopArea,&quot;Bill_to_Address_2&quot;,blnFromRS)%>&quot;></td>
<td><!--<input type=&quot;submit&quot; name=&quot;SubmitLikeBill_to_Address_2&quot; value=&quot;Get Like&quot;>--></td>
</tr>
<tr>
<td>City</td>
<td><input type=&quot;text&quot; size=&quot;20&quot;
name=&quot;Bill_to_City&quot; value=&quot;<%=fcnFillTextFormElement(rsTopArea,&quot;Bill_to_City&quot;,blnFromRS)%>&quot;></td>
<td><!--<input type=&quot;submit&quot; name=&quot;SubmitLikeBill_to_City&quot; value=&quot;Get Like&quot;>--></td>
</tr>
<tr>
<td>County</td>
<td><input type=&quot;text&quot; size=&quot;20&quot;
name=&quot;Bill_to_County&quot; value=&quot;<%=fcnFillTextFormElement(rsTopArea,&quot;Bill_to_County&quot;,blnFromRS)%>&quot;></td>
<td><!--<input type=&quot;submit&quot; name=&quot;SubmitLike&quot; value=&quot;Get Like&quot;>--></td>
</tr>
<tr>
<td>Post Code</td>
<td><input type=&quot;text&quot; size=&quot;20&quot;
name=&quot;Bill_to_Post_Code&quot; value=&quot;<%=fcnFillTextFormElement(rsTopArea,&quot;Bill_to_Post_Code&quot;,blnFromRS)%>&quot;></td>
<td><!--<input type=&quot;submit&quot; name=&quot;SubmitLikeBill_to_Post_Code&quot; value=&quot;Get Like&quot;>--></td>
</tr>
<tr>
<td>Country</td>
<td><input type=&quot;text&quot; size=&quot;20&quot;
name=&quot;Bill_to_Country_Code&quot; value=&quot;<%=fcnFillTextFormElement(rsTopArea,&quot;Bill_to_Country_Code&quot;,blnFromRS)%>&quot;></td>
<td><!--<input type=&quot;submit&quot; name=&quot;SubmitLikeBill_to_Country_Code&quot; value=&quot;Get Like&quot;>--></td>
</tr>
<tr><td colspan=&quot;3&quot;><hr></td></tr>
<tr>
<td>Contact Phone No</td>
<td><input type=&quot;text&quot; size=&quot;20&quot;
name=&quot;Phone_No&quot; value=&quot;<%=fcnFillTextFormElement(rsTopArea,&quot;Phone_No&quot;,blnFromRS)%>&quot;></td>
<td><!--<input type=&quot;submit&quot; name=&quot;SubmitLikePhone_No&quot;
value=&quot;Get Like&quot;>--></td>
</tr>
</table>
</td>
<td valign=&quot;top&quot;><div align=&quot;left&quot;><table
border=&quot;0&quot;>
<tr>
<td>Email Address</td>
<td><input type=&quot;text&quot; size=&quot;20&quot;
name=&quot;E_Mail&quot; value=&quot;<%=fcnFillTextFormElement(rsTopArea,&quot;E_Mail&quot;,blnFromRS)%>&quot;></td>
<td><!--<input type=&quot;submit&quot; name=&quot;SubmitLikeE_Mail&quot;
value=&quot;Get Like&quot;>--></td>
</tr>
<tr>
<td>Contact Name</td>
<td><input type=&quot;text&quot; size=&quot;20&quot;
name=&quot;Ship_to_Name&quot; value=&quot;<%=fcnFillTextFormElement(rsTopArea,&quot;Ship_to_Name&quot;,blnFromRS)%>&quot;></td>
<td><!--<input type=&quot;submit&quot; name=&quot;SubmitLikeShip_to_Name&quot;
value=&quot;Get Like&quot;>--></td>
</tr>
<tr><td colspan=&quot;3&quot;><hr></td></tr>
<tr>
<td>Shipping Address:</td>
<td><!--<input type=&quot;submit&quot; name=&quot;SubmitExactShippingAddress&quot; value=&quot;Get Exact Address&quot;>--></td>
</tr>
<tr>
<td>Line 1</td>
<td><input type=&quot;text&quot; size=&quot;20&quot;
name=&quot;Ship_to_Address&quot; value=&quot;<%=fcnFillTextFormElement(rsTopArea,&quot;Ship_to_Address&quot;,blnFromRS)%>&quot;></td>
<td><!--<input type=&quot;submit&quot; name=&quot;SubmitLikeShip_to_Address&quot; value=&quot;Get Like&quot;>--></td>
</tr>
<tr>
<td>Line 2</td>
<td><input type=&quot;text&quot; size=&quot;20&quot;
name=&quot;Ship_to_Address_2&quot; value=&quot;<%=fcnFillTextFormElement(rsTopArea,&quot;Ship_to_Address_2&quot;,blnFromRS)%>&quot;></td>
<td><!--<input type=&quot;submit&quot; name=&quot;SubmitLikeShip_to_Address_2&quot; value=&quot;Get Like&quot;>--></td>
</tr>
<tr>
<td>City</td>
<td><input type=&quot;text&quot; size=&quot;20&quot;
name=&quot;Ship_to_City&quot; value=&quot;<%=fcnFillTextFormElement(rsTopArea,&quot;Ship_to_City&quot;,blnFromRS)%>&quot;></td>
<td><!--<input type=&quot;submit&quot; name=&quot;SubmitLikeShip_to_City&quot; value=&quot;Get Like&quot;>--></td>
</tr>
<tr>
<td>County</td>
<td><input type=&quot;text&quot; size=&quot;20&quot;
name=&quot;Ship_to_County&quot; value=&quot;<%=fcnFillTextFormElement(rsTopArea,&quot;Ship_to_County&quot;,blnFromRS)%>&quot;></td>
<td><!--<input type=&quot;submit&quot; name=&quot;SubmitLike&quot; value=&quot;Get Like&quot;>--></td>
</tr>
<tr>
<td>Post Code</td>
<td><input type=&quot;text&quot; size=&quot;20&quot;
name=&quot;Ship_to_Post_Code&quot; value=&quot;<%=fcnFillTextFormElement(rsTopArea,&quot;Ship_to_Post_Code&quot;,blnFromRS)%>&quot;></td>
<td><!--<input type=&quot;submit&quot; name=&quot;SubmitLikeShip_to_Post_Code&quot; value=&quot;Get Like&quot;>--></td>
</tr>
<tr>
<td>Country</td>
<td><input type=&quot;text&quot; size=&quot;20&quot;
name=&quot;Ship_to_Country_Code&quot; value=&quot;<%=fcnFillTextFormElement(rsTopArea,&quot;Ship_to_Country_Code&quot;,blnFromRS)%>&quot;></td>
<td><!--<input type=&quot;submit&quot; name=&quot;SubmitLikeShip_to_Coutry_Code&quot; value=&quot;Get Like&quot;>--></td>
</tr>
<tr><td colspan=&quot;3&quot;><hr></td></tr>
<tr>
<td>Sales Order No</td><% strEBNReferenceNo = fcnFillTextFormElement(rsTopArea,&quot;EBN Reference No&quot;,blnFromRS)%>
<td><input type=&quot;text&quot; size=&quot;15&quot; name=&quot;EBN_Reference_No&quot; value=&quot;<%=strEBNReferenceNo%>&quot;></td>
<td><input type=&quot;submit&quot; name=&quot;SubmitLikeEBN_Reference_No&quot; value=&quot;Get Like&quot;></td>
</tr>
</table>
</div></td>
</tr>
</table>
<hr>


<%If blnFromRS then
%>
<table border=&quot;0&quot; width=&quot;100%&quot;>
<tr>
<td bgcolor=&quot;#000000&quot;><font color=&quot;#FFFFFF&quot;><strong>Item
No</strong></font></td>
<td bgcolor=&quot;#000000&quot;><font color=&quot;#FFFFFF&quot;><strong>Description</strong></font></td>
<td bgcolor=&quot;#000000&quot;><font color=&quot;#FFFFFF&quot;><strong>P/O
No</strong></font></td>
<td bgcolor=&quot;#000000&quot;><font color=&quot;#FFFFFF&quot;><strong>Latest
Status</strong></font></td>
<td bgcolor=&quot;#000000&quot;><font color=&quot;#FFFFFF&quot;><strong>Item
Info</strong></font></td>
<td bgcolor=&quot;#000000&quot;><font color=&quot;#FFFFFF&quot;><strong>Purch.
Info</strong></font></td>
<td bgcolor=&quot;#000000&quot;><font color=&quot;#FFFFFF&quot;><strong>Ship
Info</strong></font></td>
</tr>

<% Do While NOT rsBottomArea.EOF
strTextColor = &quot;#000000&quot;
item_status = &quot;--------&quot;
If NOT IsNull(rsBottomArea.Fields(&quot;cancelled&quot) then
strTextColor = &quot;#FF0000&quot;
item_status = &quot;cancelled&quot;
End If
%>
<tr>
<td><font color=&quot;<%=strTextColor%>&quot;><%=rsBottomArea.Fields(&quot;nav_item_no&quot%></font></td>
<td><font color=&quot;<%=strTextColor%>&quot;><%=rsBottomArea.Fields(&quot;Product&quot%></font></td>
<td><font color=&quot;<%=strTextColor%>&quot;><%=rsBottomArea.Fields(&quot;nav_p_order_no&quot%></font></td>
<td><font color=&quot;<%=strTextColor%>&quot;><%
Response.Write(fcnLatestStatus( rsBottomArea.Fields(&quot;cancelled&quot,_
rsBottomArea.Fields(&quot;p_order_conf&quot,_
rsBottomArea.Fields(&quot;vendor_est_due&quot,_
rsBottomArea.Fields(&quot;vendor_p_up&quot,_
rsBottomArea.Fields(&quot;depart_p_up_hub&quot,_
rsBottomArea.Fields(&quot;arrive_del_hub&quot,_
rsBottomArea.Fields(&quot;depart_del_hub&quot,_
rsBottomArea.Fields(&quot;delivered&quot))

%></font></td><%
If item_status <> &quot;cancelled&quot; then %>
<td><a href=&quot;lineiteminfo.asp?nav_p_order_no=<%=fcnQryStrParm(rsBottomArea,&quot;nav_p_order_no&quot%>&nav_s_order_no=<%=fcnQryStrParm(rsBottomArea,&quot;nav_s_order_no&quot%>&nav_item_no=<%=fcnQryStrParm(rsBottomArea,&quot;nav_item_no&quot%>&web_order_no=<%=strEBNOrderNo%>&quot;>Item Info</a></td>
<td><a href=&quot;pursalordinfo.asp?nav_p_order_no=<%=fcnQryStrParm(rsBottomArea,&quot;nav_p_order_no&quot%>&nav_s_order_no=<%=fcnQryStrParm(rsBottomArea,&quot;nav_s_order_no&quot%>&nav_item_no=<%=fcnQryStrParm(rsBottomArea,&quot;nav_item_no&quot%>&web_order_no=<%=strEBNOrderNo%>&quot;>Purch Info</a></td>
<td><a href=&quot;shippinginfo.asp?nav_p_order_no=<%=fcnQryStrParm(rsBottomArea,&quot;nav_p_order_no&quot%>&nav_s_order_no=<%=fcnQryStrParm(rsBottomArea,&quot;nav_s_order_no&quot%>&nav_item_no=<%=fcnQryStrParm(rsBottomArea,&quot;nav_item_no&quot%>&web_order_no=<%=strEBNOrderNo%>&quot;>Ship Info</a></td> <%
else %>
<td>** n.a **</a></td>
<td>** n.a **</a></td>
<td>** n.a **</a></td> <%
End If %>

</tr>
<% rsBottomArea.MoveNext
Loop%>

</table>

<%Else%>
No orders listed
<%End If%>


</form>

<p> </p>
</body>
</html>

Thanks for your attention,
GAM

 

[gamcall]

Hi again,
Well, I have found the error. I lied about the fact
that rsTopArea was being set properly. This in conjunction
with the (just discovered) fact that the VBScript does not
use short-circuit evaluation of Boolean expressions meant
that the second half of the expression was having to be
evaluated & hence was bombing out as rsTopArea wasn't defined. Thanks anyway,

GAM

 

[culshaja]

Ok, no problem. Glad you got its sorted.

James James Culshaw
jculshaw@active-data-solutions.co.uk

http://www.active-data-solutions.co.uk

http://www.brainbench.com/transcript.jsp?pid=193305