Notifikationer

Markér alle som læst Log ud

bredan1977 Nybegynder

27. oktober 2004 - 22:21 Der er 23 kommentarer og
1 løsning

Send Email fra ASPForm?

Nu er det sådan at jeg er ved at lave en lille webshop....

Efter det hele bliver skrevet ind i DB, så kan man gå til kassen, og sende sin ordrer!

Hvordan laver jeg det på den nemmeste måde???

Som sagt så er ordren gemt i en DB, hvor der er koblet en nogen varer op imod et ordrer nummer!

Synes godt om

para7 Nybegynder

28. oktober 2004 - 08:15 #1

Her er en slags skabelon-side, du nok kan bruge som udgangspunkt. Kald den fx ordreMail.asp:

<html>
<body>
<%
Server.ScriptTimeout = 6000
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.Silent = true
JMail.Logging = true

JMail.ServerAddress = "mail.mitsite.dk"
jMail.sendername = request("navn")
JMail.Sender = request("email")
JMail.Subject = " Ordre fra " & request("navn")
JMail.AddRecipient "mig@mitsite.dk"

body = "Ny ordre fra ordre siden. "
body = body & "Bestilte varer: "
body = body & request("antal") & " stk. " & request("vare") & " "
body = body & "Kunden har oplyst følgende: "
body = body & "Navn: " & request("navn") & " "
body = body & "E-mail: " & request("email") & " "
body = body & "Telefon: " & request("telefon") & " "
body = body & "Kommentarer: " & request("Kommentarer") & " "
body = body & " Denne e-mail er sendt fra: "
body = body & "<a href='http://" & request.servervariables("SERVER_NAME") & "'>"
body = body & request.servervariables("SERVER_NAME") & "</a> "

jMail.ContentType = "text/html"
JMail.Priority = 3
JMail.Body = body

'Her kan du teste:
'response.write "Subject: " & JMail.Subject & " "
'response.write "Meddelelse: " & body
'response.end
'test slut

JMail.Execute
Set JMail = Nothing

%>
Tak fordin ordre. Vi sender varerne hurtigst muligt. 
</body>
</html>

Synes godt om

para7 Nybegynder

28. oktober 2004 - 08:26 #2

OK, ordren skal vel hentes i db, så du kan gøre ca. sådan her:

<html>
<body>
<%

Set conn = server.createobject("ADODB.connection") 'db forbindelsen oprettes/åbnes
conn.open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source =" & server.Mappath("db_vf24161kf6dg4o4mqwclgpvd/noniportalen.mdb") 'db åbnes lokalt
Set rs = Server.createobject("ADODB.Recordset") 'Recordset oprettes
strSQL = " select * from Ordrer where ID = " & request("ID")
rs.open strSQL, conn
do until rs.EOF

Server.ScriptTimeout = 6000
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.Silent = true
JMail.Logging = true

JMail.ServerAddress = "mail.mitsite.dk"
jMail.sendername = rs("navn")
JMail.Sender = rs("email")
JMail.Subject = " Ordre fra " & rs("navn")
JMail.AddRecipient "mig@mitsite.dk"

body = "Ny ordre fra ordre siden. "
body = body & "Bestilte varer: "
body = body & rs("antal") & " stk. " & rs("vare") & " "
body = body & "Kunden har oplyst følgende: "
body = body & "Navn: " & rs("navn") & " "
body = body & "E-mail: " & rs("email") & " "
body = body & "Telefon: " & rs("telefon") & " "
body = body & "Kommentarer: " & rs("Kommentarer") & " "
body = body & " Denne e-mail er sendt fra: "
body = body & "<a href='http://" & rs.servervariables("SERVER_NAME") & "'>"
body = body & rs.servervariables("SERVER_NAME") & "</a> "

jMail.ContentType = "text/html"
JMail.Priority = 3
JMail.Body = body

JMail.Execute
Set JMail = Nothing

rs.movenext
loop
rs.Close
set rs = nothing

%>
Tak fordin ordre. Vi sender varerne hurtigst muligt. 
</body>
</html>

Synes godt om

para7 Nybegynder

28. oktober 2004 - 08:32 #3

PS: stien til db
db_vf24161kf6dg4o4mqwclgpvd/noniportalen.mdb
er bare en måde man jeg skjuler min database. Den har i virkeligheden et helt andet navn.

Synes godt om

bredan1977 Nybegynder

28. oktober 2004 - 09:59 #4

Nu er det sådan at jeg har delt det op:
orderindhold = Som er de bestiltet varer
orderliste = Orderne...

Men 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_String = "Select * from orderindhold WHERE ordernummer=" & "'" & Session("Ordernummer") & "'"
rsVare.open SQL_String, Conn

Set rsOrder= server.Createobject("ADODB.Recordset")
SQL_String = "Select * from orderliste WHERE ordernummer=" & "'" & Session("Ordernummer") & "'"
rsOrder.open SQL_String, Conn

do until rsSendOrder.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 = "Ny ordre fra ordre siden. "
body = body & "Bestilte varer: "
body = body & rsvare("produktantal") & " stk. " & rsSendOrder("produktNavn") & " "
body = body & "Kunden har oplyst følgende: "
body = body & "Navn: " & rsOrder("KundeNavn") & " "
body = body & "E-mail: " & rsOrder("email") & " "
body = body & "Telefon: " & rsOrder("KundeTelefon") & " "
body = body & "Kommentarer: " & rsOrder("KundeNotat") & " "
body = body & " Denne e-mail er sendt fra: "
body = body & "<a href='http://" & rsSendOrder.servervariables("SERVER_NAME") & "'>"
body = body & rsSendOrder.servervariables("SERVER_NAME") & "</a> "

jMail.ContentType = "text/html"
JMail.Priority = 3
JMail.Body = body

JMail.Execute
Set JMail = Nothing

rsSendOrder.movenext
loop
rsSendOrder.Close
set rsSendOrder = nothing
%>
Tak fordin ordre. Vi sender varerne hurtigst muligt. 
</body>
</html>

Synes godt om

para7 Nybegynder

28. oktober 2004 - 11:04 #5

Du skriver
do until rsSendOrder.EOF
Men du har da ikke oprettet noget recordset med det navn.

Synes godt om

bredan1977 Nybegynder

28. oktober 2004 - 11:11 #6

Nej... har rettet det:

<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 = "Ny ordre fra ordre siden. "
body = body & "Bestilte varer: "
body = body & rsvare("produktantal") & " stk. " & rsVare("produktNavn") & " "
body = body & "Kunden har oplyst følgende: "
body = body & "Navn: " & rsOrder("KundeNavn") & " "
body = body & "E-mail: " & rsOrder("email") & " "
body = body & "Telefon: " & rsOrder("KundeTelefon") & " "
body = body & "Kommentarer: " & rsOrder("KundeNotat") & " "
body = body & " Denne e-mail er sendt fra: "
body = body & "<a href='http://" & rsOrder.servervariables("SERVER_NAME") & "'>"
body = body & rsOrder.servervariables("SERVER_NAME") & "</a> "

jMail.ContentType = "text/html"
JMail.Priority = 3
JMail.Body = body

JMail.Execute
Set JMail = Nothing

rsVare.movenext
loop
rsVare.Close
set rsVare = nothing
%>
Tak fordin ordre. Vi sender varerne hurtigst muligt. 
</body>
</html>

Synes godt om

para7 Nybegynder

28. oktober 2004 - 12:00 #7

Tak for point :)

Synes godt om

bredan1977 Nybegynder

28. oktober 2004 - 12:22 #8

Jeg får altså fejlen:
Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/store/sendorder.asp, line 23

Invalid ProgID. For additional information specific to this message please visit the Microsoft Online Support site located at: http://www.microsoft.com/contentredirect.asp.

Det er linje:
Set JMail = Server.CreateObject("JMail.SMTPMail")

Synes godt om

para7 Nybegynder

28. oktober 2004 - 12:44 #9

Kan du finde ud af om hotelpladsen understøtter jMail? Hvis ikke kan vi sansynligvis bare bruge CDONTS og jeg sender dig så lige noget nyt kode. OK?

Synes godt om

para7 Nybegynder

28. oktober 2004 - 12:46 #10

Invalid ProgID betyder nu helt sikkert at der ikke er jMail på serveren. Så jeg sender kode om lidt.

Synes godt om

bredan1977 Nybegynder

28. oktober 2004 - 12:48 #11

ok...

Synes godt om

para7 Nybegynder

