Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Manckenna

Your Request has been Submitted

Recommended Posts

Este código está na página 16 do Livro Instant ASP Scripts da Editora; Ciência Moderna autor: Greg Buczek.

 

Quando abro a página no navegador dá o seguinte erro

 

TheMessage = "From: " & Request.Form ("Name") & vbnewline & Como sou Iniciante não sei como corrigir ...

 

 

<%@ Language=VBScript%>

<%

Set TheMail = Server.CreateObject ("CDONTS.NewMail")

TheMessage = "From: " & Request.Form ("Name") & vbnewline &

Request.Form ("Comment")

If Request.Form ("Regarding") = "Sales" then

TheMail.Send Request.Form

("Email"),"sales@whatever.com",Request.Form ("Regarding"),TheMessage

elseif Request.Form ("Regarding") = "Support" then

TheMail.Send Request.Form ("Email"), "support@

Whatever.com",RequestForm ("Regarding"),TheMessage

else

TheMail.Send Request.Form ("Email"),"emps@

Whatever.com",Request.Form ("Regarding"),TheMessage

end if

Set TheMail = Nothing

%>

<html>

<head>

<title>Request Submitted!</title>

</head>

<body>

<p>Your request has been submitted!</p>

</body>

</html>

Compartilhar este post


Link para o post
Compartilhar em outros sites

você ta testando OFF ou ON line?Verifique se você tem o componente no servidor ou no seu PC

  Citar

Set TheMail = Server.CreateObject ("CDONTS.NewMail")

CDONTS

Compartilhar este post


Link para o post
Compartilhar em outros sites

No VBScript os comandos têm de começar e terminar na mesma linha.TheMessage = "From: " & Request.Form ("Name") & vbnewline & Request.Form ("Comment") Se quiser mudar de linha use um "_" que significa que o comando continua na próxima linha.TheMessage = "From: " & Request.Form ("Name") & vbnewline &_ Request.Form ("Comment") []s

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.