Ok her er det så.. du skal rette database navnet+stien til samt de kolonnenavne jeg har brugt... Filen har jeg kaldt: glemtpassword.asp
<HTML>
<head></head>
<body><center>
<%
function fixString(strInput)
if len(strInput) > 0 then
outString = replace(strInput,"'","''")
fixString = outString
else
fixString = strInput
end if
end function
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("bruger.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strDSN
Set rs = Server.CreateObject("ADODB.RecordSet")
email = fixString(Request.Form("email"))
strSQL= "SELECT * FROM bruger WHERE brugeremail = '" & email & "';"
Set rs = Conn.Execute (strSQL)
if not rs.EOF then
'send password til brugeren
Set JMail= Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "wmail.server.dk"
JMail.Sender = "mig@minadr.dk"
JMail.SenderName = "Den seje side"
JMail.Subject = "Password til den seje side"
JMail.AddRecipient rs("email")
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
BodyText = "Du har bedt om at få tilsendt dit password til XXX.dk" & vbCrLf
BodyText = BodyText & "Dit password er: " & rs("brugerKode")
JMail.Body = BodyText
JMail.Silent = true
JMail.Execute
Set JMail = Nothing
Response.Write "En mail med dit password er send til dig."
else
Response.Write "kunne ikke finde bruger oplysninger."
end if
Conn.Close
else
%>
<table border="1">
<form method="post" action="glemtpassword.asp" name="sendpassword">
<tr><td colspan="2" align="center">Jeg har glemt mit password, send det til mig.</td></tr>
<tr><td>E-mail:</td><td><input name="email"></td></tr>
<tr><td colspan="2" align="center"><input type="submit" value="Send" name="Action"></td></tr>
</form>
</table>
<%
end if
%>
</center>
</body>
</HTML>
