Problema Com Asp

Setembro 3, 2007

alguém sabe porque na hora que eu clico em enviar aparece isso

Method Not Allowed

The requested method POST is not allowed for the URL /enviar.asp.

--------------------------------------------------------------------------------

Apache/1.3.37 Server at www.fcas1.gyphost.com Port 80

link do Formulario http://www.fcas1.com/default.asp

Qualquer coisa me mande um e-mail também felipe@fcas1.com

Obrigado pela atenção! ;)

.Andreia. · Setembro 3, 2007

posta o codigo

Felipe Candido · Setembro 8, 2007

posta o codigo

default

<html><head>
<title>(Exemplo)</title>
</head>
<body topmargin="0" leftmargin="0">
<div align="center">
<center>
<table border="0" width="266">
<tr>
<td width="258" valign="top" height="1">
<form method="POST" action="enviar.asp">
<div align="center">
<center>
<table border="0" width="50%" cellspacing="0" cellpadding="0">
<tr>
<td width="96%">
<p align="left"><font size="2" face="Verdana">Nome:</font></td>
</tr>
<tr>
<td width="96%">
<p align="left"><font size="2" face="Verdana"><input type="text" name="nome" size="25" style="font-family: Verdana; font-size: 10 pt; border-style: solid; border-width: 1"></font></td>
</tr>
<tr>
<td width="96%">
<p align="left"><font size="2" face="Verdana">E-mail:</font></td>
</tr>
<tr>
<td width="96%">
<p align="left"><font size="2" face="Verdana"><input type="text" name="email" size="25" style="font-family: Verdana; font-size: 10 pt; border-style: solid; border-width: 1"></font></td>
</tr>
<tr>
<td width="96%">
<p align="left"><font size="2" face="Verdana">Assunto:</font></td>
</tr>
<tr>
<td width="96%">
<p align="left"><font size="2" face="Verdana"><input type="text" name="assunto" size="25" style="font-family: Verdana; font-size: 10 pt; border-style: solid; border-width: 1"></font></td>
</tr>
<tr>
<td width="96%">
<p align="left"><font size="2" face="Verdana">Mensagem:</font></td>
</tr>
<tr>
<td width="96%">
<p align="left"><font size="2" face="Verdana"><textarea rows="5" name="mensagem" cols="25" style="font-family: Verdana; font-size: 10 pt; border-style: solid; border-width: 1"></textarea></font></td>
</tr>
<tr>
<td width="96%"> </td>
</tr>
<tr>
<td width="96%">
<p align="center"><font face="Verdana"><input type="submit" src="imagens/enviar.gif" value="Enviar >>" name="enviar"></font></td>
</tr>
</table>
</center>
</div>
</form>
</center>
</td>
</tr>
</table>
</div>
</body>
</html>

enviar

<%
'Declarando variveis
Dim sNameTo, sNameFrom, sEmailFrom, sText, sEmailTo, sAssunto

'Pegando os dados digitados nos campos e colocando em variaveis
sNameFrom = Request.Form("nome")
sEmailFrom = Request.Form("email")
sEmailTo = "suporte@fcas1.com"
sNameTo = "FCAS1.COM"
sText = Request.Form("mensagem")
sAssunto = Request.Form("assunto")

'Cria o objeto
  set mailer = server.createobject("SMTPsvg.Mailer")
  Mailer.FromName = sNameFrom
  Mailer.FromAddress = sEmailFrom
'Host para envio de emails
  Mailer.RemoteHost = "mail.fcas1.com"
  Mailer.AddRecipient sEmailTo, sNameTo
  Mailer.Subject = sAssunto  & " - E-mail"

'Monta a texto para o envio
  strMsgHeader = sNameFrom & "(" & sEmailFrom & ") " & " quem enviou! " & vbCrLf & vbCrLf
  strMsgFooter = sText
  Mailer.BodyText = strMsgHeader & strMsgFooter
' Se for enviado redirecionar para obrigado.asp
  if Mailer.SendMail then
     Response.Redirect "obrigado.asp"
  else
' Se não for enviado mostra o erro que ocoreu
     Response.Write ("Ocorreu um erro.<BR>")
     Response.Write ("O Erro é " & Mailer.Response)
  end if
%>

[b]obrigado[/b]

<html><head>
<title>(Exemplo)</title>
</head>
<body topmargin="0" leftmargin="0">
<div align="center">
<center>
<table border="0" width="439">
<tr>
</center>
<p align="center"><font color="#00B0FF" size="3"><b>Muito Obrigado !!</b></font><p align="center"><font size="2"></font><p align="center"><font size="2">
Sua Mensagem foi enviada com sucesso.</font>
</td>
</tr>
</table>
</div>
</td>
</body>
</html>

Está POST do Codigo fonte que estou com o problema...

Desde já Obrigado!! :)

Caio Rebello · Setembro 22, 2007

Acho que sei o que pode ser.. A maioria dos servidores ta bloqueando envio de email sem autenticação...

Eu tenho hospedagem no IG Empresas, e semana passada todos os meus códigos de envio pararam por causa do script de envio.

Então configurei todos para o CDOSYS

Olha o codigo ai:

sch = ""
Set objConfig = Server.CreateObject("CDO.Configuration")
objConfig.Fields.Item(sch & "sendusing") = 2
objConfig.Fields.Item(sch & "smtpauthenticate") = 1
objConfig.Fields.Item(sch & "smtpserver") = "smtp.seuservidor.com.br"
objConfig.Fields.Item(sch & "smtpserverport") = 25
objConfig.Fields.Item(sch & "smtpconnectiontimeout") = 120
objConfig.Fields.Item(sch & "sendusername") = "suporte@seuemail.com.br"
objConfig.Fields.Item(sch & "sendpassword") = "senha_do_email"
objConfig.Fields.Update
'Aqui ele irá criar a Mensagem'
Set objMessage = Server.CreateObject("CDO.Message")
Set objMessage.Configuration = objConfig
'O email do remetente (seria o seu email)
objMessage.From = "suporte@seuemail.com.br"
Para
objMessage.To = "email"
'Assunto do email'
objMessage.Subject = "Assunto"
htmlText = "Seu HTML de Email"

É so chamar as variáveis que estão no começo do seu código na config do CDO...

Entrar

Problema Com Asp

Pergunta

Guest Felipe Candido

Link para o comentário

Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

.Andreia.

Link para o comentário

Compartilhar em outros sites

Felipe Candido

Link para o comentário

Compartilhar em outros sites

Caio Rebello

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades