29. oktober 2001 - 16:16Der er
6 kommentarer og 1 løsning
glemt password og brugernavn
HJÆLP.....jeg skal bruge et glemt password og brugernavn script. access database hvor pass og bruger ligger i en tabel der hedder account. man skal skrive sin email og så får man sendt sit brugernavn og password.........jeg bruger aspmail til at sende............håber der er en der vil hjælpe da jeg er for lam til asp endnu.
<% SQL = \"SELECT * FROM account WHERE email = \'\"& Request.Form(\"modtager\") &\"\'\" set tjek = conn.ExeCute(SQL) If tjek.EOF Then Response.Write \"E-mail adressen findes ikke\" Else
If request.querystring(\"mode\") = \"send\" Then
Set Mailer = Server.CreateObject(\"SMTPsvg.Mailer\") Mailer.FromName = \"Dit password\" Mailer.FromAddress= \"webmaster@letstart.dk\" Mailer.RemoteHost = \"mail.letstart.dk\" Mailer.AddRecipient \"Letstart\" Mailer.Subject = \"glemt password\" Mailer.BodyText =Her er dit password\"& VbCrLf & tjek(\"password\")
If Mailer.SendMail Then
Else Response.Write \"Der opstod en fejl: \" & Mailer.Response End If Set Mailer = Nothing
hvad for en fejl fik du da du prøvede at køre nogle af disse eksempler du fandt? Jeg tror at den fejl du fik ligger i Server.CreateObject og at du ikke har registeret en dll fil til afsending af mail.
Alle de objekter du siger Server.CreateObjekt til skal der være en dll(dynamic link library)fil i din registreringsdatabasen.
Dll filer indeholder metoder, som man så kan bruge ved at kreere en instans af denne. Ved som sagt Server.CreateObjekt men det er svært at kreere en instans af noget som ikke findes på serveren.
jeg har desværre ikke mulighed for at tjecke det - men prøv dette:
<% If request.querystring(\"mode\") = \"send\" Then
SQL = \"SELECT * FROM account WHERE email = \'\"& Request.Form(\"modtager\") &\"\'\" set tjek = conn.ExeCute(SQL) If tjek.EOF Then Response.Write \"E-mail adressen findes ikke\" Else
Set Mailer = Server.CreateObject(\"SMTPsvg.Mailer\") Mailer.FromName = \"Dit password\" Mailer.FromAddress= \"webmaster@letstart.dk\" Mailer.RemoteHost = \"mail.letstart.dk\" Mailer.AddRecipient \"Letstart\" Mailer.Subject = \"glemt password\" Mailer.BodyText = \"Her er dit password: \" & tjek(\"password\") & \"\"
If Mailer.SendMail Then Set Mailer = Nothing
Else Response.Write \"Der opstod en fejl: \" & Mailer.Response End If End if
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.