Formulário: 500 Internal Server Error

Rosana_2021 · 6 de setembro de 2009

Quero criar um formulário de envio de e-mail no meu site mas não consigo fazê-lo funcionar!

Quando envio a mensagem aparece 500 Internal Server Error.

O formulario.asp é esse. O coloquei no mesmo diretório do mail.html (página do site onde coloquei o formulário)

<%

response.buffer=(true)
set o = Server.CreateObject("ADISCON.SimpleMail.1")
o.MailServer = "localhost"
o.Sender ="[email protected]"
o.Recipient ="[email protected]"
o.Subject = "Contato via web"
o.MessageText = "Email via WEB" + vbCrLf + ""&_
"Nome = " + Request.Form("nome_form_contato") + vbCrLf + ""&_
"Email = " + Request.Form("email_form_contato") + vbCrLf + ""&_
"Telefone = " + Request.Form("fone_form_contato") + vbCrLf + ""&_
"Mensagem = " + Request.Form("mensagem_form_contato")

call o.Send
Set o = Nothing

response.redirect"index.htm"

%>

[B]Devo mudar algo aqui?[/B]
o.MailServer = "localhost"

[B]Início do código html:[/B]
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1" />

[B]Script (está no cabeçalho Head)
[/B]
<script type="text/JavaScript">

</script>

[B]Formulário no site:[/B]
<body><br></span><span style="text-decoration: underline;"><form action="formulario.asp" method="post" name="form_contato" id="form_contato" accept-charset="iso-8859-1,utf-8">
<br><br><table border="0" cellpadding="0" cellspacing="0" width="100%">
<tbody><tr>

<td valign="top"><table border="0" cellpadding="0" cellspacing="0" width="100%">

<tbody><tr>
<td style="color: rgb(222, 222, 222);" width="50">Nome:</td>
<td><input name="nome_form_contato" size="35" maxlength="80" accept-charset="iso-8859-1,utf-8" type="text"></td>
</tr>
<tr>
<td> </td>
<td> </td>

</tr>

<tr>
<td style="color: rgb(222, 222, 222);">E-mail:</td>
<td><input name="email_form_contato" id="email_form_contato" size="35" maxlength="100" accept-charset="iso-8859-1,utf-8" type="text"></td>
</tr>
<tr>
<td> </td>
<td> </td>

</tr>

<tr>
<td style="color: rgb(222, 222, 222);">Fone:</td>
<td><input name="fone_form_contato" id="fone_form_contato" size="35" maxlength="20" accept-charset="iso-8859-1,utf-8" type="text"></td>
</tr>
<tr>
<td> </td>
<td> </td>

</tr>

<tr>
<td> </td>
<td> </td>
</tr>
<tr>
<td colspan="2"><br>
<br></td>

</tr>
</tbody></table></td>

<td valign="top"><table border="0" cellpadding="0" cellspacing="0" width="100%">
<tbody><tr style="color: rgb(222, 222, 222);">
<td height="14">Mensagem:</td>
</tr>
<tr>
<td><textarea name="mensagem_form_contato" cols="40" rows="3" id="mensagem_form_contato" accept-charset="iso-8859-1,utf-8"></textarea></td>

</tr>
<tr>

<td> </td>
</tr>
<tr>
<td><input name="Submit" onclick="MM_validateForm('email_form_contato','','RisEmail','fone_form_contato','','R','mensagem_form_contato','','R');return document.MM_returnValue" value="Enviar" type="submit">
<input name="limpar" id="limpar" value="Limpar" type="reset"></td>
</tr>

</tbody></table></td>
</tr>
</tbody></table><br><br><br></form></span></div></body>
<%@LANGUAGE="VBSCRIPT"%>