Søg
Avatar billede nythjem Nybegynder
22. maj 2004 - 13:09 Der er 4 kommentarer og
1 løsning

Send kvittering via Jmail

Hej Alle!

Jeg er desværre løbet ind i det problem, at jeg skal have gemt nogle data, og samtidig have sendt en kvittering til emailen i formularen. Jeg bruger Jmail.

Håber nogle vil hjælpe :)

Jeg har følgende dokument, der ligger dataene ind.

####

<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("database.mdb")
Conn.Open DSN

' SQL sætning opbygges
strSQL = "Insert into ordre ("

strSQL = strSQL & "dato, "
strSQL = strSQL & "faktura, "
strSQL = strSQL & "kunde, "
strSQL = strSQL & "domain, "
strSQL = strSQL & "email, "
strSQL = strSQL & "rabat) "

strSQL = strSQL & "values( "

strSQL = strSQL & "'" & request.form("dato") & "', "
strSQL = strSQL & "'" & request.form("faktura") & "', "
strSQL = strSQL & "'" & request.form("kunde") & "', "
strSQL = strSQL & "'" & request.form("domain") & "', "
strSQL = strSQL & "'" & request.form("email") & "', "
strSQL = strSQL & "'" & request.form("rabat") & "')"


' SQL sætning eksekveres
Conn.Execute(strSQL)

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing

response.redirect ("defaults.asp?item=gennemfort")
%>

#######

Jeg har denne lille stump kode som jeg ikke helt kan finde ud af at integrere.

    if request.form("email") <> "" then
    set msg = Server.CreateOBject( "JMail.Message" )
    msg.Logging = true
    msg.silent = true

    msg.From = "smtp.mail.dk"
    msg.FromName = "Fra navn"

    msg.AddRecipient "" & request.form("email") & ""

    msg.Subject = "Kvittering!"

    msg.appendText "Det kræver at du har et mailprogram som kan læse HTML mails."

    msg.HTMLBody = msg.HTMLBody & "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"">"

    msg.HTMLBody = msg.HTMLBody & "<html>"
    msg.HTMLBody = msg.HTMLBody & "<head>"
    msg.HTMLBody = msg.HTMLBody & "<title>Tak for tilmeldingen</title>"

    msg.HTMLBody = msg.HTMLBody & "<style type=""text/css"">"
    msg.HTMLBody = msg.HTMLBody & "osv osv"
    msg.HTMLBody = msg.HTMLBody & "</body>"
    msg.HTMLBody = msg.HTMLBody & "</html>"


Håber nogle vil hjælpe.. : )
Avatar billede ellebaek Nybegynder
22. maj 2004 - 17:21 #1
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("database.mdb")
Conn.Open DSN

' SQL sætning opbygges
strSQL = "Insert into ordre ("

strSQL = strSQL & "dato, "
strSQL = strSQL & "faktura, "
strSQL = strSQL & "kunde, "
strSQL = strSQL & "domain, "
strSQL = strSQL & "email, "
strSQL = strSQL & "rabat) "

strSQL = strSQL & "values( "

strSQL = strSQL & "'" & request.form("dato") & "', "
strSQL = strSQL & "'" & request.form("faktura") & "', "
strSQL = strSQL & "'" & request.form("kunde") & "', "
strSQL = strSQL & "'" & request.form("domain") & "', "
strSQL = strSQL & "'" & request.form("email") & "', "
strSQL = strSQL & "'" & request.form("rabat") & "')"


' SQL sætning eksekveres
Conn.Execute(strSQL)

if request.form("email") <> "" then
    set msg = Server.CreateOBject( "JMail.Message" )
    msg.Logging = true
    msg.silent = true

    msg.Sender = "smtp.mail.dk"
    msg.SenderName = "Fra navn"
    msg.ServerAddress = "smtp.mail.dk"

    msg.AddRecipient "" & request.form("email") & "", "" & request.form("email") & ""

    msg.Subject = "Kvittering!"

    msg.appendText "Det kræver at du har et mailprogram som kan læse HTML mails."

    msg.HTMLBody = msg.HTMLBody & "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"">"

    msg.HTMLBody = msg.HTMLBody & "<html>"
    msg.HTMLBody = msg.HTMLBody & "<head>"
    msg.HTMLBody = msg.HTMLBody & "<title>Tak for tilmeldingen</title>"

    msg.HTMLBody = msg.HTMLBody & "<style type=""text/css"">"
    msg.HTMLBody = msg.HTMLBody & "osv osv"
    msg.HTMLBody = msg.HTMLBody & "</body>"
    msg.HTMLBody = msg.HTMLBody & "</html>"
msg.Execute

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing

response.redirect ("defaults.asp?item=gennemfort")
%>

Skal der stå noget specielt i databasen, for ellers tror jeg det her er nok til at det virker..
Avatar billede nythjem Nybegynder
23. maj 2004 - 13:14 #2
Hej Ellebaek..

Undskyld meget sen respons..

Jeg har lige prøvet det af, og den sagde i starten, at der manglede en end, så jeg har post end if efter msg.execute.

Nu får jeg følgende fejlmeddelelse..

Microsoft VBScript runtime  error '800a01b6'

Object doesn't support this property or method: 'Sender'
Avatar billede nythjem Nybegynder
23. maj 2004 - 13:36 #3
Hej igen Ellebaek..

Jeg brugte lidt anden dokumentation, og har fået det til at virke med følgende i stedet..

Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ContentType = "text/html"
JMail.ServerAddress = "smtp.mail.dk"
JMail.Priority = 1
JMail.Sender = "info@afront.dk"
JMail.AddRecipientEx "" & request.form("email") & "", "" & request.form("kontakt") & ""
Jmail.AddRecipientCC "info@afront.dk"
Jmail.AddRecipientBCC "info@afront.dk"
JMail.Subject = "A|Front Services"
JMail.Body = "Vi har nu modtaget din ordre"
JMail.Execute
Set JMail = Nothing
Avatar billede ellebaek Nybegynder
23. maj 2004 - 17:18 #4
vil det sige dit script virker nu..?
Avatar billede nythjem Nybegynder
24. maj 2004 - 11:30 #5
Ja det vil det.. :)
Avatar billede 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.

Loading billede Opret Preview
Kategori
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 11:56 Er det muligt at lave sin egen webserver i boligforening? Af Strawberry i Cloudtjenester
I går 10:21 Ny printer, men hvilken Af mort1 i Printere
13/0819:41 USB på Linux Af Uvanga i Linux
12/0818:26 Hvilken type mus Af mort1 i PC
11/0813:21 ms Forms Af leahcim i Andet software
White papers
Flere white papers »