Hi,
I am recently getting an error on my page when processing an order.
The error reads:
error '80020009'
folder/file.asp, line 100
The code is listed below, with line 100 being 6 rows down
Response.Write "<tr><td colspan=3><hr></td></tr>". Can anyone help why it wouldn't let me process the asp. I have included the information which I believe is the culprit.
Thanks
CODE
'Output The Order
Response.Write "<table border='0' cellspacing='0' cellpadding='0' align='center' width='514px' class='columns'>"
Response.Write "<div align=center>"
Response.Write "<tr class=column><td colspan=3><h4>Your Receipt</h4><br></td></tr>"
Response.Write "<tr class=column><td colspan=3><span class=subhead><cfoutput><em>" & ErrorMsg & "</em></cfoutput></span></td></tr>"
Response.Write "<tr><td colspan=3><hr></td></tr>"
Response.Write "<tr><td colspan=3><strong>Order No: </strong>" & objRS("orderid") & "</td></tr>"
Response.Write "<tr><td colspan=3><strong>Order Paid: </strong>" & objRS("orderpaiddate") & "</td></tr>"
Response.Write "<tr><td colspan=3><strong>Order Confirmation: </strong>" & objRS("ordertx") & "</td></tr>"
Response.Write "<tr><td colspan=3><strong>Price: </strong>" & objRS("orderprice") & "</td></tr>"
Response.Write "<tr><td colspan=3><strong>Freight: </strong>" & objRS("orderfreight") & "</td></tr>"
Response.Write "<tr><td colspan=3><hr></td></tr>"
Response.Write "<tr><td>Item</td><td align=center>Qty</td><td align='right'>Price</td></tr>"
Response.Write "<tr><td colspan=3><hr></td></tr>"
'Response.Write "Order ID=" & objRS("orderid")
'Response.Write ", CustomerID=" & objRS("custid")
'Response.Write ", Placed=" & objRS("orderplaceddate")
'Response.Write ", Paid=" & objRS("orderpaiddate")
'Response.Write ", Price=" & objRS("orderprice")
'Response.Write ", Freight=" & objRS("orderfreight")
'Response.Write ", TXRecord=" & objRS("ordertx")
Do Until objRS.EOF = True
Response.Write "<tr>"
Response.Write "<td>" & objRS("itemname") & " " & objRS("itemcode") & "</td>"
Response.Write "<td height=18 align=center>" & objRS("quantity") & "</td>"
Response.Write "<td align=right>" & objRS("itemprice") & "</td>"
Response.Write "</tr>"
'Move to the next record (important!!)
objRS.MoveNext
Loop
Response.Write "<tr><td colspan=3><hr></td></tr>"
Response.Write "</table>"
'Close the Recordset object
objRS.Close
'Delete the Recordset Object
Set objRS = Nothing
'Close the Connection object
objConn.Close
'Delete the Connection Object
Set objConn = Nothing
Set eWay = Nothing
Else
Response.Write "<p align=center>Error! There is a problem with the information submitted</p>"
Response.Write "<div align=center><input type=button value='Please Try Again' onClick='history.go(-1)'></div>"
End if
Else
Response.Write "<Font color=red><B>ERROR:</B></FONT>" & eWay.ErrorMessage & "<BR>"
End if