Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

MaiconC

Erro, sistema de recomenda site

Recommended Posts

Olá a todos, é o seguinte to com um código de recomendação de site, o script roda beleza, você coloca o e-mail do amigo e clica em indicar, o sistema indica o site mais ao invés de aparecer a página de confirmação parece o seguinte erro:

 

Microsoft VBScript compilation error '800a03f6'

 

Expected 'End'

 

/indica/indique2.asp, line 32

 

o código é o seguinte:

 

htmlemail = htmlemail & " </font><a href=http://www.dominio.com.br><font face=Verdana size=2 color=#000080>www.dominio.com.br</font></a></i></strong></p>"      	 objCDO.To = seuemail 	 objCDO.From = "maicon_pr@hotmail.com" 	 objCDO.Subject = "O B R I G A D O" 	 objCDO.Body = htmlemail 	 objCDO.MailFormat = 0 	 objCDO.Bodyformat = 0 	 objCDO.Send 	  	 if objCDO.Send = true then      response.redirect "ok1.asp"	      else      response.redirect "indique.asp"  Obs: linha 32      %>
Se alguém puder ajudar. Obrigado

Compartilhar este post


Link para o post
Compartilhar em outros sites

htmlemail = htmlemail & " </font><a href=http://www.dominio.com.br><font face=Verdana size=2 color=#000080>www.dominio.com.br</font></a></i></strong></p>"

 

objCDO.To = seuemail

objCDO.From = "maicon_pr@hotmail.com"

objCDO.Subject = "O B R I G A D O"

objCDO.Body = htmlemail

objCDO.MailFormat = 0

objCDO.Bodyformat = 0

objCDO.Send

 

if objCDO.Send = true then

response.redirect "ok1.asp"

else

response.redirect "indique.asp"

end if

%>

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.