|
khalidmo81 -> error ADODB.Recordset (0x800A0CC1) (11/25/2004 23:53:49)
|
Iam getting this error on line 123 need some help, tried everything i can think of but am getting nowhere. This is line 123 rsorderline_t("songid") = sCartItemNums(i). any help is appreciated.
Thank You
Khalid
<!--#INCLUDE FILE="adovbs.inc"-->
<%
dim sErrorString
sErrorString = ""
dim cItemPrice(99), sItemName(99)
dim cOrderTotal
cItemPrice(0) = 0
sItemName(0) = ""
cOrderTotal = 0
if session("salecomplete") = true then
session("salecomplete") = false
response.redirect "default.asp"
end if
sCartItemNums = session("cartitemnumarray")
nCartItemQtys = session("cartitemqtyarray")
nNumCartItems = ubound(sCartItemNums)
for i = 1 to nNumCartItems
nThisQty = int(request.form("txtItemQty" & i))
nCartItemQtys(i) = nThisQty
next
session("cartitemnumarray") = sCartItemNums
session("cartitemqtyarray") = nCartItemQtys
Sub CheckErrors(sField, sItemName)
if trim(request.form(sField)) = "" then
sErrorString = sErrorString & "The " & sItemName & _
" field cannot be blank.<br>"
end if
End Sub
CheckErrors "txtCustomerName","Customer Name"
CheckErrors "txtAddress","Customer Address"
CheckErrors "txtCity","City"
CheckErrors "txtState","State"
CheckErrors "txtZIP","ZIP"
CheckErrors "txtPhone","Telephone"
CheckErrors "optPaymentType","Payment Type"
CheckErrors "txtAcctNo","Account Number"
CheckErrors "txtExpDate","Expiration Date"
if sErrorString = "" then
set dbMain = server.createobject("ADODB.Connection")
dbMain.open session("dblogin")
Set rssong_t = Server.CreateObject("ADODB.Recordset")
for i = 1 to nNumCartItems
sSQL = "SELECT * FROM song_t WHERE songID = '" & _
sCartItemNums(i) & "'"
rssong_t.open sSQL, dbMain, adopenstatic, _
adlockpessimistic, adcmdtext
if rssong_t("unitprice") > 0 then
cItemPrice(i) = rssong_t("unitprice")
else
cItemPrice(i) = rssong_t("unitprice")
end if
sItemName(i) = rssong_t("songname")
cOrderTotal = cOrderTotal + (nCartItemQtys(i) * cItemPrice(i))
nNumItems = nNumItems + nCartItemQtys(i)
rssong_t.close
next
cShipping = session("shipbasecharge") + _
(nNumItems * session("shipitemcharge"))
cOrderTotal = cOrderTotal + cShipping
dbMain.BeginTrans
Set rsorder_t = Server.CreateObject("ADODB.Recordset")
sSQL = "SELECT * FROM order_t"
rsorder_t.open sSQL, dbMain, adOpenStatic, adlockpessimistic, adcmdtext
rsorder_t.addnew
rsorder_t("orderdate") = date()
rsorder_t("ordertime") = time()
rsorder_t("orderamount") = cOrderTotal
Set rscustomer_t = Server.CreateObject("ADODB.Recordset")
sSQL = "SELECT * FROM customer_t"
rscustomer_t.open sSQL, dbMain, adOpenStatic, adlockpessimistic, adcmdtext
rscustomer_t.addnew
rscustomer_t("customername") = request.form("txtCustomerName")
rscustomer_t("customeraddress") = request.form("txtAddress")
rscustomer_t("customercity") = request.form("txtCity")
rscustomer_t("customerstate") = request.form("txtState")
rscustomer_t("customerzip") = request.form("txtZIP")
rscustomer_t("customerphone") = request.form("txtPhone")
rscustomer_t("email") = request.form("txtEmail")
Set rscc_t = Server.CreateObject("ADODB.Recordset")
sSQL = "SELECT * FROM cc_t"
rscc_t.open sSQL, dbMain, adOpenStatic, adlockpessimistic, adcmdtext
rscc_t.addnew
rscc_t("PaymentMethod") = request.form("optPaymentType")
rscc_t("CCNo") = request.form("txtAcctNo")
rscc_t("expdate") = request.form("txtExpDate")
rscustomer_t.update
rscustomer_t.movelast
rscustomer_t.close
rsorder_t.update
rsorder_t.movelast
nOrderID = rsorder_t("orderid")
rsorder_t.close
rscc_t.update
rscc_t.movelast
rscc_t.close
Set rsorderline_t = Server.CreateObject("ADODB.Recordset")
sSQL = "SELECT * FROM order_t WHERE orderid = " & nOrderID
rsorderline_t.open sSQL, dbMain, adOpenStatic, _
adlockpessimistic, adcmdtext
for i = 1 to nNumCartItems
rsorderline_t.addnew
rsorderline_t("orderid") = nOrderID
rsorderline_t("songid") = sCartItemNums(i)
rsorderline_t("quantity") = nCartItemQtys(i)
rsorderline_t("price") = cItemPrice(i)
rsorderline_t.update
next
dbMain.CommitTrans
session("salecomplete") = true
end if
sPageHead = "IDS 410 Online Store Order Confirmation"
sPageCaption = "Order Confirmation"
%>
<html>
<!--#INCLUDE FILE="header.inc"-->
<font face="Verdana,Arial" color="#008000" size="-1">
<%
if sErrorString = "" then
response.write "Order # " & nOrderID & " has been entered. Use " & _
" your browser's PRINT function to print a copy of this order." & _
"<br><br>"
sSQL = "SELECT * FROM order_t WHERE orderid = " & nOrderID
rsorder_t.open sSQL, dbMain, adOpenStatic, adlockpessimistic, adcmdtext
%>
<table align="center" border="0">
<tr>
<td valign="top">
<table border="0">
<tr>
<td align="center" bgcolor="#808080">
<font color="#ffffff"><b>Order # <% = nOrderID %>
</b></font></td>
</tr>
<tr>
<td align="center" bgcolor="#3300ff">
<font color="#ffffff"><b>Order Date <% = date() %>
</b></font></td>
</tr>
</table>
</td>
<td>
<table align="center" border="0">
<tr bgcolor="#c0c0c0">
<th colspan="2" align="center">
<font face="Verdana,Arial" size="-1">
Customer Information</td>
</tr>
<tr>
<td align="right"><font face="Verdana,Arial" size="-1">
Name:</td>
<td><font face="Verdana,Arial" size="-1" color="#0000ff">
<% = rscustomer_t("customername") %></td>
</tr>
<tr>
<td align="right"><font face="Verdana,Arial" size="-1">
Address:</td>
<td><font face="Verdana,Arial" size="-1" color="#0000ff">
<% = rscustomer_t("customeraddress") %></td>
</tr>
<tr>
<td align="right"><font face="Verdana,Arial" size="-1">
City/State/ZIP:</td>
<td><font face="Verdana,Arial" size="-1" color="#0000ff">
<% = rscustomer_t("customercity") & ", " %>
<% = rscustomer_t("customerstate") %>
<% = " " & rscustomer_t("customerzip") %></td>
</tr>
<tr>
<td align="right"><font face="Verdana,Arial" size="-1">
Daytime Phone:</td>
<td><font face="Verdana,Arial" size="-1" color="#0000ff">
<% = rscustomer_t("customerphone") %></td>
</tr>
<tr>
<td align="right"><font face="Verdana,Arial" size="-1">
Payment Method:</td>
<%
select case rscc_t("paymentmethod")
case "visa"
sTemp = "Visa"
case "mc"
sTemp = "MasterCard"
case "amex"
sTemp = "American Express"
end select
%>
<td><font face="Verdana,Arial" size="-1" color="#0000ff">
<% = sTemp %></td>
</td>
</tr>
</table>
</td>
</table>
<br><br>
<table align="center" border="0">
<tr bgcolor="#ff0066">
<th><font face="Verdana,Arial" color="#ffff33" size="-1">
Quantity</font></td>
<th><font face="Verdana,Arial" color="#ffff33" size="-1">
Item No.</font></td>
<th><font face="Verdana,Arial" color="#ffff33" size="-1">
Item Name</font></td>
<th><font face="Verdana,Arial" color="#ffff33" size="-1">
Price</font></td>
<th><font face="Verdana,Arial" color="#ffff33" size="-1">
Extension</font></td>
</tr>
<%
cSubTotal = 0
nNumItems = 0
for i = 1 to nNumCartItems
%>
<tr bgcolor="#99ccff">
<td align="center">
<font face="Verdana,Arial" color="#000000" size="-1">
<% = nCartItemQtys(i) %></font></td>
<td align="center">
<font face="Verdana,Arial" color="#000000" size="-1">
<% = sCartItemNums(i) %></font></td>
<td><font face="Verdana,Arial" color="#000000" size="-1">
<% = sItemName(i) %></font></td>
<td align="center">
<font face="Verdana,Arial" color="#000000" size="-1">
<% = formatcurrency(cItemPrice(i)) %></font></td>
<%
nNumItems = nNumItems + nCartItemQtys(i)
cExtension = nCartItemQtys(i) * cItemPrice(i)
cSubTotal = cSubTotal + cExtension
%>
<td align="right">
<font face="Verdana,Arial" color="#000000" size="-1">
<% = formatcurrency(cExtension) %></font></td>
</tr>
<% next %>
<tr bgcolor="#c5c5c5">
<td align="center" colspan="4">
<font face="Verdana,Arial" size="-1">Subtotal</font></td>
<td align="right"><font face="Verdana,Arial" size="-1">
<% = formatcurrency(cSubTotal) %></font></td>
</tr>
<%
cShipping = session("shipbasecharge") + _
(nNumItems * session("shipitemcharge"))
%>
<tr bgcolor="#c5c5c5">
<td align="center" colspan="4">
<font face="Verdana,Arial" size="-1">Shipping & Handling</font></td>
<td align="right"><font face="Verdana,Arial" size="-1">
<% = formatcurrency(cShipping) %></font></td>
</tr>
<% cTotal = cSubTotal + cShipping %>
<tr bgcolor="#66ff00">
<td align="center" colspan = "4">
<font face="Verdana,Arial" size="-1">Grand Total</font></td>
<td align="right"><font face="Verdana,Arial" size="-1">
<% = formatcurrency(cTotal) %></font></td>
</tr>
</table>
<div align="center"><font face="Verdana,Arial" size="+1">
<br>Thank you for your order!</font></div>
<% else %>
The following error(s) occurred while processing the information
you provided:<br><br>
<font face="Courier New" color="#000000">
<% = sErrorString %>
</font>
<br><br>Please press your browser's BACK button and correct this
information, then resubmit your order.
<% end if %>
<br>
</font>
<%
if session("salecomplete") = true then
redim sItemNums(0)
redim nItemQtys(0)
sItemNums(0) = ""
nItemQtys(0) = 0
session("CartItemNumArray") = sItemNums
session("CartItemQtyArray") = nItemQtys
session("salecomplete") = false
end if
%><!--#INCLUDE FILE="footer.inc"--></body></html>
|
|
|
|
