Ja som rubriken säger så behöver jag hjälp med att skicka med några saker i mailet till användarna som beställer saker från oss...i mailet ska det vara namn antal och priser på varorna...men jag får inte till det...här under kommer mailet som ska skickas Vad är det som du inte får till... skickas mailet, men inget innehåll, eller skickas mailet ej iväg. jag testade med att ta bort några saker och ändra lite i koden....och fick då Ändra raden till Som det ser ut så gör du inte en korrekt sträng av allting. Syntax för " gör att du bryter strängen hit å dit. Om du tar bort message totalt och mailet åker iväg så vet du i alla fall att det är rätt i koden.HJÄLP med CDNOTS
<!-- #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"
Meddelandet = "Hej " & RecSet("fnamn") & ", Tack för din beställning."
Meddelandet = "Du har beställt " & RecSet("antal") & " " & RecSet("prs") & ", vi hoppas att du är nöjd med din order."
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")
Namn = RecSet("namn")
Connect.Execute("INSERT INTO privatbestallning (orderid,antal,aid,kid,namn) VALUES(" & Sessionen & ", " & tmpantal & ", " & tmpartid & ", " & kid & ")")
RecSet.MoveNext
Loop
RecSet2.Close
Do until RecSet.EOF
Connect.Execute("Delete from temptab Where SID = " & Sessionen)
RecSet.MoveNext
Loop
RecSet.Close
%>
<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: HJÄLP med CDNOTS
Sv: HJÄLP med CDNOTS
Meddelandet = Meddelandet "Du har beställt " & RecSet("antal") & " st. " & RecSet("namn") & " à " & RecSet("prs") & vbCrLf &
--------------------------^
jag har ändrat som ni ser
Meddelandet = "Hej " & RecSet("fnamn") & ", Tack för din beställning."
---> Meddelandet = Meddelandet "Du har beställt " & RecSet("antal") & " st. " & RecSet("namn") & " à " & RecSet("prs") & 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
det här var messet jag fick förut....
ADODB.Recordset error '800a0cc1'
Item cannot be found in the collection corresponding to the requested name or ordinal.
/TeleMedia/privat/bestall_ok.asp, line 51Sv: HJÄLP med CDNOTS
<code>
Meddelandet = Meddelandet & "Du har beställt " & RecSet("antal") & " st. " & RecSet("namn") & " à " & RecSet("prs") & vbCrLf
</code>
Är RecSet("prs") rättstavat?
Kan det vara: RecSet("pris") Sv: HJÄLP med CDNOTS
Sen brukar ett hjälpmedel om man tycker det är svårt att använda VB6 eller någon editor för att se vad du gör fel när du konstruerar ditt meddelande.
När du får "item not found" så betyder det att det fältnamn du kallar på i ditt recordset inte finns med, alltså måste du kontrollera vad du egentligen får med i det data du efterfrågar. Du kan om du kör access ställa sql-frågan och se resultatet vad som egentligen kommer ut.
Så ditt fel handlar inte om cdonts utan klassisk syntax. Bryt isär koden som du gjorde tidigare - remma ut och stoppa med response.end - så ser du hur mycket kod som exekveras. Får du till det så släpper du response.end och kan gå vidare.