Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Amigos consegui montar esta aplicação, tá quase funcionando, parece que falta pouco agora, mas na hora que clico em enviar, fica um tempão sem a página ser enviada ou sem a msg de erro correspondente ela fica como se estivesse carregando e nunca terminasse.
colcoquei o código abaixo para facilitar, encontrar o erro.
PAGINA COM O SCRIPT DE ENVIO
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
endereco = "http://www.MeuSite.com.br/popups/promocoes.asp" 'ESTA É A PAGINA QUE DEVE SER ENVIADA
Set PegaHTML = Server.CreateObject("Microsoft.XMLHTTP")
PegaHTML.open "GET", endereco, false
PegaHTML.send()
Corpo = PegaHTML.ResponseText
' change to address of your own SMTP server
strHost = "smtp.MEU SERVIDOR.com.br"
If Request("Send") <> "" Then
Set Mail = Server.CreateObject("Persits.MailSender")
' enter valid SMTP host
Mail.Host = strHost
Mail.From = Request("From")
Mail.FromName = Request("FromName")
Mail.AddAddress Request("To")
' message subject
Mail.Subject = Request("Subject")
Mail.Body ="corpo"
strErr = ""
bSuccess = False
On Error Resume Next
Mail.Send
If Err <> 0 Then
strErr = Err.Description
else
bSuccess = True
End If
End If
%>
PAGINA QUE RECEBE OS DADOS POR FORMULARIO
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<HTML>
<BODY BGCOLOR="#FFFFFF">
<FORM METHOD="get" ACTION="teste.asp">
<TABLE CELLSPACING=0 CELLPADDING=2 BGCOLOR="#E0E0E0">
<TR>
<TD><B><% = strHost %></B></TD>
</TR>
<TR>
<TD>De:</TD>
<TD><INPUT TYPE="TEXT" NAME="From"></TD>
</TR>
<TR>
<TD>Nome::</TD>
<TD><INPUT TYPE="TEXT" NAME="FromName"></TD>
</TR>
<TR>
<TD>Para:</TD>
<TD><INPUT TYPE="TEXT" NAME="To"></TD>
</TR>
<TR>
<TD>Assunto:</TD>
<TD><INPUT TYPE="TEXT" NAME="Subject"></TD>
</TR>
<TR>
<TD COLSPAN=2><div align="center">
<INPUT TYPE="SUBMIT" NAME="Send" VALUE="Enviar">
</div></TD>
</TR>
</TABLE>
</FORM>
</BODY>
</HTML>E AÊEE GENTE ALGUEM TEM MAIS ALGUMA LUZ ?
Carregando comentários...