Mais uma vez venho aqui pedir socorro a voces!
dessa vez com um erro de envio de formulario...
é o seguinte:
tem um arquivo com o formulario que é o:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <title>Formulário de Contato</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body bgcolor="#FFFFFF" text="#000000"> <div align="center"> <p><font face="Arial, Helvetica, sans-serif" size="2"><b><font color="#FF0000" size="4" face="Times New Roman, Times, serif">Formulário de Contato</font></b></font></p> <form method="post" enctype="multpart/formdata" name="form1" action="enviar.asp"> <table width="47%" border="1" cellspacing="2" cellpadding="2"> <tr> <td width="33%"><font face="Times New Roman, Times, serif" size="3">Nome do Remetente: </font></td> <td width="67%"><font face="Arial, Helvetica, sans-serif" size="2"> <input type="text" name="nomerem" size="55"> </font></td> </tr> <tr> <td width="33%"><font face="Times New Roman, Times, serif" size="3">E-mail do remetente: </font></td> <td width="67%"><font face="Arial, Helvetica, sans-serif" size="2"> <input type="text" name="emailrem" size="55"> </font></td> </tr> <tr> <td width="33%"><font face="Times New Roman, Times, serif" size="3">Assunto: </font></td> <td width="67%"><font face="Arial, Helvetica, sans-serif" size="2"> <input type="text" name="assunto" size="55"> </font></td> </tr> <tr> <td width="33%"><font face="Times New Roman, Times, serif" size="3">Mensagem:</font></td> <td width="67%"> <textarea name="recado" rows="7" cols="52"></textarea> </td> </tr> <tr> <td colspan="2"> <div align="center"> <input type="submit" name="Submit" value="Enviar"> <input type="reset" name="reset" value="Limpar"> </div> </td> </tr> </table> </form> </div> </body> </html>
e um arquivo enviar.asp com o código:
<%
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = Server.CreateObject("CDO.Configuration")
cdoConfig.Fields.Item(sch & "sendusing") = 2
cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1
cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.semeciguaba.net"
cdoConfig.Fields.Item(sch & "smtpserverport") = 25
cdoConfig.Fields.Item(sch & "smtpconnectiontimeout") = 30
cdoConfig.Fields.Item(sch & "sendusername") = "semec@semeciguaba.net"
cdoConfig.Fields.Item(sch & "sendpassword") = "minhasenha"
cdoConfig.fields.update
Set cdoMessage = Server.CreateObject("CDO.Message")
Set cdoMessage.Configuration = cdoConfig
cdoMessage.From = "semec@semeciguaba.netâ€
cdoMessage.To = "curso@semeciguaba.net"
cdoMessage.Subject = "Formulario de Contato"
cdoMessage.ReplyTo = Request("emailrem")
strBody = "Dados <br> <br>" & _
"Nome:"& Request("nomerem")& "<br>" & _
"E-Mail:"& Request("emailrem")& "<br>" & _
"Assunto:"& Request("assunto")& "<br>" & _
"Mensagem:"& Request("recado")
strBody = strBody & "."
cdoMessage.HTMLBody = strBody
cdoMessage.Send
Set cdoMessage = Nothing
Set cdoConfig = Nothing
response.write "O e-mail foi processado e enviado com sucesso"
%>quando coloco no ar preencho o formulario e quando envio dá erro HTTP 500
Por que será?
OBS: os dois arquivos estão no mesmo diretorio do site
O enviar.asp está certo com está ou tenho que começar ele com :
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head>
e colocar o codigo dentro da Tag <BODY> ?
Qualquer ajuda agradeço muito!!!!!!!!!!!!!!
Dá uma força aí galera!!!!!
Edição feita por: DarkSign, 20/07/2009, 14:10.
[code] para codigos extensos
