Problemas enviando email

edcala · #1 (**permalink**) 31/03/2005, 10:05

Hola a todos, y espero su ayuda.
El siguiente código, llega a enviar el email respectivo a todos los que estan registrados en una base de datos, pero, despues de enviarlo, debe direccionar a una página que genere un mensaje que diga que elos email se han enviado, sin embargo, no sale esa página y se visualiza el mensaje de "página no encontrada" en el explorer.
¿Cual sería el problema y la solucion?, espero su ayuda.

Código:

<%
Response.Buffer = True 
Dim asunto, cuerpo
asunto=request.form("asunto")
cuerpo=request.form("cuerpo")

Dim pagina_atual, total_paginas, ComandoSQL, objRS, objRS_atualiza, Conexao, status_envio

Const registros_por_pagina = 10

If Request.QueryString("pagina_atual") = "" Or Request.QueryString("pagina_atual") = "0" Then
pagina_atual = 1
Else
pagina_atual = Request("pagina_atual")
End If

basedatos = Server.MapPath("../../db/foroCQFP2.mdb")
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & basedatos & ";"

ComandoSQL = "SELECT ApPaterno,ApMaterno,nombre,email FROM usuarios ORDER BY email ASC"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.CursorLocation = 3
objRS.CursorType = 2
objRS.LockType = 1
objRS.CacheSize = registros_por_pagina
objRS.Open ComandoSQL, Conexao,,, &H0001
objRS.PageSize = registros_por_pagina
status = ""

If Not objRS.EOF Then

objRS.AbsolutePage = pagina_atual

total_paginas = objRS.PageCount

status_envio = status_envio & Fix((pagina_atual*100)/total_paginas) & "% enviado<br>"

For Cont = 1 to objRS.PageSize

Mensagem = ""
Mensagem = Mensagem &"<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.0 Transitional//EN'>"
Mensagem = Mensagem & "<HTML><HEAD>"
Mensagem = Mensagem & "<META content='text/html; charset=iso-8859-1' http-equiv=Content-Type>"
Mensagem = Mensagem & "<META content='MSHTML 5.00.2614.3500' name=GENERATOR></HEAD>"
Mensagem = Mensagem & "<BODY leftmargin=0 rightmargin=0 bottommargin=0 topmargin=0>"

Mensagem = Mensagem & cuerpo

Mensagem = Mensagem & "</BOBY>"
Mensagem = Mensagem & "</HTML>"

Set ObjMail = Server.CreateObject("CDONTS.NewMail")


ObjMail.to = objRS("email")

ObjMail.from = "Colegio Químico Farmacéutico del Perú <[email protected]>"
objMail("Reply-To") = "[email protected]"
ObjMail.subject = asunto
ObjMail.Importance = 1
ObjMail.BodyFormat = 0
ObjMail.MailFormat = 0

ObjMail.body = Mensagem

ObjMail.send

Set ObjMail = nothing

objRS.MoveNext
Next

%>

<html>
<head>
<title>Newsletter</title>
</head>
<body>

<%
If Int(pagina_atual) < Int(total_paginas) Then

Response.Write status_envio

%>

<br>Aguarde el envio del newsletter...

<SCRIPT LANGUAGE="JavaScript">
<!--
function atualiza(){
document.location.href = "<%=Request.ServerVariables("SCRIPT_NAME")%>?pagina_atual=<%=pagina_atual+1%>"
}
setTimeout("atualiza()",5000);
//-->
</SCRIPT>

<%
Else

%>

Envio del Newsletter concluido.

<%
End If
End If
%>

</body>
</html>

<%
objRS.Close
Conexao.Close

Set pagina_atual = Nothing
Set total_paginas = Nothing
Set ComandoSQL = Nothing
Set objRS = Nothing
Set objRS_atualiza = Nothing
Set Conexao = Nothing
Set status_envio = Nothing
%>

Myakire · #2 (**permalink**) 31/03/2005, 10:33

Bueno, puedes hacer un alert("<%=Request.ServerVariables("SCRIPT_NAME")%> ?pagina_atual=<%=pagina_atual+1%>") para ver si se ha formado bien la página, o mejor aún, puedes colocar el mensaje que deseas en el cuerpo de el archivo que envía los correos con un botón de regresar o lo que sea que le ayude al usaurio a seguir navegando.

edcala · #3 (**permalink**) 31/03/2005, 18:09

Me sigue saliendo el mismo problema, algún otro comentario por favor.
Gracias

u_goldman · #4 (**permalink**) 31/03/2005, 18:42

Pero hiciste lo que te dijeron?? la solucion es saber si se ha formado bien la URL a la que vas a redirigir, que te da por resultado?
O que direccion te da en la barra de direcciones cuando te dice que no encontro la pagina?

Salu2,

edcala · #5 (**permalink**) 31/03/2005, 19:15

Gracias por responder. Me explico mejor.
El formulario sirve para enviar email a todos los registrados en una base de datos.
Para lo cual lee los correos y los pagina de 10 en 10 en orden alfabético.
El siguiente código JavaScrip actualiza la página y envia los email cada 5 segundos.

Código:

<SCRIPT LANGUAGE="JavaScript">
<!--
function atualiza(){
document.location.href = "<%=Request.ServerVariables("SCRIPT_NAME")%>?pagina_atual=<%=pagina_atual+1%>"
}
setTimeout("atualiza()",5000);
//-->
</SCRIPT>

Ahora, el problema esta en la última página: si en la base de datos hay 50 registrados (o multiplo de 10), entonces, todo marcha ok. No hay error alguno.
Pero, si son por ejemplo 51, 52 u otra cantida que no sean múltiplo de 10, entonce la últmina página no se carga y sale un error y dice no se puede mostrar la página, y los correos dentro de este rango llegan pero todo en blanco.

Espero me haya explicado y por favor, necesito ayuda.
Gracias