Hello, I am writting a mailing list script, and I need to pull information from the database for each user. I have a book which gave the following code, however I get an exception when I try to personalise the E-mails:<BR><BR>error &#039;80020009&#039; <BR>Exception occurred. <BR><BR>/ml/sendMsg.asp, line 26 <BR><BR><BR>What could be wrong, here is the script the book gave me:<BR><BR>&#060;%@ Language=VBScript %&#062;<BR>&#060;!-- #include file="../adovbs.inc" --&#062;<BR>&#060;%<BR><BR>Dim Con<BR>Dim rs<BR><BR>Set Con = Server.CreateObject( "ADODB.Connection" )<BR>Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ= mydatabase.dbm"<BR>Set rs = Server.CreateObject( "ADODB.Recordset" )<BR><BR>Dim newMailObj<BR>Dim sMailBody<BR>Dim sSql<BR><BR>For i = 1 to Request.Form("sendEMail").Count<BR> sSql = "select forename from user where email=&#039;"& Request.Form("sendEMail")(i) &"&#039;"<BR> rs.Open sSql, Con, adOpenForwardOnly, adLockReadOnly<BR> <BR> Set newMailObj = CreateObject("CDONTS.Newmail")<BR> newMailObj.From = "myemail@mysite.com"<BR> newMailObj.To = Request.Form("sendEMail")(i) <BR> newMailObj.Subject = Request.Form("subject")<BR><BR> newMailObj.BodyFormat = CdoBodyFormatText <BR> sMailBody = "Dear " & rs.Fields("forename") & "," & vbNewLine & vbNewLine<BR> sMailBody = sMailBody & Request.Form("message")<BR> newMailObj.Body = sMailBody<BR> newMailObj.Send<BR> Set newMailObj = Nothing<BR> rs.Close()<BR>next<BR><BR>Con.Close()<BR>Set rs = Nothing<BR>Set Con = Nothing<BR><BR>%&#062;<BR><BR>Thanks for your help