forgot brugernavn + password

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"../../db/guestbook/guestbook.mdb\")
Conn.Open DSN

strSQL = \"Select * From Users Where Email = \'\" & Request.Form(\"Email\") & \"\'\"
Set rs = Conn.Execute(strSQL) %>
<% if rs.EOF then
response.write \"Bruger findes ikke\"
else
strUser = rs(\"User\")
strPass = rs(\"Password\")
%>

<%

\' Get the form data
name        = \"Navn\"
senderEmail = \"casper@mailme.dk\"
subject    = \"Password til bla bla\"
recipient  = request.form(\"Email\")
body        = \"Brugernavn = \" & strUser & vbCrLf & \"Password = \" & strPass


\' Create the JMail message Object
set msg = Server.CreateOBject( \"JMail.Message\" )

\' Set logging to true to ease any potential debugging
\' And set silent to true as we wish to handle our errors ourself
msg.Logging = true
msg.silent = true

\' Enter the sender data
msg.From = senderEmail
msg.FromName = name
\' Note that as addRecipient is method and not
\' a property, we do not use an equals ( = ) sign
msg.AddRecipient recipient

\' The subject of the message
msg.Subject = subject

\' And the body
msg.body = body

\' Now send the message, using the indicated mailserver
if not msg.Send(\"smtp.mail.dk\" ) then
    Response.write \"<br><br><font face=verdana size=2><div align=center>Couldn\'t send mail. Please try again!</div></font>\"
else
    Response.write \"<br><br><font face=verdana size=2><div align=center>Message sent succesfully!</div></font>\"
end if


\' And we\'re done! the message has been sent.


%>


<%
end if
Conn.Close
Set Conn = Nothing
%>