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_close = "

" If InStr(msg, "")=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 = send ``` End Function '*<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<* %> Será que alguém consegue me ajudar? :natalhappy:

Michel Fernandes_151325

[Resolvido] erro '800a0401'