Glæmt password

Hejsa dette skulle kunne gøre det du ber om, du skal selv lige tilpasse filnavne og serveroplysninger.

------------- Mail_retrive_login.asp ------------


  Str_Email=Request.Form(\"Email\")

  \' BEGIN - Checks if there is entered an e-mail and if its valid ####
  If Not Str_Email&\"\"=\"\" Then
    x=Valider(Str_Email)
    If x=false Then
      Response.Redirect \"Default.asp?Error_Login=2\"
    end if
  end if
  \' END - Checks if there is entered an e-mail and if its valid ####

  \' #### BEGIN ## Find user-details, if an account existe with that e-mail ####
  Set rs = Server.CreateObject(\"ADODB.RecordSet\")
  SQL_Str=\"SELECT User_ID, Username, Password, Email, FROM Users WHERE Email LIKE \'\"& Str_Email&\"\'\"
  strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"/sejs.mdb \")
  rs.Open SQL_Str, strDSN, 1, 1
  If Not rs.EOF Then
    Str_UserID=rs(\"User_ID\")
    Str_Username=rs(\"Username\")
    Str_Password=rs(\"Password\")
    rs.close
    Set rs=nothing
  else
    rs.close
    Set rs=nothing
    Response.Redirect \"Default.asp?Error_Login=1\"
  end if
  \' #### END ## Find user-details, if an account existe with that e-mail ####

  \' #### BEGIN ## Generate message for e-mail ####
  Str_Message=\"\"
  Str_Message=Str_Message & \"Hejsa \" & Str_Username & vbCrLf
  Str_Message=Str_Message & \"Nå så du har glemt dit brugernavn og password? Så er det jo heldigt jeg har det her:\" & vbCrLf & vbCrLf
  Str_Message=Str_Message & \"  Brugernavn: \" & Str_Username & vbCrLf 
  Str_Message=Str_Message & \"  Password: \" & Str_Password & vbCrLf & vbCrLf
  Str_Message=Str_Message & \"Værsgo Have fun! :)\" & vbCrLf & vbCrLf
  Str_Message=Str_Message & \"Med venlig hilsen\" & vbCrLf
  Str_Message=Str_Message & \"Sejs\" & vbCrLf
  Str_Message=Str_Message & \"http://www.din.server.dk/\" & vbCrLf
  \' #### END ## Generate message for e-mail ####

  \' #### BEGIN ## Send e-mail to user using JMail component (http://tech.dimac.net/) ####
  Name = \"Sejs\"
  SenderEmail = \"din@mail.dk\"
  Subject = \"Sejs: Brugernavn & Password retrivel\"
  Recipient = Str_Email

  Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
  \' Enter your own SMTP-server here
  JMail.ServerAddress = \"din.SMTPserver.dk\"
  JMail.Sender = SenderEmail
  JMail.Subject = Subject
  JMail.AddRecipient Recipient
  JMail.Body = Str_Message
  JMail.Priority = 3
  JMail.AddHeader \"Originating-IP\", Request.ServerVariables(\"REMOTE_ADDR\")
  JMail.Execute
  \' #### END ## Send e-mail to user using JMail component (http://tech.dimac.net/) ####

  Response.Redirect \"Default.asp?Page=RetrivedOk\"

-------------- end file -----------

Mvh
Jack!!

Har lige prøvet din løsning, det virker ikke...

stik mig din mail så sender jeg dig en password forget ting

stsejs@worldonline.dk

>> no_doubt

Tak for det, det virker fint, dog har jeg lidt problemer med body indholdet, jeg vil gerne have nogle flere linier i, end dem der er fra start, men den sender kun den nederste body linie, hvorfor det, jeg mener jeg har set flere stedet at man godt kan have flere body linier, eller skal jeg skrive det hele ind i en linie???

Nogen der kan fortælle mig hvad der er galt med denne sætning:
JMail.Body = \"Hej\" realname & vbcrlf & \"Hermed sender vi dig dine loginoplysninger til www.stses.dk/erer\" & vbcrlf & \"Dit brugernavn er:\" username  & vbcrlf & \"Dit password er:\" password  & vbcrlf & \"Denne mail er sendt til:\" email & vbcrlf & \"Hvis du ønsker at ændre dine indstillinger så gå ind på www.stses.dj/wewe og ret dine oplysninger\"  & vbcrlf & \"Med venlig hilsen\"  & vbcrlf & afsender

Så må det være noget tilpasning, bruger det nu selv så det skal sq virke ;o)

Jack!!

..staves GLEMT

Skriv det i HTML syntax hvis det er nemmere:

JMail.Body = \"<HTML>Hej...</HTML>\"

Ok det prøver jer, når jeg så skal sætte et felt ind, f.eks. \"realname\" hvordan gør jeg så dette??

I det eksempel jeg gav vil det være
Str_Realname=rs(\"Realname\") og så hive den ud f.eks sådan her:
Str_Message=Str_Message & \"Hejsa \" & Str_Realname & vbCrLf

Mvh
Jack!!

stsejs >>

Skal du smide en variabel ind fx din Str_Password skriver du det således:

\" & Str_Password & \"

Mvh
/bms

Dvs:

JMail.Body = \"<HTML>Hej \" & Str_Username & \"<br>Hermed sender vi dig dine loginoplysninger til <a href=\"www.stses.dk</a>..." target="_blank">http://www.stses.dk/erer>www.stses.dk</a>... bla...bla.....  </HTML>

Jeg fandt ud af det..

Når jeg forsøgte at sætte det ind via str_xxx kom der ingen e-mail frem, men sådan her virker det:

JMail.Body = \"Hej \" & realname & vbcrlf & \"\" & vbcrlf & \"Hermed sender vi dig dine loginoplysninger til http://zzz.dk\" & vbcrlf &  \"\" & vbcrlf & \"Dit brugernavn er: \" & username & vbcrlf & \"\" & vbcrlf & \"Dit password er: \" & password & vbcrlf & \"\" & vbcrlf & \"Denne mail er sendt til: \" & email & vbcrlf & \"\" & vbcrlf & \"Hvis du ønsker at ændre dine indstillinger så gå ind på zzz.dk og vælg ret oplysninger i menuen\" & vbcrlf & \"\" & vbcrlf & \"Med venlig hilsen\" & vbcrlf & \"\" & vbcrlf & \"webmaster\"