Jump to content


Photo

Pq Desse Erro?


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

#1 Flávio Izo

Flávio Izo

    Ativo

  • Usuários
  • 325 posts
  • Sexo:Não informado
  • Interesses:Informática em geral e esportes....

Posted 26/05/2004, 13:37

Technical Information (for support personnel)

Error Type:
Microsoft VBScript compilation (0x800A03EA)
Syntax error
/form/form.asp, line 4, column 44


Browser Type:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; .NET CLR 1.1.4322)

Page:
GET /form/form.asp


Pq tá dando isso? Olhem o código abaixo:

<%
Dim vErro,vSucesso,vErr
vErro = ""
vSucesso = "http://www.saocamilo-es.br" ---->>>> digitar a pagina se o e-mail for enviado com sucesso!
vErr = "erro.htm"  --->>> digitar a pagina se o e-mail tiver erro no envio
if Request.Form.Count + Request.QueryString.Count > 0 then
Call Respform
Call Resp
end if
'-----------------------------------------------------------
Sub Respform()
On Error Resume Next
Dim msg,vData,vHora,vPara,vNomeform,vFrom,vAssunto,vCc,vDom
vNomeForm = "Nomeform"  ---->> nome do formulario 
vPara = "flavioizo@saocamilo-es.br" ----->> para qual e-mail vai os dados
vFrom = "flavioizo@saocamilo-es.br" ----->> e_mail de onde esta vindo
vCc = "flaviobrazuca@yahoo.com.br" --->> se voce quiser copia para alguem
vAssunto = "ASSUNTO"
vData = Date()
vData = day(vData) & "/" & month(vData) & "/" & year(vData)
vHora = Time()
vHora = hour(vHora) & "h" & minute(vHora) & "min" & second(vHora) & "s"
msg = "" & vNomeForm
msg = msg & " submetido em " & vData & " às " & vHora & VbCrLf & VbCrLf
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
  for each campo in Request.Form
  if campo <> "B1" and campo <> "B2" and campo <> "B3" and campo <> "B4" then 
    msg = msg & string(60,"-") & vbcrlf
    msg = msg & campo & " : " & Request.Form(campo) & VbCrLf
  end if
  next
else
  for each campo in Request.QueryString
  if campo <> "B1" and campo <> "B2" and campo <> "B3" and campo <> "B4" then 
    msg = msg & string(60,"-") & vbcrlf
    msg = msg & campo & " : " & Request.QueryString(campo) & VbCrLf
  end if
  next
end if
msg = msg & string(60,"*") & vbcrlf
EnviaEmail msg,vFrom,vPara,vCc,vAssunto
If Err then
  vErro = Err.number & " : "
  vErro = Err.description
  Err.Clear
End if
End Sub
'-----------------------------------------------------------
Function EnviaEmail(ByVal p_body, Byval p_from, ByVal p_to, ByVal p_cc, Byval p_subject)
On Error Resume Next
Dim iMsg, Flds, iConf, status
Const SERVIDOR_SMTP = "smtp.saocamilo-es.br" --->>> servidor SMTP 
status = true
Set iMsg = Server.CreateObject("CDO.Message")
Set iConf = Server.CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SERVIDOR_SMTP
Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
Flds.Update
With iMsg
  Set .Configuration = iConf
  .To = p_to
  .CC = p_cc
  .From = p_from
  .Sender = p_from
  .Subject = p_subject
  .TextBody = p_body
  .Send
End With
If Err.number <> 0 Then
  status = false
End If
If IsObject(iMsg) Then Set iMsg = Nothing
If IsObject(Flds) Then Set Flds = Nothing
If IsObject(iConf) Then Set iConf = Nothing
EnviaEmail = status
End Function
'-----------------------------------------------------------
Sub Resp()
if vErro = "" then
  Response.Redirect(vSucesso)
else
  Response.Redirect(vErr)
end if
End Sub
%>

It's better to have true enemies than to have falses friends !!!

#2 Flávio Izo

Flávio Izo

    Ativo

  • Usuários
  • 325 posts
  • Sexo:Não informado
  • Interesses:Informática em geral e esportes....

Posted 26/05/2004, 13:42

Bem... eu apaguei os comentários e agora a page aparece em branco....
It's better to have true enemies than to have falses friends !!!

#3 Tarkan

Tarkan

    Powered by Linux - Que inglês! ;)

  • Ex-Admins
  • 651 posts
  • Sexo:Masculino
  • Localidade:Copacabana - RJ

Posted 26/05/2004, 13:42

Seu erro está nessa linha:

vSucesso = "http://www.saocamilo-es.br" ---->>>> digitar a pagina se o e-mail for enviado com sucesso!

Você fez o comentário:

---->>>> digitar a pagina se o e-mail for enviado com sucesso!

