Help rewrite this code please

[jesus4u]

How would you rewrite this code so that the it sends one email receipt to the sender with the 6 emails, represented by the array

MyEmail(Count)

written as well?

The way it is now the sender gets 6 separate emails with one email on each email sent.

To test and see what I am doing go to

http://www.whoisthisjesus.tv
look on the bottom for email this site to a friend.

thanks

[dmr]

in perl you'd do it like this:

for (my $i = 0; $i < $count; $i++) {
# your stuff

}

in vb it would be like this:

for i = 1 to Count
'your stuff

next



Hope this helps,
Dennis.

[jesus4u]

duh I forgot to paste the code

'--sends confirmation email to sender
	Dim wwit
	wwit = "www.WhoIsThisJesus.tv"

	For Count= 0 To 5
		If MyEmail(Count) <> "" AND AllOk = 0 Then
			'Set objCDO2 = Server.CreateObject("CDO.Message")
			Set objCDO2 = Server.CreateObject("CDONTS.NewMail")
				objCDO2.From = "[email protected]"
				objCDO2.To = SenderEmail 
						txtSubject2 = VBCrlf & VBCrlf & "The following email has been sent to the recipients listed below." & _
						VBCrlf & MyEmail(Count) & _
						VBCrlf & VBCrlf & "You have received an invitation from " & SenderEmail & " to visit " & wwit & _
						VBCrlf & "Watch 'Who Is This Jesus: Is He Risen?' TV special Easter weekend.  This expanded version of the Christmas broadcast of Who Is This Jesus?, which was seen by more " & _
						"than 12 million people during the Christmas holiday, includes new material never before aired. Hosted by well-known television pastor Dr. D. James Kennedy and popular " & _
						"actor Dean Jones, this powerful primetime production features experts from Westminster Abbey, Harvard, Notre Dame, Vanderbilt, the Jesus Seminar, and Princeton. Who Is " & _
						"This Jesus: Is He Risen? takes viewers through the maze of theories offered to explain or explain away the resurrection of Jesus Christ. And it leads them to what for millions " & _
						"is an inescapable conclusion. Click here for local listings! " & wwit & _
						VBCrlf & VBCrlf & "Watch for our Live Online Chat on April 13-15!"
				objCDO2.Subject = "Confirmation Email from WhoIsThisJesus.tv" 
				'objCDO2.TextBody = txtSubject2
				objCDO2.Body = txtSubject2
				objCDO2.Send
			Set objCDO2 = nothing  
		End If  		
   	Next

[jesus4u]

any ideas?