Brugervejledning

Prøv at søge på send + passoword i ASP kategorien her på eksperten. Nogle gange kan det godt betale sig at søge inden man opretter ;-)

Denne kan gøre det, med ASPmail


MailQuery = "SELECT TOP 1 * FROM TAddress WHERE Email= '" & request("Email") & "'"
Set mRS = Server.CreateObject("ADODB.Recordset")
mRS.Open MailQuery, myConn, 1, 3
Mnavn=mRS("Navn")
Memail=mRS("Email")
Musername=mRS("Username")
Mpassword=mRS("Password")

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.CharSet = 2
Mailer.FromName = "Website"
Mailer.FromAddress = "web@site.dk"
Mailer.RemoteHost = "mail.site.dk"
Mailer.AddRecipient Mnavn, Memail
Mailer.Subject = "Glemt login"

Mailer.BodyText = "Til: " & " " & Mnavn & vbCrLf _
& vbCrLf _
& vbCrLf _
                  & "******************************************************" & vbCrLf _
                  & "Dit login er: " & vbCrLf _
                  & "Username: " & ": " & Musername & vbCrLf _
                  & "Password :" & ": " & Mpassword & vbCrLf _
                  & "******************************************************" & vbCrLf _
                  & vbCrLf _
                  & "Venlig hilsen" & vbCrLf _
                  & "Administrator"
  If Mailer.SendMail Then
  Else
  Response.Write Mailer.Response
  End if


/s