• 0
Sign in to follow this  
Gnomo

Onde Está O Erro?

Question

Onde está o erro nesse codigo ?

<%@ Language=VBScript %>
<HTML>
<HEAD>
<Title>GamesWorldMacae.com.br - Contato
<LINK rel="stylesheet" type="text/css" href="http://www.clickmacae.com.br/gamesworld/css/gamesworld.css">
<BODY style="margin:0px">
<%
Function EnviarEmail(DeNome, DeEmail, ParaNome, ParaEmail, Assunto, Mensagem, HTML)
    Set JMail = Server.CreateObject("JMail.SMTPMail")
    JMail.ServerAddress = Application("ServidorSMTP")
    JMail.SenderName = DeNome
    JMail.Sender = DeEmail
    JMail.Subject = Assunto
    JMail.AddRecipient ParaEmail
    JMail.Body = Mensagem
    If HTML Then JMail.ContentType = "text/html"
    JMail.Execute
End Function
%>
<%
If Request("pg") = "contato" Then
    strMensagem = "NOME: " & Request("nome") & VBNEWLINE & _
      "E-MAIL: " & Request("email") & VBNEWLINE & _
      "TELEFONE: " & Request("telefone") & VBNEWLINE & _
      VBNEWLINE & "COMENTÁRIOS:" & VBNEWLINE & Request("comentarios")
EnviarEmail Request("nome"), Request("email"), "Games World", "[email protected]", Request("assunto"), strMensagem, False"
%>
<P><B>Mensagem Enviada</B></P>
<P>Obrigado por entrar em contato conosco.</P>
<%
Else
%>

<br><center>Entre em contato conosco preenchendo o formulário abaixo:
<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 ALIGN=CENTER>
<TR>
<TD>Nome:</TD>
<TD><input type=text maxlength=50 name=nome style="border-right:1px #000000 solid;border-left:1px #000000 solid;border-top:1px #000000 solid;border-bottom:1px #000000 solid;font-family:Verdana, Arial;color:black;font-size:8pt;"></TD>
</TR>
<TR>
<TD>E-mail:</TD>
<TD><input type=text maxlength=50 name=email style="border-right:1px #000000 solid;border-left:1px #000000 solid;border-top:1px #000000 solid;border-bottom:1px #000000 solid;font-family:Verdana, Arial;color:black;font-size:8pt;"></TD>
</TR>
<TR>
<TD>Assunto:</TD>
<TD><input type=text maxlength=50 name=assunto style="border-right:1px #000000 solid;border-left:1px #000000 solid;border-top:1px #000000 solid;border-bottom:1px #000000 solid;font-family:Verdana, Arial;color:black;font-size:8pt;"></TD>
</TR>
<TR>
<TD>Mensagem:</TD>
<TD><textarea name=nome style="border-right:1px #000000 solid;border-left:1px #000000 solid;border-top:1px #000000 solid;border-bottom:1px #000000 solid;font-family:Verdana, Arial;color:black;font-size:8pt;"></textarea></TD>
</TR>
<TR>
<TD><input type=reset value=Limpar Dados maxlength=50 name=Enviar style="border-right:1px #000000 solid;border-left:1px #000000 solid;border-top:1px #000000 solid;border-bottom:1px #000000 solid;font-family:Verdana, Arial;color:black;font-size:8pt;background-color:#cccccc"></TD>
<TD><input type=submit value=Enviar maxlength=50 name=Limpar style="border-right:1px #000000 solid;border-left:1px #000000 solid;border-top:1px #000000 solid;border-bottom:1px #000000 solid;font-family:Verdana, Arial;color:black;font-size:8pt;background-color:#cccccc"></TD>
</TR>
</TABLE>
</BODY>
</HTML>

Share this post


Link to post
Share on other sites

3 answers to this question

Recommended Posts

  • 0

Esse e o Erro !

Microsoft VBScript compilation error '800a0409'

Unterminated string constant

/gamesworld/form/contato.asp, line 25

EnviarEmail Request("nome"), Request("email"), "Games World", "[email protected]", Request("assunto"), strMensagem, False"

-----------------------------------------------------------------------------------------------------------------------------------^

Share this post


Link to post
Share on other sites
  • 0
Guest fudencio

qual o erro?

todos!!!!!!!!

você acha que essa bagaça funciona assim?

c ta doido????

putz.... :ph34r:

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this