07/05/2006, 13:26
|
 | | | Fecha de Ingreso: diciembre-2005 Ubicación: Argentina
Mensajes: 383
Antigüedad: 19 años, 5 meses Puntos: 7 | |
Bueno lo intenté y no me salió 
me da ese error:
Código:
Error de Microsoft VBScript en tiempo de ejecución error '800a01a8'
Se requiere un objeto: 'oRs'
/instinto/autoemails.asp, línea 45
y esta es mi pagina: autoemails.asp
Código:
<%
dim datos,con
datos= Server.MapPath ( "/instinto/bd/instinto.mdb" )
Set con= Server.CreateObject("ADODB.connection")
con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data source="&datos&";"
cText="<STYLE>" & chr(13) & chr(10)
cText=cText & ".indexr { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; font-weight: bold; color: #CC0000; text-decoration: none}" & chr(13) & chr(10)
cText=cText & ".texto { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; color: #000000}" & chr(13) & chr(10)
cText=cText & ".titulo { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 18px; font-weight: normal; color: #003366}" & chr(13) & chr(10)
cText=cText & "</STYLE>" & chr(13) & chr(10)
cText=cText & "<body bgcolor=""#FFFFFF"" text=""#000000"" leftmargin=""0"" topmargin=""0"" marginwidth=""0"" marginheight=""0"">" & chr(13) & chr(10)
cText=cText & "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"" height=""100""> " & chr(13) & chr(10)
cText=cText & "<tr> <td class=""texto"">Estimado/a " & Session("cUsuario") & "</td></tr>" & chr(13) & chr(10)
cText=cText & "<tr><td> </td></tr> " & chr(13) & chr(10)
cText=cText & "<tr><td class=""texto""> Aqui pones lo que quieras................</td></tr> " & chr(13) & chr(10)
cText=cText & "<tr><td class=""texto"" height=""51"">......Agradecemos el tiempo y la confianza dedicados.......</td></tr> " & chr(13) & chr(10)
cText=cText & "<tr><td class=""indexr"">.............</td></tr> " & chr(13) & chr(10)
cText=cText & "<tr><td > </td></tr> " & chr(13) & chr(10)
cText=cText & "<tr><td ><hr></td></tr> " & chr(13) & chr(10)
cText=cText & "<tr><td class=""texto"">Desarrollos ..............</td></tr> " & chr(13) & chr(10)
cText=cText & "</table>"
Set Mail=Server.CreateObject("Persits.MailSender")
Mail.Host="smtp.gmail.com"
Mail.Port=587
Mail.From="[email protected]"
Mail.FromName = "INSTINTO"
Mail.Subject= "Próximas Fechas"
Mail.IsHtml=True
Mail.Body=cText
' Tus destinatarios
set rs=createobject("ADODB.Recordset")
'rs.CursorType = adOpenKeyset
'rs.LockType = adLockOptimistic
rs.open "select * from Emails order by id desc",con
' Recorremos el RecordSet
While not oRs.EOF
Mail.AddAddress oRs(3)
oRs.MoveNext
Wend
oRs.Close ' PAra cerrar el RecordSEt
'
Mail.AddBcc ""
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error: " & Err.Description
End if
con.close
set con=nothing
%>
Espero que sepas perdonar mi ignorancia pero es que recién estoy incursionando en esto de asp.
Saludos.  |