si me di cuenta de eso y ya no me sale el error, el problema es que no envia los mails ahora, pongo el codigo para que lo veas:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/mensajes.asp" -->
<%
VarID=Request.Form("id")
set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_elcasco_STRING
Recordset1.Source = "SELECT * FROM miembros WHERE EMAIL IN('VarID')"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()
Recordset1_numRows = 0
%>
quizas hay algo mal en ese codigo, tambien pongo el codigo que envia el email:
<%
Do While NOT Recordset1.EOF
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=Recordset1.Fields.Item("EMAIL&q uot;).Value
objCDOMail.Subject = "Mensajero de ElCasco"
objCDOMail.Body = strBody
objCDOMail.BodyFormat = 0
objCDOMail.MailFormat = 0
objCDOMail.Send
Set objCDOMail = Nothing
Recordset1.MoveNext
Loop
%>