Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
estou tentando executar na net um sisteminha de email....até ae td bem...acesso o form para enviar...preencho os dados..quando clico em enviar da erro no servido...liguei no tel do servidor... e eles me disseram que meu código é asp premiun, e que eles só executam asp standard...minha pergunta é...isso é realmente verdade...e se for verdade, como fasso para passar o seguinte codigo para asp standard::formulario.asp
<html> <head> <title>ITM NETWORKS - Persits MailSender</title> </head> <body> <p align="center"><font face="Arial">Exemplo de uso do Componente Persits MailSender<br> </font> </p> <form method="POST" action="enviar.asp" name="form" target="_self"> <div align="center"> <table border="0" width="43%"> <tr> <td width="23%"><font face="Arial">Nome:</font></td> <td width="74%"><font face="Arial"><input type="text" name="fromnome" size="20"></font></td> </tr> <tr> <td width="23%"><font face="Arial">E-Mail:</font></td> <td width="74%"><font face="Arial"><input type="text" name="fromemail" size="20"></font></td> </tr> <tr> <td width="23%"><font face="Arial">Assunto:</font></td> <td width="74%"><font face="Arial"><input type="text" name="assunto" size="20"></font></td> </tr> <tr> <td width="23%" valign="top"><font face="Arial">Mensagem:</font></td> <td width="74%"><font face="Arial"><textarea rows="5" name="mensagem" cols="30"></textarea></font></td> </tr> <tr> <td width="23%"></td> <td width="74%"><font face="Arial"><input type="submit" value="enviar" name="botao"></font></td> </tr> </table> <p><font face="Arial" size="1"><a target="_self" href="http://www.itmnetworks.com.br"> <span style="text-decoration: none"><font color="#000000">www.itmnetworks.com.br</font></span></a></font> </div> </form> </body> </html>
enviar.asp
<%DIM Mail Set Mail = Server.CreateObject("Persits.MailSender") Mail.IsHTML = True Mail.Host = "mail.leadsnet.com.br" Mail.Username = "fer_nando_809@hotmail.com" Mail.Password = "11111111" Mail.From = Request.Form("fromemail") Mail.FromName = Request.Form("fromnome") Mail.AddAddress "fer_nando_809@hotmail.com" Mail.Subject = Request.Form("assunto") Mail.Body = Request.Form("mensagem") On Error Resume Next Mail.Send If Err <> 0 Then Response.Write "<H2>Ocorreu um erro: " & Err.Description & "</h2>" End If If Err = 0 Then Response.Write("<H2>Obrigado Sr(a) " & Request.Form("fromnome") & ", seu e-mail foi enviado com sucesso!</H2>") End If Set Mail = Nothing %>
agradeço desde já se puderem me ajudar...
Carregando comentários...
