Jump to content


Photo

Erro Em Envio De Formulario


  • Faça o login para participar
4 replies to this topic

#1 X-Ray

X-Ray

    Turista

  • Usuários
  • 36 posts
  • Sexo:Masculino
  • Localidade:RJ

Posted 10/07/2009, 09:42

olá pessoal!

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


#2 Renan L. Queiroz

Renan L. Queiroz

    Mestre

  • Usuários
  • 690 posts
  • Sexo:Masculino
  • Localidade:Brasilia - DF

Posted 13/07/2009, 15:28

A princípio tudo parece normal.
Mas já vi uma outra sintaxe para o mesmo, caso queira tentar:
enviar.asp
<%	sch = "http://schemas.microsoft.com/cdo/configuration/"	Dim cdoMessage : Set cdoMessage = Server.CreateObject("CDO.Message")	Dim config : config = cdoMessage.Configuration.Configuration.Fields	With config		.Item(sch & "sendusing") = 2		.Item(sch & "smtpserver") = "smtp.semeciguaba.net"		.Item(sch & "smtpserverport") = 25		'.Item(sch & "smtpusessl") = False 'Use SSL para conexão (True or False)		.Item(sch & "smtpconnectiontimeout") = 30		.Item(sch & "smtpauthenticate") = 1		.Item(sch & "sendusername") = "semec@semeciguaba.net"		.Item(sch & "sendpassword") = "minhasenha"		.Update	End With	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	response.write "E-mail foi processado e enviado com sucesso!"%>

De uma lida para mais informações: HTTP 500 - Erro interno do servidor
Veja se alguma se encaixa à sua realidade.

Especialidade: Desenvolvimento e Banco de Dados.


Este post lhe ajudou? Agradeça: Posted Image


#3 X-Ray

X-Ray

    Turista

  • Usuários
  • 36 posts
  • Sexo:Masculino
  • Localidade:RJ

Posted 14/07/2009, 09:05

Caro Renan,

não funionou também...

ainda continuo na duvida sobre na hora de construir a pagina enviar.asp se ponho ou não:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
e colocar o codigo dentro da Tag <BODY> ?

Estou perdido cara!

Dá uma força aí!!!!








A princípio tudo parece normal.
Mas já vi uma outra sintaxe para o mesmo, caso queira tentar:
enviar.asp

<%	sch = "http://schemas.microsoft.com/cdo/configuration/"	Dim cdoMessage : Set cdoMessage = Server.CreateObject("CDO.Message")	Dim config : config = cdoMessage.Configuration.Configuration.Fields	With config		.Item(sch & "sendusing") = 2		.Item(sch & "smtpserver") = "smtp.semeciguaba.net"		.Item(sch & "smtpserverport") = 25		'.Item(sch & "smtpusessl") = False 'Use SSL para conexão (True or False)		.Item(sch & "smtpconnectiontimeout") = 30		.Item(sch & "smtpauthenticate") = 1		.Item(sch & "sendusername") = "semec@semeciguaba.net"		.Item(sch & "sendpassword") = "minhasenha"		.Update	End With	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	response.write "E-mail foi processado e enviado com sucesso!"%>

De uma lida para mais informações: HTTP 500 - Erro interno do servidor
Veja se alguma se encaixa à sua realidade.



#4 Renan L. Queiroz

Renan L. Queiroz

    Mestre

  • Usuários
  • 690 posts
  • Sexo:Masculino
  • Localidade:Brasilia - DF

Posted 14/07/2009, 09:34

Colocar as marcações HTML só vai depender caso vc queira criar uma "outra" página para que seja apresentado tipo um template,
caso não vc pode simplesmente deixar só o response.write que ficará uma unica mensagem na página!

Pode incluir o HTML sem medo!

Mas não acredito que seja esse o problema, veja as permições no seu servidor, caso seja local cheque o IIS.
No momento só me vem isso à cabeça, sabendo de mais alguma coisa posto aqui. (ok2)

Especialidade: Desenvolvimento e Banco de Dados.


Este post lhe ajudou? Agradeça: Posted Image


#5 X-Ray

X-Ray

    Turista

  • Usuários
  • 36 posts
  • Sexo:Masculino
  • Localidade:RJ

Posted 14/07/2009, 16:05

Ok Renan,

mas nada feito...

não consegi ainda....




1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq