Hjælp med ASP Mail!
Jeg har en lille webshop som skal sende ordren som mail!Nu er det sådan at jeg har delt det min DB op:
Tabel:
orderindhold = Som er de bestiltet varer
orderliste = Orderne...
De har begge en kolonne som hedder:
ordernummer som hængte de to ting sammen! MEN... jeg kan ikke rigtgit få det til at virke!
Jeg får en fejl!!
28-10-2004-1010052833
Microsoft OLE DB Provider for ODBC Drivers error '80040e10'
[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.
/store/sendorder.asp, line 17
Her er min kode:
<html>
<body>
<%
Session("Ordernummer") = Session("Ordernummer")
response.write Session("Ordernummer")
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../cgi-data/storedb.mdb")
Conn.Open DSN
Set rsVare= server.Createobject("ADODB.Recordset")
SQL_StringVare = "Select * from orderindhold WHERE ordernummer=" & "'" & Session("Ordernummer") & "'"
rsVare.open SQL_StringVare, Conn
Set rsOrder= server.Createobject("ADODB.Recordset")
SQL_StringOrder = "Select * from orderliste WHERE ordernummer=" & "'" & Session("Ordernummer") & "'"
rsOrder.open SQL_StringOrder, Conn
do until rsVare.EOF
Server.ScriptTimeout = 6000
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.Silent = true
JMail.Logging = true
JMail.ServerAddress = "smtp.mail.dk"
jMail.sendername = rsOrder("KundeNavn")
JMail.Sender = rsOrder("email")
JMail.Subject = " Ordre fra " & rsOrder("KundeNavn")
JMail.AddRecipient "domino@tdcadsl.dk"
body = "<b>Ny ordre fra ordre siden.<br><br><br>"
body = body & "Bestilte varer: <br>"
body = body & rsvare("produktantal") & " stk. " & rsSendOrder("produktNavn") & "<br><br><br>"
body = body & "Kunden har oplyst følgende:<br><br>"
body = body & "Navn: " & rsOrder("KundeNavn") & "<br>"
body = body & "E-mail: " & rsOrder("email") & "<br>"
body = body & "Telefon: " & rsOrder("KundeTelefon") & "<br>"
body = body & "Kommentarer:<br>" & rsOrder("KundeNotat") & "<br>"
body = body & "<br><br><br><b>Denne e-mail er sendt fra:<br>"
body = body & "<a href='http://" & rsOrder.servervariables("SERVER_NAME") & "'>"
body = body & rsOrder.servervariables("SERVER_NAME") & "</a></b><br><br><br>"
jMail.ContentType = "text/html"
JMail.Priority = 3
JMail.Body = body
JMail.Execute
Set JMail = Nothing
rsOrder.movenext
loop
rsOrder.Close
set rsOrder = nothing
%>
Tak fordin ordre. Vi sender varerne hurtigst muligt.<br>
</body>
</html>
