Mailet skickas och allt i det stämmer men jag har en problem ändå..
Forluläret set altså ut så att man skriver in ett användarnamn så skickas lösen till dess mail han/hon hade under sina inställningar...
If Request.QueryString("reqlosen") = "req" Then
If Not Isnull(Request.Form("Username")) Then strUsername = Cstr(Request.Form("Username"))
SQL = "SELECT f_User, f_Password, f_Mail FROM t_Members where f_User = '" & strUsername & "'"
set RSConn = Connect.Execute(SQL)
Set CDOMail = Server.CreateObject("CDONTS.NewMail")
CDOMail.From = "sico__@hotmail.com"
CDOMail.To = RSConn("f_Mail")
CDOMail.Subject = "Ditt lösenord"
CDOMail.Body = "Ditt lösenord är = " & RSConn("f_Password") & ""
CDOMail.Send
If CDOMail.Send=true Then
[b]Response.Write "Lösenordet är skickat till din mail"[/b]
Else
Response.Write "Det gick inte att hitta användaren"
End If
Set CDOMail = Nothing
End If
Men jag får felmeddelande när det är skickat
Error Type:
(0x80040108)
/forum/login.asp, line 129
Rad 129 är markerad med fet stil... vad e fel?
Har ni nåt bättre sätt att utföra det hela så är jag öppen för förslag...
[red]
On Error Resume Next
Set CDOMail = Server.CreateObject("CDONTS.NewMail")
CDOMail.From = "sico__@hotmail.com"
CDOMail.To = RSConn("f_Mail")
CDOMail.Subject = "Ditt lösenord"
CDOMail.Body = "Ditt lösenord är = " & RSConn("f_Password") & ""
CDOMail.Send
If Err.Number <> 0 Then
Response.Write "Lösenordet är skickat till din mail"
Else
Response.Write "Det gick inte att hitta användaren"
End If
[/red]