Udtræk af data fra tre tabeller i e-mail / ADODB.Recordset error

Jeg har en side, der skriver data til to tabeller i min database og trækker data ud fra i alt fire tabeller i samme database til en e-mail.

Jeg formoder fejlen skyldes at sql'en ikke sørger for at trække de korresponderende data fra de fire tabeller, men kun fra tre tabeller. Fejlen kommer på den linie, der henter data fra tabellen "arrangement". Mellem de tre tabeller "customers", "orders" og "oitems" er der Relationer (ses i database-layout) men ikke mellem tabellen arrangement.

Jeg har dog lidt svært ved at se hvor jeg får kodet den sidste tabel med i udtrækket. Tabellen "arrangement" har et felt, der hedder "custID" ligesom tabellen "customers".

Dette er sidste step i mit projekt, så jeg håber der er nogen der kan hjælpe...

PS: Jeg har tjekket at feltnavnene i databasen er korrekt skrevet i koden.

Fejlmeddelelse:
ADODB.Recordset error '800a0cc1'
Item cannot be found in the collection corresponding to the requested name or ordinal.
process.asp, line 112

--- start min kode ---

<!-- #include file="db.asp" -->
<!-- #include file="functions.asp" -->
<%

Response.Buffer = true
For Each key in Request.Form
    strname = key
    strvalue = Request.Form(key)
    Session(strname) = strvalue
Next

Dim arrCart, scartItem
    arrCart = Session("MyCart")
    scartItem = Session("cartItem")
    if scartItem = 0 then
        Response.Redirect "error.asp?msg=" & Server.URLEncode ("Din session er udløbet, eller du prøvede at sende listen igen.")
    end if

    'On error resume next
    sqlAdd = "INSERT INTO orders(ocustomerid,odate"
    sqlAdd = sqlAdd & ") VALUES("
    sqlAdd = sqlAdd & Session("customerid") & ",#" & Date & "#"
    sqlAdd = sqlAdd & ")"
    'Response.Write sqlAdd
    'Response.End
       
    call openConn()
    dbc.execute sqlAdd, intAffected

    if dbc.Errors.count > 0 then
        call closeConn()
        Response.Redirect "error.asp?msg=" & server.URLEncode("Fejl ved skrivning til database. Kontakt os venligst.")   
    elseif intAffected = 1 then
        Dim oid, sqlo
        sqlo = "SELECT max(orderID) FROM orders"
        Set rso = dbc.Execute(sqlo)   
        oid = Cint(rso(0))
        rso.Close
       
        If oid < 1 Then
            call closeConn()
            Response.Redirect "error.asp?msg=" & Server.URLEncode ("Fejl: Ingen ordrenr.")
        Else
            'Ordre ind i oitems table
            For i = 1 To scartItem
                sqlOItem = "INSERT INTO oitems(orderid,catalogid,numitems) VALUES("
                sqlOItem = sqlOItem & oid
                sqlOItem = sqlOItem & "," & arrCart(cProductid,i)
                sqlOItem = sqlOItem & "," & arrCart(cQuantity,i)
                sqlOItem = sqlOItem & ")"
                dbc.execute sqlOItem
            Next
            If dbc.Errors.Count > 0 then
                call closeConn()
                Response.Redirect "error.asp?msg=" & Server.URLEncode ("Ikke fuldfoert. Fejl: ") & dbc.Error.Description
            else
                'send mail to merchant, use function mailMerchant
                blnMail =  mailMerchant("cra@mail.dk",oid,nosmtp)
                if blnMail = false then
                    call closeConn()
                    Response.Redirect "error.asp?msg=" & Server.URLEncode ("Kan ikke sende mail til merchant.")
                end if
              end if
        End if
else
        call closeConn()
        Response.Redirect "error.asp?msg=" & Server.URLEncode ("Ordre information kan ikke skrives til database. Proev venligst igen senere.")
    end if
    If dbc.Errors.Count > 0 then
                call closeConn()
                Response.Redirect "error.asp?msg=" & Server.URLEncode ("Ikke fuldfoert. Fejl: ") & dbc.Error.Description
            else
            dbc.close
            set dbc = nothing
            Response.Redirect "thanks.asp"
                'send mail to merchant, use function mailMerchant
                blnMail =  mailMerchant("cra@mail.dk",oid,nosmtp)
                if blnMail = false then
                    call closeConn()
                    Response.Redirect "error.asp?msg=" & Server.URLEncode ("Kan ikke sende mail til merchant.")
                end if
End If

function mailMerchant(merchantmail,orderid,smtpServer)
    'Kunde info fra DB
    set cmd = server.CreateObject("ADODB.Command")
    cmd.ActiveConnection = dbc
    cmd.CommandText = "qryOrderInfo"
    cmd.CommandType = adCmdStoredProc
    set param = cmd.CreateParameter("oid",adInteger,adParamInput,4)
    cmd.Parameters.Append param
    cmd("oid") = orderid
   
    'Opbyg mail indhold strBody
    set rs = server.CreateObject("ADODB.recordset")
    set rs = cmd.Execute
      strCustomer = rs("cemail")
      if not rs.eof then
        strBody = "Bestilling" & rs("odate") & vbCrLf & vbCrLf
        strBody = strBody & "Kundeinfo:" & vbCrLf
        strBody = strBody & "Navn: " & rs("cfirstname") & rs("clastname") & vbCrLf
        'strBody = strBody & rs("clastname") & vbCrLf
        strBody = strBody & "E-mail: " & rs("cemail") & vbCrLf
        strBody = strBody & "Adresse: " & rs("caddress") & vbCrLf
        'strBody = strBody & rs("caddress") & " - " & rs("caddress2") & vbCrLf
        strBody = strBody & "By: " & rs("ctown") & vbCrLf
        strBody = strBody & "Postnr.: " & rs("czip") & vbCrLf
        'strBody = strBody & rs("cstate") & vbCrLf
        strBody = strBody & "Land: " & rs("ccountry") & vbCrLf
        strBody = strBody & "Telefonnr.: " & rs("cphone") & vbCrLf & vbCrLf
        'strBody = "Arrangementsoplysninger:" & vbCrLf  & vbCrLf
        'strBody = strBody & "Dato for arrangement: " & rs("aDato") & vbCrLf
        'strBody = strBody & "Tidspunkt: " & rs("aTidspunkt") & vbCrLf
        'strBody = strBody & "Sted/adresse: " & rs("aSted") & vbCrLf
        'strBody = strBody & "Antal personer: " & rs("aPersoner") & vbCrLf
        'strBody = strBody & "Beskrivelse af arrangementet: " & rs("aBeskrivelse") & vbCrLf
        'strBody = strBody & "Telt: " & rs("aTelt") & vbCrLf & vbCrLf
       
        strBody = strBody & "Ordredetaljer:" & vbCrLf
        strBody = strBody & "Artikelnr." & vbTab & "Beskrivelse" & vbTab & "Antal" & vbTab & vbCrLf
        strBody = strBody & "-------------------------------------------------------" & vbCrLf
        'dblOrderTotal = 0
        while not rs.EOF
            strBody = strBody & rs("ccode") & vbTab & vbTab & rs("cname") & vbTab & vbTab
            strBody = strBody & rs("numitems") & vbTab & lineTotal & vbCrLf
            rs.MoveNext
        wend
        strBody = strBody & "-------------------------------------------------------" & vbCrLf
        strBody = strBody & vbCrLf & vbCrLf
       
           
        rs.Close
        set rs = nothing
        set cmd = nothing
       
        'SMTP server
            Set Mail = Server.CreateObject("Persits.MailSender")
            strHost = "mail.fantasyleague.dk"
        Mail.Host = strHost

       
          Mail.From = "cra@mail.dk"
          ' Mail.FromName = merchantmail
          Mail.AddAddress "cra@mail.dk", ""
          Mail.AddAddress strCustomer

          ' message subject
          Mail.Subject = "Tilbud/bestilling"
          ' message body
          Mail.Body = strBody
          strErr = ""
          bSuccess = False
        ' On Error Resume Next ' catch errors
          Mail.Send ' send message
If Err <> 0 Then ' error occurred
              strErr = Err.Description
              response.write strErr
          else
              bSuccess = True
       
          End If
          mailMerchant=bSuccess

    else

        rs.Close
        set rs = nothing
        set cmd = nothing
        mailMerchant = false
    end if

end function

%>

--- slut min kode ---