05. december 2004 - 17:41Der er
11 kommentarer og 1 løsning
Hjælpe til "glemt kode"-funktion
Hejsa...
Jeg har lavet en form hvor brugeren kan indtaste sin email og sende, hvorefter siden gerne skulle kontrolere om adressen findes i min access db, hvis den gør skal den sende password og brugernavn, ellers udskrive en form for fejl til brugeren...
fejlen hvis mailen ikke findes i db'en skulle gerne angives til strerror = 3
Er der nogen der kan hjælpe?
Mit eget bud... der ikke virker:
<% if request.form("Add") <> "" then strerror = "" strmail = Request.Form("mail")
If Len(strmail) = 0 Then strError = 1 ElseIf Len(strmail) < 6 Then strError = 2 End If If Len(strError) = 0 Then
Set rs = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM bruger WHERE email = " & strmail strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("database.mdb") rs.Open strSQL, strDSN, 1, 3 mail = rs("email") username = rs("mynetname") password = rs("mynetword") rs.Close Set rs = Nothing
body = "" body = body & "<htlm>" body = body & "<head>" blablablablablablablablablabla body = body & "</body>" body = body & "</head>" body = body & "</html>"
set jmail = server.createobject("JMAIL.SMTPMail") jMail.sendername = "DEt er mig der sender" jMail.sender = mail jMail.Subject = "Brugernavn og Adgangskode" jMail.ServerAddress = "mail.domaine.dk" jMail.AddRecipient "postmaster@net-lunden.dk" jMail.Body = body jMail.Priority = 3 jMail.execute
Response.Redirect("default.asp?side=logind") else Response.Redirect("default.asp?side=logind&mode=glemt&fejl=" & strerror) strMode = "Add" end if end if %> <span class="fejl"> <% if fejl = "" then %> <% elseif fejl = "1" then %>Du skal skrive din e-mailadresse! <% elseif fejl = "2" then %>Du skal skrive en rigtig e-mailadresse! <% elseif fejl = "2" then %>Der er ingen brugere med den angivet e-mailadresse!<% end if %> </span><br /> <form method="post" action="default.asp?side=logind&mode=glemt"> <p> E-mail*<br /> <input type="text" name="mail" size="40" value="Din e-mail (valg frit)" /><br /> <p><input type="submit" value=" Send " name="Add" /></p> </form>
<% if request.form("Add") <> "" then strerror = "" strmail = Request.Form("mail")
If Len(strmail) = 0 Then strError = 1 ElseIf Len(strmail) < 6 Then strError = 2 End If If Len(strError) = 0 Then
Set rs = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM bruger WHERE email = " & strmail strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("database.mdb") rs.Open strSQL, strDSN, 1, 3 if rs.bof or rs.eof then strError = 3 Response.Redirect("default.asp?side=logind&mode=glemt&fejl=" & strerror) else mail = rs("email") username = rs("mynetname") password = rs("mynetword") rs.Close Set rs = Nothing end if
body = "" body = body & "<htlm>" body = body & "<head>" blablablablablablablablablabla body = body & "</body>" body = body & "</head>" body = body & "</html>"
set jmail = server.createobject("JMAIL.SMTPMail") jMail.sendername = "DEt er mig der sender" jMail.sender = mail jMail.Subject = "Brugernavn og Adgangskode" jMail.ServerAddress = "mail.domaine.dk" jMail.AddRecipient "postmaster@net-lunden.dk" jMail.Body = body jMail.Priority = 3 jMail.execute
Response.Redirect("default.asp?side=logind") else Response.Redirect("default.asp?side=logind&mode=glemt&fejl=" & strerror) strMode = "Add" end if end if %> <span class="fejl"> <% if fejl = "" then %> <% elseif fejl = "1" then %>Du skal skrive din e-mailadresse! <% elseif fejl = "2" then %>Du skal skrive en rigtig e-mailadresse! <% elseif fejl = "2" then %>Der er ingen brugere med den angivet e-mailadresse!<% end if %> </span><br /> <form method="post" action="default.asp?side=logind&mode=glemt"> <p> E-mail*<br /> <input type="text" name="mail" size="40" value="Din e-mail (valg frit)" /><br /> <p><input type="submit" value=" Send " name="Add" /></p> </form>
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.