Comentários em ASP, são feitos com ' (aspas simples).
Substitua o código anterior, por:

vSucesso = "http://www.saocamilo-es.br" '---->>>> digitar a pagina se o e-mail for enviado com sucesso!

Espero que tenha entendido.
Qualquer dúvida, volte a postar!

Abraços!

:D
' nome: gustavo veiga
' profissão: ALOG Data Centers do Brasil (analista de sistemas)
' publicidade: ALOG Data Centers do Brasil

#4 Info_Tec

Info_Tec

    Servo do DEUS VIVO!

  • Usuários
  • 398 posts
  • Sexo:Não informado
  • Localidade:Entre a cadeira e o teclado
  • Interesses:Jesus, minha esposa e filha.<br>ASP, Lógica de programação, Projeto de Estradas, $$$ que tô precisando!

Posted 26/05/2004, 13:42

Uma coisa que notei, todas as linhas que contém "--->>>" irão dar esse erro, pois esse trecho deve ser um comentário no código, então vc deve acrescetar uma ' (aspa simples) nesses pontos.
A cada minuto está mais perto.
Aceite JESUS como seu único e suficiente salvador!
_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-
Fórum HOSANAS, venha conversar e se engrandecer com a palavra de DEUS.
Host: ASPECTO, Hospedagem ASP com qualidade e bom preço.

#5 Flávio Izo

Flávio Izo

    Ativo

  • Usuários
  • 325 posts
  • Sexo:Não informado
  • Interesses:Informática em geral e esportes....

Posted 26/05/2004, 13:47

Eu já tinha apagado os coments... agora tá aparecendo em branco...
Desculpem as "idiotices"... é que é a primeira vez que mexo com asp e preciso fazer um form...
It's better to have true enemies than to have falses friends !!!

#6 Flávio Izo

Flávio Izo

    Ativo

  • Usuários
  • 325 posts
  • Sexo:Não informado
  • Interesses:Informática em geral e esportes....

Posted 26/05/2004, 14:08

bem... peguei outro código e olha o erro que aparece agora...

HTTP 500.100 - Internal Server Error - ASP error
Internet Information Services

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

Technical Information (for support personnel)

Error Type:
Server object, ASP 0177 (0x800401F3)
Invalid ProgID. For additional information specific to this message please visit the Microsoft Online Support site located at: http://www.microsoft.com/contentredirect.asp. 
/form/form_asp/enviaemail.asp, line 22


Browser Type:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; .NET CLR 1.1.4322) 

Page:
POST 151 bytes to /form/form_asp/enviaemail.asp

POST Data:
Nome=dcdfsdf&Email=is_not_free_bird@yahoo.com.br&Cidade=dfsdfsfsff&Estado=ES&Gostou=Gostei&Melhor+Pagina=Letras&COMENTARIOS=sdfsfsdfsdfsd&submit=Enviar 

Time:
Wednesday, May 26, 2004, 2:09:34 PM

Alguém sabe pq?


Linha 22:
Set mmMail = Server.CreateObject("SMTPsvg.Mailer")

Edição feita por: Flávio Izo, 26/05/2004, 14:09.

It's better to have true enemies than to have falses friends !!!

#7 pchardnet

pchardnet

    ×-× 3D ×-×

  • Usuários
  • 1068 posts
  • Sexo:Não informado
  • Localidade:Belo Horizonte-MG

Posted 26/05/2004, 14:18

Vc está colocando seu código em um host ou está testando localmente??

O local que seu script estiver instalado deve ter o componente de e-mail que vc está utilizando.

Eu postei um formmail com CDONTS nesta sessão, faz uma busca.

Ele está funcionando legal.
www.wvirtu.net - Hospedagem Sites - PHP + MySql + Fantástico - Joomla! pré-instalado

www.joomlaminas.org - Grupo de Usuários Joomla! de Minas Gerais

#8 Flávio Izo

Flávio Izo

    Ativo

  • Usuários
  • 325 posts
  • Sexo:Não informado
  • Interesses:Informática em geral e esportes....

Posted 26/05/2004, 14:20

estou testando no servidor...
Fiz várias buscas e testei alguns aqui... e não funfaram... vou tentar achar o seu...
It's better to have true enemies than to have falses friends !!!

#9 pchardnet

pchardnet

    ×-× 3D ×-×

  • Usuários
  • 1068 posts
  • Sexo:Não informado
  • Localidade:Belo Horizonte-MG

Posted 26/05/2004, 14:51

Tá aí o link

http://forum.wmonlin...66945&hl=cdonts
www.wvirtu.net - Hospedagem Sites - PHP + MySql + Fantástico - Joomla! pré-instalado

www.joomlaminas.org - Grupo de Usuários Joomla! de Minas Gerais




0 user(s) are reading this topic

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

IPB Skin By Virteq