Glömt lösenord script ???

Jag undrar om det är någon som har ett sådant script i jmail som man kunde få. Har haft ett men är inte fan till att hitta det. Det ända den behöver skicka ut är ett lösenord för jag använder email som användernamn.

Sökte på wF på jmail och jag hittar ett inlägg av dig:
http://www.webforum.nu/showthread.php?t=152429

Jag vet !!!

Men det är ju i cdonts mail. Det är ju det gamla jag hade innan men sen lyckades jag med att få det till jmail man har total glömt hur jag gjorde så därför ställer jag frågan en gång till här om det är någon som har ett färdigt script????

Varför inte använda din cdonts skript och bara byta ut de delar som är Cdonts till Jmail. Är inte så extremt svårt. Sök här på Jmail och CDonts så finns det flera exemplen på wF hur man byter från Cdonts till Jmail.

Det är nog inte så många här som slänger upp ett fungerade skript för din lösning. Ge oss den kod du har idag så kan man hjälpa dig där ifrån.

????

Du har inte lust att visa mig vilka som ska bytas ?

<%
strMail = trim(Request.Form("email")) 
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source = "& Server.MapPath("databas/main.mdb")
SQL = "SELECT * FROM login WHERE email = '"& strMail &"'"
Set RecSet = Connect.Execute(SQL) 
If RecSet.EOF Then 
Response.Write "<font color=red><center><br><br><br><br>Den angivna mailadressen finns inte, försök igen.</font>" 
Else 

strUserMail = RecSet("email") 
strUserPass = RecSet("losen") 

Set cdoMail = Server.CreateObject("CDONTS.NewMail")  
cdoMail.From = "info@fotopiraten.se" 
'# Till...vi har ju värdet i email från formuläret 
cdoMail.To = strmail 
'# Ämnet 
cdoMail.Subject = "Ditt lösenord:"
'# Själva meddelandet 
cdoMail.Body = "ditt lösenord är: "& strUserPass & vbcrlf & vbcrlf & vbcrlf _ 
 
& "Här kommer dit lösenord www.fotopiraten.se" 

'# Skicka skiten 
cdoMail.Send 
'# Meddelande så användaren vet att mailet är skickat 
Response.Write "<center><br><br><br><br>Ditt lösenord är skickat till: " & strmail 

'# Stäng alla objekt & kopplingar enligt god sed 
Set cdoMail = Nothing 

RecSet.Close
Set RecSet = Nothing 
Connect.Close
Set Connect = Nothing 
end if 
%>

ändra:

Set cdoMail = Server.CreateObject("CDONTS.NewMail")  
cdoMail.From = "info@fotopiraten.se" 
'# Till...vi har ju värdet i email från formuläret 
cdoMail.To = strmail 
'# Ämnet 
cdoMail.Subject = "Ditt lösenord:"
'# Själva meddelandet 
cdoMail.Body = "ditt lösenord är: "& strUserPass & vbcrlf & vbcrlf & vbcrlf _ 
 
& "Här kommer dit lösenord www.fotopiraten.se" 

'# Skicka skiten 
cdoMail.Send

Med Jmail koden.

Set objMessage = Server.CreateOBject("JMail.Message")
objMessage.From = "info@fotopiraten.se" 
'# Till...vi har ju värdet i email från formuläret 
objMessage.AddRecipient = strmail 
'# Ämnet 
objMessage.Subject = "Ditt lösenord:"
'# Själva meddelandet 
objMessage.Body = "ditt lösenord är: "& strUserPass & vbcrlf & vbcrlf & vbcrlf & "Här kommer dit lösenord www.fotopiraten.se" 

'# Skicka skiten 
objMessage.ContentType = "text/plain"

objMessage.Send("[b]mail.server.nu[/b]")

Enligt ditt svar från början av året: http://www.webforum.nu/showthread.php?t=152429

Jag har inte Jmail så jag vet inte 100% att det stämmer.

får detta felmeddelande ???

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'objMessage.AddRecipient'

/forget1.asp, line 17

ta bort = från den raden:

objMessage.AddRecipient strmail

Tack så mycket det var guld värt !!!!