::erro - indique esse site:::

[nickian 0]

Olá,fiz um formulário para indicar o meu site, mas quando a pessoa clica em "indicar" aparece o erro abaixo. Por que ? Fiz um teste colocando meu email e estou recebendo a indicação do site, isto é, o formulario funciona, mas, depois quando a pessoa cadastra, deveria aparecer a mensagem que o cadastro foi feito com sucesso, porem, aparece o erro abaixo;Ajudem me !!!Segue primeiro o código do "indique" e depois o erro da pagina.Informando que a hospedagem é diretamente com o servidor.:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::<% seunome = request.form("seunome") seuemail = request.form("seuemail") nomeamigo = request.form("nomeamigo") emailamigo = request.form("emailamigo") Set objCDO = Server.CreateObject("CDONTS.NewMail") htmlemail = htmlemail & "<font face=Verdana size=2><strong><font size=2>" htmlemail = htmlemail & "<p><font face=Verdana color=#000080>Olá </font><i><font " htmlemail = htmlemail & "face=Verdana color=#FF0000>" & seunome & "</font></i><font face=Verdana color=#000080>!<br>" htmlemail = htmlemail & "<br>" htmlemail = htmlemail & "Cezar Liper, agradece à você por indicar o meu portal e quero dizer que a indicação foi enviado com sucesso para " & nomeamigo & "!</font></font></strong></font></p>" htmlemail = htmlemail & "<br><br>" htmlemail = htmlemail & "<font face=Verdana>Atenciosamente,<br>" htmlemail = htmlemail & "</font></font><i><font face=Verdana size=2 color=#000080> Cezar Liper" htmlemail = htmlemail & "- O seu Portal de Informação!<br>" htmlemail = htmlemail & " </font><a href=http://www.pontal.net/isv><font face=Verdana size=2 color=#000080>www.pontal.net/isv</font></a></i></strong></p>" objCDO.To = seuemail objCDO.From = "cezarliper@west.com.br" 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"%> :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::O ERRO QUE DÁ QUANDO CLICA EM INDICAR:Microsoft VBScript compilation error '800a03f6' Expected 'End' /isv/indique2.asp, line 32 FICO AGUARDANDO. OBRIGADA! :(

[adriano 0]

tsc tsc!Expected End = fim esperado...você esqueceu de deterinar o fim da instrução

if objCDO.Send = true thenresponse.redirect "ok1.asp" elseresponse.redirect "indique.asp"

cade o end???abaixo vai o correto:

if objCDO.Send = true thenresponse.redirect "ok1.asp" elseresponse.redirect "indique.asp"end if

[nickian 0]

Obrigada pela resposta, já consertei. Agora olha o erro que está dando:error '80040108' /isv/indique2.asp, line 29 A LINHA 29 É ESSA:if objCDO.Send = true thenO que há de errado ?Grata.

[Salgado 4]

você quer que se não ser erro no envio ele redirecione para ok1?

tente assim:

if err = 0 then
response.redirect "ok1.asp" 
else
response.redirect "indique.asp"
end if

 

Valeu?

[nickian 0]

Muito obrigada pela correção do código. FUNCIONOU !!!Abraços,Nickian