28. oktober 2004 - 12:58 #12

Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.From = rsOrder("email")
objCDO.To = "domino@tdcadsl.dk"
'objCDO.Cc = rsOrder("email") 'Hvis kunden skal have en kopi
objCDO.Subject = " Ordre fra " & rsOrder("KundeNavn")
body = "Ny ordre fra ordre siden. "
body = body & "Bestilte varer: "
body = body & rsvare("produktantal") & " stk. " & rsVare("produktNavn") & " "
body = body & "Kunden har oplyst følgende: "
body = body & "Navn: " & rsOrder("KundeNavn") & " "
body = body & "E-mail: " & rsOrder("email") & " "
body = body & "Telefon: " & rsOrder("KundeTelefon") & " "
body = body & "Kommentarer: " & rsOrder("KundeNotat") & " "
body = body & " Denne e-mail er sendt fra: "
body = body & "<a href='http://" & rsOrder.servervariables("SERVER_NAME") & "'>"
body = body & rsOrder.servervariables("SERVER_NAME") & "</a> "
objCDO.Body = body
objCDO.MailFormat = 0
objCDO.BodyFormat = 0
objCDO.Send
Set objCDO = Nothing

Synes godt om

bredan1977 Nybegynder

28. oktober 2004 - 13:07 #13

Hmmm.. ja nu slugte den godt nok siden..

Så må vi sen om der kommer en mail!

Synes godt om

bredan1977 Nybegynder

28. oktober 2004 - 13:11 #14

Er der en måde at tjekke om den er sendt uden fejl?

Synes godt om

para7 Nybegynder

28. oktober 2004 - 13:14 #15

Det kender jeg ikke til.

Synes godt om

para7 Nybegynder

28. oktober 2004 - 13:21 #16

Her er en side om CDONTS:
http://www.devasp.com/Samples/mail.asp

Synes godt om

hastek22 Nybegynder

28. oktober 2004 - 13:27 #17

Du bør nok skifte denne :
objCDO.From = rsOrder("email")

ud med
objCDO.From = "domino@tdcadsl.dk"
eller en anden gyldig mailadr. i dit eget domæne, da du ellers forsøger at bruge en andens mailserver.

Synes godt om

bredan1977 Nybegynder

28. oktober 2004 - 13:30 #18

der kommer ikke noget!

Synes godt om

bredan1977 Nybegynder

28. oktober 2004 - 13:38 #19

Der kommer en fejl igen nu!

i Linjen:
body = body & "<a href='http://" & rsOrder.servervariables("SERVER_NAME") & "'>"

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'servervariables'

/STore/sendorder.asp, line 36

Synes godt om

bredan1977 Nybegynder

28. oktober 2004 - 13:50 #20

Nu kører den...

Jeg fjernede bare de to linjer her:
body = body & "<a href='http://" & rsOrder.servervariables("SERVER_NAME") & "'>"
body = body & rsOrder.servervariables("SERVER_NAME") & "</a> "

Synes godt om

bredan1977 Nybegynder

28. oktober 2004 - 13:51 #21

Hov.. den sender 5 emails, hvis man bestiller 5 ting!!!!!

Det er jo ikke meninigen!

Synes godt om

hastek22 Nybegynder

28. oktober 2004 - 13:53 #22

Det ville også umiddelbart være mit bud. Men hvis du ønsker det kan du jo skrive de parametre ind i "hånden" istedet for at spørge serveren om det.

Synes godt om

bredan1977 Nybegynder

28. oktober 2004 - 14:28 #23

Hvilke parametre snakker du om?

Synes godt om

hastek22 Nybegynder

28. oktober 2004 - 14:39 #24

SERVER_NAME:
Det du bad den om i de to linier var at indføje adressen på din e-shop, som et link.
Det kan du skrive som et helt normalt link.

Vedr. dine fem mails, så er det fordi den løber dine recordset igennem en for en og sender en mail hvergang.
Jeg ved ikke om du kan kan lave gennemløbet inde i din mail funktion eller om du er nød til at skrive dem ud i en tabel/form først, og så sende tabellen/formen istedet for:
body = body & rsvare("produktantal") & " stk. " & rsVare("produktNavn") & " "
noget ala:
body = body & Request.Form ("bestillingForm")
hvor "bestillingsform" er der hvor du har læst varene ud.

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	9	25/06/202622:20	29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS