Vad har problemet med glömt lösenord att göra?
Frågan#1
Nu kommer jag med ännu ett problem och det är i annat script då man skriver i sin mail och sedan skickar så skall den hämta uppgifterna i databsen och skicka till användaren. Men då kommer ett felmeddelande upp som ser ut så här: felet är där det är fetmakerat
Server object error 'ASP 0177 : 800401f3'
Server.CreateObject Failed
/piraten/forget1.asp, line 33
800401f3
<%
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")
[B]Set cdoMail = Server.CreateObject("CDONTS.NewMail")[/B]
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
%>
