Udsending af bekræftelsesmail

Nu går jeg udfra at du bruger CDONTS objektet som er en component der følger med IIS'en.. Du gør følgende

<%
Dim MyMail
Set MyMail = Server.CreateObject("CDONTS.NewMail")
MyMail.From = "minmail@minserver.com"
MyMail.To = brugermail
MyMail.Subject = "Bekræftelsesmail"
MyMail.Body = "Tryk på det her link for at godkende http://minserver.dk/godkend.asp?mail="&brugermail&"&pwd="&password
MyMail.Send
Set MyMail = Nothing
%>

Sådan... Der er en del om hvordan du sætter CDONTS op på din server på www.devguru.dk...

Håber det hjalp :)

Hvorfor glemmer jeg altid at trykke på Svar knappen før jeg sender? Duh! :)

og det var selfølgelig www.devguru.com

sylv > Det var nu nærmere indholdet af godkend.asp jeg skulle bruge (og i øvrigt har jeg tænkt mig at anvende Jmail)

Ohh..
Jamne den er let nok..
Du laver din connection til db'en og alt det jazz, og så skriver du det her:
<%
SQL = "UPDATE tbl_users SET godkendt='true' WHERE pwid='"&request.querystring("pwid")&"'" AND email='"&request.querystring("email")&"&"'"

conn.execute(SQL)

%>
Sådan... :-)

sylv > Kan du lave den helt m Jmail konfig og det hele (altså to filer), så vil jeg lige prøve i aften

Det er næsten same fremgangsmåde..
<%
Set mail = CreateObject ("JMail.SMTPMail")

Send mail filen.
----------------------------------------------
body = "Tryk på det her link for at godkende http://minserver.dk/godkend.asp?mail="&brugermail&"&pwd="&password

    mail.ServerAddress = smtpServer & ":" & smtpPort
    mail.Sender = "din@email.dk"
    mail.Subject = "godkendelsesmail"
    mail.AddRecipient brugermail
    mail.ContentType = "text/html"
    mail.ISOEncodeHeaders = false
    mail.ContentTransferEncoding = "8bit"
    mail.Body = body
    mail.Priority = 3
   
    mail.Execute


set mail = nothing
%>


Godkend filen
-------------------------------------
<%
set conn = server.CreateObject("ADODB.CONNECTION")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("\mindatabase.mdb")


SQL = "UPDATE tbl_users SET godkendt='true' WHERE pwid='"&request.querystring("pwid")&"'" AND email='"&request.querystring("email")&"&"'"

conn.execute(SQL)
conn.close
%>

Hov... Der mangler lidt..


Send mail filen.
----------------------------------------------
<%
smtpServer = "smtp.minserver.dk" 'her skriver du din smtpserver
smtpPort = "XX" 'find ud af hvad porten er..
brugermail = "bruger@mail.dk" 'Tja, siger sig selv..
body = "Tryk på det her link for at godkende http://minserver.dk/godkend.asp?mail="&brugermail&"&pwd="&password


Set mail = CreateObject ("JMail.SMTPMail")
    mail.ServerAddress = smtpServer & ":" & smtpPort
    mail.Sender = "din@email.dk"
    mail.Subject = "godkendelsesmail"
    mail.AddRecipient brugermail
    mail.ContentType = "text/html"
    mail.ISOEncodeHeaders = false
    mail.ContentTransferEncoding = "8bit"
    mail.Body = body
    mail.Priority = 3
   
    mail.Execute


set mail = nothing
%>


Godkend filen
-------------------------------------
<%
set conn = server.CreateObject("ADODB.CONNECTION")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("mindatabase.mdb")


SQL = "UPDATE tbl_users SET godkendt='true' WHERE pwid='"&request.querystring("pwid")&"'" AND email='"&request.querystring("email")&"&"'"

conn.execute(SQL)
conn.close
%>