nu har jag "bara" sista sidan innan allt funkar och är redo att användas..:D..så om nån kunde hjälpa mig så skulle det vara skitkul aja...här kommer iallfall koden som gör att jag får det här felet... Antingen RecSet("antal"), namn eller pris på den raden finns inte i recordsetet... Dvs. finns inte med i sql-frågan... hmmm..ja e nog ganska säker på att antal nam och pris finns.. Ja i dem där två tabbelerna är dem med... MEN! Är dem med i tabellen kunder? Jag antar att de där två tabellerna heter "temptab" och "privatbestallning"... nej de finns inte..men jag har gjort en relation mellan privatbeställning och kunder för så att en kund kan beställa fler saker och för att göra det mer enkelt att se vem som beställt vad så att säga.... Du måste fortfarande lägga till i sqlsatsen att du vill ha tillbaka de värdena...sista biten
------------------------------------------------------------------------------
ADODB.Recordset error '800a0cc1'
Item cannot be found in the collection corresponding to the requested name or ordinal.
/TeleMedia/Privat/bestall_ok.asp, line 57
---------------------------------------------------------------------------------
här börjar sidan som ska skicka mailet
<!-- #include file="dbcon.asp"-->
<%
'-----Kollar att man är inloggad----------------------------
If Session("KID") = "" Then
Session("From") = "Bestall"
Response.Redirect "login.asp?From=Bestall"
End If
Dim DB, RecSet, RecSet2, Kolla, KID, Andra, Andra2, Sessionen, tmpArtID, tmpAntal, Tabort, Namn
KID = Session("KID")
Sessionen = Session.SessionID
Set Recset = Connect.Execute("Select * From kunder where kid = " & KID)
If RecSet.EOF = True Then
Response.Redirect "error.asp?fel=6"
End If
'--------------Skicka ett bekräftelse email-------
'--------------OBS FUNKAR EJ PÅ PWS !-------
Dim NyEpost, Meddelandet
Set NyEpost = Server.CreateObject("CDONTS.NewMail")
NyEpost.To = RecSet("epost")
NyEpost.Importance = 2
NyEpost.From = "shop@citygallerian.com"
NyEpost.Subject = "Order bekräftelse Tele & Media"
if Request.Form("betaltyp") = "kontant" then
frakt_typ = "kontant betalning vid avhmtning"
frakt = 0
elseif Request.Form("betaltyp") = "post" then
frakt_typ = "Postförskott (avgift:100kr)"
frakt=100
else
frakt_typ = "Error " & Request.Form("betaltyp")
frakt=0
end if
Meddelandet = "Hej " & RecSet("fnamn") & ", Tack för din beställning."
rad 57--->Meddelandet = Meddelandet & "Du har beställt "& RecSet("antal") & " st. " & RecSet("namn") & " à " & RecSet("pris") & vbCrLf
Meddelandet = Meddelandet & "Om du har frågor om din order kontakta oss "
Meddelandet = Meddelandet & "på support@citygallerian.com, var vänlig uppge ditt "
Meddelandet = Meddelandet & "kundnummer som är : " & Session("KID") & "."
NyEpost.Body = Meddelandet
NyEpost.Send
'---------------Epost Skickat-----------------------
RecSet.Close
'_______________Flytta ordern till rätt tabell______
Andra = "SELECT * FROM temptab WHERE SID = " & Sessionen
Addera = "SELECT * FROM privatbestallning"
Set RecSet = Connect.Execute(Andra)
Set RecSet2 = Connect.Execute(Addera)
Do Until RecSet.EOF
tmpArtID = RecSet("AID")
tmpAntal = RecSet("Antal")
Connect.Execute("INSERT INTO privatbestallning (orderid,antal,aid,kid,fraktsatt,betalsatt,medelande) VALUES('" & Sessionen & "'," & tmpantal & "," & tmpartid & ", " & kid & ",'" & fraktsatt & "','" & betalsatt& "','" & mdeleande & "')")
RecSet.MoveNext
Loop
Connect.Execute("Delete from temptab Where SID = " & Sessionen)
%>
<HTML>
<HEAD>
<link href="stil.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY>
<font size="1" face="Verdana, Arial, Helvetica, sans-serif"> Nu är orden skickad,
Du får ett bekräftelsebrev till din epost.
<% Session.Abandon %>
</font>
<p> <font size="1" face="Verdana, Arial, Helvetica, sans-serif">Tillbaka
till butiken </font>
<p><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Logga
ut</font>
</BODY>
</HTML>Sv: sista biten
Du använder * i sql-frågan, så antagligen finns någon utav de sakerna inte i den tabellen.Sv: sista biten
här kommer alla fältnamnen på de två tabellerna
temptab
SID
AID
antal
pris
namn
besk
fraktsatt
betalsatt
medelande
privatbestallning
OrderID
AID
antal
KID
fraktsatt
betalsatt
medelande
pris
namnSv: sista biten
Sv: sista biten
Sv: sista biten
t.ex.
select tabell1.id, tabell1.namn, tabell2.kossa, tabell2.apa from tabell1, tabell2 where blablabla
Dvs. de du vill ha tillbaka skall finnas med innan where... Du har ju bara med ifrån "tabell1", men itne ifrån "tabell2" (byt ut namnen så att de passar dig...)