aca va el codigo:
<%
Envio=Split(Request.Form("email")," , ")
For i=0 to Ubound(Envio)
Dim strTo, strSubject, strBody
Dim objCDOMail 'The CDO object
strBody = "<html><body bgcolor='#FFFFCE'><p aling='center'><font face='arial' size='2'><b>Estimado " & Recordset1.Fields.Item("NOMBRE").Value & " " & Recordset1.Fields.Item("APELLIDO").Value & "</b></font></p><p align='center'><font face='Arial' size='2'><b>" & Request.Form("mensaje") & "</b></font></p><p align='center'>&nbsp;</p><p align='center'><font face='Arial' size='1'>El Casco</font></p></body></html>"
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = "Turismo El Casco <
[email protected]>"
objCDOMail.To=Envio(i)
objCDOMail.Subject = "Mensajero de ElCasco"
objCDOMail.Body = strBody
objCDOMail.BodyFormat = 0
objCDOMail.MailFormat = 0
objCDOMail.Send
Set objCDOMail = Nothing
Next
%>