Jag sökte här på forumet och fick mycket till hjälp men ändå klarar jag inte lösa problemet.
If Request.QueryString("reqpass") = "req" Then
If NOT Request.Form("missedEpost") = "" Then strEmail = Cstr(Request.Form("missedEpost"))
SQL = "SELECT f_User, f_Password, f_Mail FROM t_Members where f_Mail = '" & strEmail & "'"
set rs = Connect.Execute(SQL)
[b]If LCase(rs("f_Mail")) = LCase(strEmail) Then[/b]
Set objJMail = Server.CreateObject("JMAIL.Message")
objJmail.From = "sico_eo@hotmail.com"
objJmail.FromName = "Badbet"
objJmail.AddRecipient strEmail
objJmail.Subject = "Begäran av lösenord"
objJmail.Body = "meddelandet"
objJmail.ContentType = "text/plain"
objJmail.Send("xxx")
Set objJmail = Nothing
Response.Write "<b class=big>Dina uppgifter är skickade till din e-post.</b>"
Else
Response.Write "<b class=big>Det gick inte att hitta e-postadressen i databasen.</b><br>" &_
"<a href='javascript:history.go(-1)'>Tillbaka</a>"
End If
End If
error skrev:
error '80020009'
/login.asp, line 271
En mycket viktig funktion som måste funka i nuläget och jag har pillat med det gött länge men får det aldrig att funka.
If Request.QueryString("reqpass") = "req" Then
If NOT Isnull(Request.Form("missedEpost")) = "" Then strEmail = Cstr(Request.Form("missedEpost"))
SQL = "SELECT f_User, f_Password, f_Mail FROM t_Members where f_Mail = '" & strEmail & "'"
set rs = Connect.Execute(SQL)
If Not rs.EOF Then
If LCase(rs("f_Mail")) = LCase(strEmail) Then
Set objJMail = Server.CreateObject("JMAIL.Message")
objJmail.From = "sico_eo@hotmail.com"
objJmail.FromName = "Badbet"
objJmail.AddRecipient strEmail
objJmail.Subject = "Begäran av lösenord"
objJmail.Body = "meddelandet"
objJmail.ContentType = "text/plain"
objJmail.Send("xxx")
Set objJmail = Nothing
Response.Write "<b class=big>Dina uppgifter är skickade till din e-post.</b>"
Else
Response.Write "<b class=big>Det gick inte att hitta e-postadressen i databasen.</b><br>" &_
"<a href='javascript:history.go(-1)'>Tillbaka</a>"
End If
Else
[b]Response.Write "<b class=big>Du måste ange en e-postadress.</b><br>" &_
"<a href='javascript:history.go(-1)'>Tillbaka</a>"[/b]
End If
End If
Det spelar ingen roll om man lämnar formuläret tomt eller om e-posten är korrekt. den går till den markerade raden ändå :(
Ok, det va visst fel mail inskriven i databasen *förlåt* :(
Den ger mig rätt svar om eposten hittas eller inte. Men jag får då inget mail skickat till inkorg. hmmm
Sidan ligger på loopia's server och dom har JMail är jag säker på. Rätt smtp-server är inskriven.
If Request.QueryString("reqpass") = "req" Then
If NOT Isnull(Request.Form("missedEpost")) = "" Then strEmail = Cstr(Request.Form("missedEpost"))
SQL = "SELECT f_User, f_Password, f_Mail FROM t_Members where f_Mail = '" & strEmail & "'"
set rs = Connect.Execute(SQL)
If Not rs.EOF Then
If LCase(rs("f_Mail")) = LCase(strEmail) Then
Set msg = Server.CreateObject("JMail.Message")
msg.Logging = True
msg.Silent = True
msg.ContentType = "text/plain"
msg.ISOEncodeHeaders = false
msg.AddRecipient strEmail
msg.From = "emil.olsson@badbet.se"
msg.FromName = "Badbet.se"
msg.Subject = "Begäran av lösenord"
txtBody = "En begäran av användarnamn och lösenord har skickats." &_
"" & VbCrLf & "" &_
"Användarnamn: " & rs("f_User") & " " & VbCrLf & "" &_
"Lösenord: " & rs("f_Password") & " " & VbCrLf & "http://www.badbet.se"
msg.Body = txtBody
msg.Send("xxx.xxx.xxx")
Response.Write "<b class=big>Dina uppgifter är skickade till din e-post.</b>"
End If
Else
Response.Write "<b class=big>Det gick inte att hitta e-postadressen i databasen.</b><br>" &_
"<a href='javascript:history.go(-1)'>Tillbaka</a>"
End If
End If
