Aspmail using a database

[n0795]

This code below works ok but I want to be able to fill the "mail.addaddress field with a bunch of email addresses from an access database.
The database is called members.mdb and the field is called email.
Any help would be great
Thanks

Set mail = Server.CreateObject("Persits.Mailsender&quot
Mail.Host = "A Valid mail server.com"




strTest = request.form("Test&quot
strTest1 = request.form("Test1&quot
strTest2 = request.form("Test2&quot
strEmail = request.form("Email&quot


Mail.From = strEmail
Mail.FromName = "Test"
Mail.AddAddress "I want to use a access database here to send to everyone in the data base"
Mail.AddReplyTo "My reply address@my site.com"
'Mail.AddAttachment "c:\any file"
strBodyHeader = "This is todays ." & chr(13) & chr(10) & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "Test : " & strTest & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "Test1 : " & strTest1 & chr(13) & chr(10)
strBodyHeader = strBodyHeader & "Test2 : " & strTest2 & chr(13) & chr(10)
strBody = strBodyHeader & strBody
Mail.Subject = "Test site"
Mail.body = strBody
'Mail.Body = "Dear Fan:" & Chr(13) & Chr(10) & "Thank you for your business."


On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write &quot;Error encountered: &quot; & Err.Description
End If
%>

 

[DougP]

some how you need to create a loop that builds the string like so

Mail.AddAddress &quot;Email 1&quot;
Mail.AddAddress &quot;Email 2&quot;
Mail.AddAddress &quot;Email 3&quot;
Mail.AddAddress &quot;Email 4&quot;

These have to be on separate lines so it needs a carriage return line on the end

This will not work
Mail.AddAddress &quot;Email 1; Email 2; Email 3 etc


DougP, MCP

Visit my WEB site

http://www.barcodeone.com

to see how Bar-codes can help you be more productive