Kra Nao Vi Erro Nisso Ainda ..

[bolomaster]

Olhem estou tentando arrumar um sistema de indique para um amigo so que ele não esta enviando a resposta a pessoal q indicou o site se alguém souber agradeço

abraços

ta ai os arquivos

<%

dim seunome, seuemail, nomeamigo, emailamigo, mensagem, msg

        seunome = request.form("seunome")

  seuemail = request.form("seuemail")

  nomeamigo = request.form("nomeamigo")

  emailamigo = request.form("emailamigo")

  mensagem = request.form("txtmsg")

  Set msg = 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>" & nomeamigo & "</font></i><font face=Verdana color=#000080>!<br>"

htmlemail = htmlemail & "<br>"

htmlemail = htmlemail & "O seu amigo " & seunome & " entrou no site da Geek Brasil e pensou que você iria gostar de visitar o site também!</font></p></font></strong></font>"

htmlemail = htmlemail & "<br>"

htmlemail = htmlemail & "<p><strong><font size=2 color=#000080><font face=Verdana>O seu amigo " & seunome& ", alem de indicar o site ele  lhe envia a seguinte mensagem" & "<br>" & mensagem &".</font>" 

htmlemail = htmlemail & "<br>"

htmlemail = htmlemail & "<p><strong><font size=2 color=#000080><font face=Verdana>O cara eu to so testando isso !</font><br><br>"

htmlemail = htmlemail & "<font face=Verdana>Atenciosamente,<br>"

htmlemail = htmlemail & "</font></font><i><font face=Verdana size=2 color=#000080>&nbsp;nois na fita "

htmlemail = htmlemail & "- percebe <br>"

htmlemail = htmlemail & "&nbsp;</font><a href=http://www.atenas.edu.br><font face=Verdana size=2 color=#000080>Faculdade Atenas</font></a></i></strong></p>"

   

  msg.To = emailamigo

  msg.From = seunome

  msg.Subject = "V I S I T E  ! ! !"

  msg.Body = htmlemail

  msg.MailFormat = 0

  msg.Bodyformat = 0

  msg.Send

      set msg = nothing

  response.redirect "indique2.asp"

%>

indique2.asp - este não esta funcionando

<%

dim seunome, seuemail, nomeamigo, emailamigo, mensagem, msg

  seunome = request.form("seunome")

  seuemail = request.form("seuemail")

  nomeamigo = request.form("nomeamigo")

  emailamigo = request.form("emailamigo")

  mensagem = request.form("txtmsg")

    set msg = 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 & "cara so to falando q o sua indicação ta quase pronta. E queremos 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>&nbsp;Rafael Marciano"

htmlemail = htmlemail & "- WEBMASTER E PROGRAMADOR DA FACULDADE ATENAS <br>"

htmlemail = htmlemail & "&nbsp;</font><a href=http://www.atenas.edu.br><font face=Verdana size=2 color=#000080>Faculdade Atenas</font></a></i></strong></p>"

   

  msg.To = seuemail

  msg.From = "rafael@atenas.edu.br"

  msg.Subject = "Ta FUNFANDO !!!!!!!"

  msg.Body = htmlemail

  msg.MailFormat = 0

  msg.Bodyformat = 0

  msg.Send

  set msg = nothing

  response.Redirect "ok1.asp"

%> 

[Reginaldo ASP]

você tá usando

response.redirect "indique2.asp"

E tá tentando resgatar com:

seunome = request.form("seunome")

Sendo assim, o arquivo não tá recebendo nada de formulário...

Ou você usa uma sessão para carregar as variáveis (mais indicado), ou faz um form "hidden" pra enviar as mesmas informações.

[bolomaster]

cara brigadau .. hein valeu

já pode fechar o tópico .. ok

[Reginaldo ASP]

cara brigadau .. hein valeu

já pode fechar o tópico .. ok

Disponha sempre...