I can use some help here. This is a lost password recovery script that
connects to a MSAccess MDB. Any Help would be greatly appreciated.

Thank you

Jim Rojas


<%
'sets variables
email = request.form("email")
'chooses username and password from database that correspond to
submitted email address.
user = objrs.Fields("login")
pass = objrs.Fields("password")
expires = objrs.Fields("expires")
Set sendmail = Server.CreateObject("CDONTS.Newmail")
sendmail.From = "jrojas (AT) tech-man (DOT) com"
sendmail.To = email
sendmail.Subject = "The login information you requested"
sendmail.Body = "Here is the login information you requested." & vbCrlf
& vbCrlf _
& "UserID: " & user & vbCrlf _
& "Password: " & pass & vbCrlf _
& "Expires: " & expires & vbCrlf _
& " " & vbCrlf _
& "Thank you " & vbCrlf _
& " " & vbCrlf _
& "Jim Rojas " & vbCrlf _
& "Technical Manuals Online! " & vbCrlf _
& "http://www.tech-man.com " & vbCrlf
sendmail.Importance = 2
sendmail.Send
%>

I figured it out. It wasn't too bad.

Jim Rojas

<%
'sets variables
email = request.form("email")
'chooses username and password from database that correspond to
submitted email address.
user = objrs.Fields("login")
pass = objrs.Fields("password")
expires = objrs.Fields("expires")
sch = "http://schemas.microsoft.com/cdo/configuration/"

Set cdoConfig = Server.CreateObject("CDO.Configuration")
cdoConfig.Fields.Item(sch & "sendusing") = 2
cdoConfig.Fields.Item(sch & "smtpserver") = "localhost"
cdoConfig.Fields.Item(sch & "smtpserverport") = 25
cdoConfig.fields.update
Set sendmail = Server.CreateObject("CDO.Message")
Set sendmail.Configuration = cdoConfig
Sendmail.From = "jrojas (AT) tech-man (DOT) com"
Sendmail.To = email
Sendmail.Subject = "The login information you requested"
Sendmail.TextBody = "Here is the login information you requested." &
vbCrlf & vbCrlf _
& "UserID: " & user & vbCrlf _
& "Password: " & pass & vbCrlf _
& "Expires: " & expires & vbCrlf _
& " " & vbCrlf _
& "Thank you " & vbCrlf _
& " " & vbCrlf _
& "Jim Rojas " & vbCrlf _
& "Technical Manuals Online! " & vbCrlf _
& "http://www.tech-man.com " & vbCrlf
Sendmail.Send
%>

Your login information has been mailed to <%=email%>.<br>
You should receive it shortly.<br><br>
<A HREF="login.asp">Return To Login Page</A>
<%
' Close Data Access Objects and free DB variables
objDC.Close
Set objRS = Nothing
Set objDC = Nothing
Set sendmail = Nothing
Set cdoConfig = Nothing
%>