Erro, sistema recomendação de sites.

[MaiconC 0]

Estou com um erro em uma script que recomenda o site, eu executo ele no servidor ele roda beleza, manda a recomendação para o e-mail, mas quando ele ao invés dele abrir a página de confirmação abre o seguinte erro:

 

Microsoft VBScript compilation error '800a03f6'

 

Expected 'End'

 

/indica/indique2.asp, line 32

 

 

Vejam o código:

 

htmlemail = htmlemail & "- O seu Portal de Informática<br>"	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%>

 

 

Alguém pode me ajudar ???? :)

[fernandam 0]

tente: if objCDO.Send = true then response.redirect "ok1.asp" else response.redirect "indique.asp" Obs: linha 32 END IF

[MaiconC 0]

if objCDO.Send = true thenresponse.redirect "ok1.asp" elseresponse.redirect "indique.asp" Obs: linha 32END IF

 

Fernandam: Eu fiz isso mais apareceu outro erro: :rolleyes:

 

error '80040108'

/indica/indique2.asp, line 29

 

 

Código:

 

]  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  obs: linha 29              response.redirect "ok1.asp"               else              response.redirect "indique.asp"               END IF

%>

 

 

Alguem pode me ajudar? ;)

[Salgado 4]

htmlemail = htmlemail & "- O seu Portal de Informática<br>"
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
 
Set objCDO = Nothing
if err.number=0 then 
    response.redirect "ok1.asp" 
else
    response.redirect "indique.asp"
End If%>

Tente com essa alteração! caso ainda dê erro poste o código completo!

[MaiconC 0]

Obrigado Salgado, deu certo , valeu mesmo de coraçãoo !!!!!!!! :D