Estoy intentando adaptar un codigo publicado aqui
que muestra los registros estilo hotmail
y permite selecionar los registros que se quiera para
que envie un email a los registros selecionados.
este es el archivo que permite selecionar los registros:
HOTMAIL.ASP
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!-- #include file="db.asp" -->
<html>
<head>
<title>Prueba Hotmail</title>
</head>
<body>
<form method="post" action="emailvarios.asp">
<table><tr>
<td>Id Pedido</td>
<td>Usuario</td>
<td>Total</td>
<td>Email</td>
</tr>
<%
Dim Rs,SQL
SQL="SELECT * FROM PEDIDOS"
Set Rs=db.Execute(SQL)
Do While Not Rs.EOF
%>
<tr><td>
<input type="checkbox" name="IdPedido" value="<%=Rs("IdPedido")%>">
</td>
<td><%=Rs("Usuario")%></td>
<td><%=Rs("Total")%></td>
<td><%=Rs("To")%></td>
</tr>
<%
Rs.MoveNext
Loop
%>
</table>
<input type="submit">
</form>
<%
db.Close
set RS = nothing
set db = nothing
%>
</body>
</html>
este es el archivo que envia los emails:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!-- #include file="db.asp" -->
<%'el archivo db crea la conexion%>
<%
set rs=db.Execute("select to from pedidos WHERE Idpedido IN("&Request.Form("Idpedido")&")")
%>
<%
strfrom="[email protected]"
strto=rs("to")
strsubject="Funciona"
strbody="bien"%>
<%
while not rs.eof
%>
<%
call sendmail(strfrom,strto,strsubject,strbody)
sub sendmail(strfrom,strto,strsubject,strbody)
set mymail=createobject("cdo.message")
mymail.from=strfrom
mymail.to=strto
mymail.subject=strsubject
mymail.textbody =strbody
mymail.send
set mymail=nothing
end sub
%>
<%
rs.movenext
wend
%>
<%'Cerramos el sistema de conexion
db.Close
set RS = nothing
set db = nothing
%>
Este es el error que obtengo:
Tipo de error:
Error de compilación de Microsoft VBScript (0x800A03EA)
Error de sintaxis
/webstock/emailvarios.asp, line 17
sub sendmail(strfrom,strto,strsubject,strbody)