Automatically e-mail in classic ASP using query results from user defined fields

Sub SendMailCDOSYS(strFrom,strTO,strSubject,strBCC,strHTMLBody,strTextBody,strAttachmentPath,arrAttachments)
On Error Resume Next
     Dim objCDOConf,objCDOSYS,i
     ' ** CREATE THE E-MAIL SERVER OBJECT **
     Set objCDOSYS = Server.CreateObject("CDO.Message")
     Set objCDOConf = Server.CreateObject ("CDO.Configuration")
 
     ' ** SET AND UPDATE FIELDS PROPERTIES **
     With objCDOConf
          ' ** OUT GOING SMTP SERVER **
          .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "YourMailServerHere"
          ' ** SMTP PORT **
          .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")  = 25
          ' ** CDO PORT **
          .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
          ' ** TIMEOUT **
          .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
					'Your UserID on the SMTP server
					.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "YourUsername"					
					'Your password on the SMTP server
					.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "YourPassword"
          
          
          
          .Fields.Update 
     End With
 
     ' ** UPDATE THE CDOSYS CONFIGURATION **
     Set objCDOSYS.Configuration = objCDOConf
 
     With objCDOSYS     
          ' ** WHO THE E-MAIL IS FROM ** 
          .From = strFrom
 
          ' ** WHO THE E-MAIL IS SENT TO **
          .To = strTo
                    
          ' ** THE SUBJECT OF THE E-MAIL **
          .Subject = strSubject
            
          If strBCC <> "" then
          	.BCC = strBCC
          End if              
            
          ' ** SET THE E-MAIL BODY FORMAT (HTMLBody=HTML TextBody=Plain) **
          .HTMLBody = strHTMLBody
          .TextBody = strTextBody
 
               
          ' ** SET Attachments If any ** 
					If UBound(arrAttachments) <> -1 then
						for i=0 to UBound(arrAttachments) -1
							.AddAttachment strAttachmentPath & "\" & arrAttachments(i)
						next 
					End if          
          ' ** SEND THE E-MAIL **
          .Send          
     End with                    
       
     ' ** CLOSE THE SERVER MAIL OBJECT **
     Set objCDOSYS = Nothing
End Sub

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62: