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
%>
_
