How to pull Query Results & put into a email to user

[artsybrenda]

I know this is simple for most, but it has been KILLING me for about 2 weeks. I
need a process to send users their "forgotten" login information. I have the
connection and I have the recordset checking to make sure the email is in the
database and if so, is returning that person's email, username and password..
My remote host only lets me use ASPMail and I am using his sample script in my
page. But, for the life of me, I can't figure out how to put the results of
query into the email. I have even spent $100 on InterAKT's Impakt thinking it
would work for me automatically--but it does not work for me.

I am attaching the code to see if anyone can tell me how to put the parameters
in. The mail works if I MANUALLY put in a person's address, but I need it to be
done automatically. Please help.

Using DWMX 04, MS SQL, ASP, VBScript on a remote host that does not support
CDONTS.

[Manuel Socarras]

this example uses Access DB so, it'll need some changes

HTH,

manuel

<%
....

userEmail = Request.QueryString("emailForm")


' Retrieve data from Clients DB
strDBPath = Server.MapPath("../Data/clients.mdb")
Set connDB = Server.CreateObject("ADODB.Connection")
connDB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath
Set rsClients = connDB.Execute("SELECT NAME,LASTNAME,USER,PWD FROM Data
WHERE EMAIL = '" & userEmail & "'")

If rsClients.EOF Or rsClients.BOF Then
Response.Write "Mail not in DB!"
rsClients.Close
Set rsClients = Nothing
connDB.Close
Set connDB = Nothing

Response.End
End If

userName = rsClients.Fields("NAME").Value & " " &
rsClients.Fields("LASTNAME").Value
user = rsClients.Fields("USER").Value
pwd = rsClients.Fields("PWD").Value

rsClients.Close
Set rsClients = Nothing
connDB.Close
Set connDB = Nothing

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "XYZ"
Mailer.FromAddress= "info@xyz.com"
Mailer.RemoteHost = "smtp.xyz.com"
Mailer.AddRecipient userName, userEmail
Mailer.Subject = "Your login info"
Mailer.ContentType = "text/html"
Mailer.BodyText = "..."

If Mailer.SendMail Then
Response.Write "Mail sended"
Else
Response.Write "Error: " & Mailer.Response
End If
%>