jmail bekræft order

Sådan noget som dette:
http://www.eksperten.dk/spm/359323
http://www.eksperten.dk/spm/357022

ja men fatter ingen ting af hvordan man gør.. har et script som udskriver "a2dDaJyg3"
men resten mangler..

Du sender en mail med linket i gemmer i id'et i databasen.
Når man klikker på linket åbnes siden bk.asp som via id'et kan finde oplysningerne i databasen.

hvordan laver du så den der nye "id" ting så der laver random ting ind i min table..
fx sådan her

IF request.Form("sendteflon") <> "" then
function lavPassword(antal)
  tilladtkarakter = "aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ1234567890"
  str = ""
  randomize
  for i = 1 to antal
    index = Int(rnd * len(tilladtkarakter))+1
    str = str & Mid(tilladtkarakter,index,1)
  next
  lavPassword = str
end function
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("mindatabase.mdb")
Conn.Open DSN
sql = "insert into bestil(adr, blackT, blackBT, normT, normbT, mail, mobil, irc, kon, dato, sendt, aid) VALUES('"&request.form("adr")&"','"&request.form("blackT")&"','"&request.form("blackBT")&"','"&request.form("normT")&"','"&request.form("normBT")&"','"&request.form("mail")&"','"&request.form("mobil")&"','"&request.form("irc")&"','"&request.form("kon")&"','"&now&"','nej','"&lavPassword(20)&"')"
set rs = Conn.execute(sql)
response.Redirect("default.asp?id=Din order er sendt")
end if
%>

Ja sådan kan du godt gøre det.

men hvis du vil sende en mail til brugeren skal det nok laves lidt om sådan den gemmer og sender samme aid.

aid = lavPassword(20)

sql = "insert into bestil(adr, blackT, blackBT, normT, normbT, mail, mobil, irc, kon, dato, sendt, aid) VALUES('"&request.form("adr")&"','"&request.form("blackT")&"','"&request.form("blackBT")&"','"&request.form("normT")&"','"&request.form("normBT")&"','"&request.form("mail")&"','"&request.form("mobil")&"','"&request.form("irc")&"','"&request.form("kon")&"','"&now&"','nej','"&aid&"')"
set rs = Conn.execute(sql)

'Send mail
Set JMail= Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "websmtp.xxxxx.dk"
..
BodyText = "Hej" & vbCrLf & vbCrLf
BodyText = BodyText & "For at aktivere brugernavnet skal du trykke på dette link http://www.xxxxx.dk/bk.asp?id=" & aid & ""
BodyText = BodyText & vbCrLf & vbCrLf
..
..
JMail.Execute

den skal sende mailen fra tablen mail i databasen ?? hvordan får jeg det ind ??

eller det kan jo også gøres med request.form("mail")

har fixet den selv..

msg.body = "Bekræft din order"& vbCrLf &"http://fruth.prohest.dk/bekraeft.asp?id="&aid&""

den skriver ikke aid ud på siden

<title>Bestillinger</title><%
IF request.Form("sendteflon") <> "" then
function lavPassword(antal)
  tilladtkarakter = "aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ1234567890"
  str = ""
  randomize
  for i = 1 to antal
    index = Int(rnd * len(tilladtkarakter))+1
    str = str & Mid(tilladtkarakter,index,1)
  next
  lavPassword = str
end function
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("mindatabase.mdb")
Conn.Open DSN
sql = "insert into bestil(adr, blackT, blackBT, normT, normbT, mail, mobil, irc, kon, dato, sendt, aid) VALUES('"&request.form("adr")&"','"&request.form("blackT")&"','"&request.form("blackBT")&"','"&request.form("normT")&"','"&request.form("normBT")&"','"&request.form("mail")&"','"&request.form("mobil")&"','"&request.form("irc")&"','"&request.form("kon")&"','"&now&"','nej','"&lavPassword(20)&"')"
set rs = Conn.execute(sql)
%>
<%
        set msg = Server.CreateOBject( "JMail.Message" )
        msg.Logging = true
        msg.silent = true
        msg.From = "telfon@c.dk"
        msg.FromName = "Teflonshop"
        msg.AddRecipient ""&request.form("mail")&""
        msg.Subject = "Teflon"
        msg.body = "Bekræft din order"& vbCrLf &"http://fruth.prohest.dk/bekraeft.asp?id="&aid&""
       
        if not msg.Send("smtp.mail.dk" ) then
            Response.write "<pre>" & msg.log & "</pre>"
        else
            Response.write "Din order er sendt<BR><BR>"
        end if
response.Redirect("default.asp?id=Din order er sendt")
%>
<% end if%>

ok. men du kan gemme i databasen og så sende mailen lige efter??

Bekræft din order
http://fruth.prohest.dk/bekraeft.asp?id=

det skriver den i min mail..

Du skal havde lavet din SQL om sådan den ikke kalder lavPassword, men lavPassword kaldes før sådan du kan bruge det samme aid begge steder sådan her:


aid = lavPassword(20)
sql = "insert into bestil(adr, blackT, blackBT, normT, normbT, mail, mobil, irc, kon, dato, sendt, aid) VALUES('"&request.form("adr")&"','"&request.form("blackT")&"','"&request.form("blackBT")&"','"&request.form("normT")&"','"&request.form("normBT")&"','"&request.form("mail")&"','"&request.form("mobil")&"','"&request.form("irc")&"','"&request.form("kon")&"','"&now&"','nej','"&aid&"')"

takker smid et svar og jeg kaster nogle point på dig :D

ok, det gør jeg da :)