3 svar · 256 visningar · startad av loboz
Jag försöker hitta en asp-lösning för att ge besökare möjligheten att få sina användaruppgifter (anvnamn och lösenord) sig tillsända via e-post om de har glömt dessa.Användaruppgifterna finns i en databas (även deras e-post). Finns det någon smidig lösning för detta.
"Beginner"
------------------
"Tålamodet är den fattiges rikedom"
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 ?
------------------
Real mad hiphop flavaz kickin' it right from tha street without no FEAR, Yo !
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 :)
------------------
Varför bråka när man kan kramas?
[Redigerat av jorgen den 04 dec 2001]
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)
------------------
"Tålamodet är den fattiges rikedom"