• ‏‏אי-התאמה של סוג: 'sOrders'

שלום
אני בונה אתר בשפת ASP
וכאשר נתוני המשתמש מועוברים לאקסס מופיע לי הודעה

סוג שגיאה:
‏‏שגיאת זמן ריצה שלMicrosoft VBScript(0x800A000D)
‏‏אי-התאמה של סוג: 'sOrders'
/submitorder.asp,line104

שורת השגיאה:

sOrders("Uname") =request.form("Uname")

הנה חלק מהקוד
<%
  CheckErrors "txtAddress"," Address"
  CheckErrors "txtCity","City"
  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 ("data")
    Set rsProducts = Server.CreateObject("ADODB.Recordset")
    for i = 1 to nNumCartItems
      sSQL = "SELECT * FROM products WHERE itemproductnumber = '" & _
         sCartItemNums(i) & "'"
      rsProducts.open sSQL, dbMain, adopenstatic, _
        adlockpessimistic, adcmdtext
      if rsProducts("itemsaleprice") > 0 then
        cItemPrice(i) = rsProducts("itemsaleprice")
      else
        cItemPrice(i) = rsProducts("itemregularprice")
      end if
      sItemName(i) = rsProducts("itemname")
      cOrderTotal = cOrderTotal + (nCartItemQtys(i) * cItemPrice(i))
      nNumItems = nNumItems + nCartItemQtys(i)
      rsProducts.close
    next
    cShipping = session("shipbasecharge") + _
      (nNumItems * session("shipitemcharge"))
    cOrderTotal = cOrderTotal + cShipping
    dbMain.BeginTrans
    Set rsOrders = Server.CreateObject("ADODB.Recordset")
    sSQL = "SELECT * FROM orders"
    rsOrders.open sSQL, dbMain, adOpenStatic, adlockpessimistic, adcmdtext
  rsOrders.addnew
  rsOrders("Uname") = request.form("Uname")
  rsOrders("customername") = request.form("txtCustomerName")
   rsOrders("customeraddress") = request.form("txtAddress")
   rsOrders("customercity") = request.form("txtCity")
   rsOrders("customerstate") =request.form("txtState")
   rsOrders("customerzip") =request.form("txtZIP")
   rsOrders("customerphone") =request.form("txtPhone")
   rsOrders("orderamount") =cOrderTotal
   rsOrders("paymentmethod")=request.form("optPaymentType")
   rsOrders("paymentaccount")=request.form("txtAcctNo")
   rsOrders("exp