error ADODB.Recordset (0x800A0CC1)

	Home Register Search Help Login

Sponsors

Shopping Cart Software
Ecommerce software integrated into Frontpage, Dreamweaver and Golive templates. No monthly fees and available in ASP and PHP versions.

Website Templates
We also have a wide selection of Dreamweaver, Expression Web and Frontpage templates as well as webmaster tools and CSS layouts.

Frontpage website templates
Creative Website Templates for FrontPage, Dreamweaver, Flash, SwishMax

Search Forums

Recent Posts

Todays Posts
Most Active posts
Posts since last visit
My Recent Posts
Mark posts read

error ADODB.Recordset (0x800A0CC1)

View related threads: (in this forum | in all forums)

Logged in as: Guest

Users viewing this topic: none

Printable Version

All Forums >> Web Development >> ASP and Database >> error ADODB.Recordset (0x800A0CC1)

Page: [1]

khalidmo81

Posts: 2
Joined: 11/25/2004
Status: offline

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>

< Message edited by Spooky -- 11/26/2004 1:32:45 >

khalidmo81

Posts: 2
Joined: 11/25/2004
Status: offline

RE: now is ADODB.Field error '80020009' - 11/26/2004 0:15:35

Got it but an getting this error now

ADODB.Field error '80020009'

Operation is not allowed when the object is closed.

/group35/submitorder.asp, line 0

the new code is as follows

<!--#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 rsOrderLines = Server.CreateObject("ADODB.Recordset")
    sSQL = "SELECT * FROM orderline_t WHERE orderid = " & nOrderID
    rsOrderLines.open sSQL, dbMain, adOpenStatic, _
      adlockpessimistic, adcmdtext

   for i = 1 to nNumCartItems
      rsOrderLines.addnew
      rsOrderLines("orderid") = nOrderID
      rsOrderLines("songid") = sCartItemNums(i)
      rsOrderLines("quantity") = nCartItemQtys(i)
      rsOrderLines("price") = cItemPrice(i)
      rsOrderLines.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>

< Message edited by Spooky -- 11/26/2004 1:33:56 >

(in reply to khalidmo81)