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
%>