Glömt ditt lösenord

Det är ju bara att göra ett forumlär där de får skriva in sin email adress sen kollar du i db:n om du hittar någon träff med en count på recordsettet, hittar du någon så ber du din mail komponent plocka ut email infon,användarinfon med lösenord och skickar iväg det till emailadressen.

Vad har du för mail komponent ?

Hej!

red: förutsätter att mailkomponenten är CDONTS

<%
dim sql
dim RS
dim pass
dim user
dim email

sql = "SELECT [Password], Email, Username FROM user_table WHERE Email = '"& request.form("email") &"'"
Set RS = objDB.Execute(sql) 

'#-- om inte mailadressen fanns, skriv ut felmess --
If RS.EOF Then
Response.write "<p>Din E-Postadress var inte rätt!<br> Var god försök igen.</p>"
'#-- annars skicka uppgifterna --
Else
'#-- definera variablerna pass, email och user --
pass = RS("Password")
user = RS("Username")
email = RS("Email")
'#-- Hämta subben --

Call SendPW(pass, email, user)
Response.Write "<p>Vi har skickat dina användaruppgifter till dig.</p> " 

'#-- städa bort använda objekt --

RS.Close()
objDB.Close()
Set RS = Nothing
Set objDB = Nothing
End If

'#-- en subrutin som skickar uppgifterna med CDONTS --
dim cdoMail
Sub SendPW(pass, email, user)
Set cdoMail = Server.CreateObject("CDONTS.NewMail")
cdoMail.From = "somone@blaha.nu"
cdoMail.To = email
cdoMail.Subject = "Användaruppgifter"
cdoMail.body = "Ditt användarnamn: " & user & vbcrlf & "Lösenord: " & pass & vbcrlf & vbcrlf & "Var så god, här kommer dina beställda användaruppgifter"

cdoMail.Send
Set cdoMail = Nothing
End Sub
%>

mvh Jörgen

Hej och tackar för svaren!

Jag har CDONTS Erka! Tyvärr är jag lite kass på hur jag skall få ihop hämtningen ut databasen med mailfunktionen:-)
--------------------------------
Jörgen, du är alltid lika generös, tack för scriptet!
--------------------------------

:-):-):-):-):-)(5 leenden av 5 möjliga)