Você está em: Hikari > Enviar para um amigo <% page = Request.ServerVariables("HTTP_REFERER") If instr(1,page,"www.hikarisushi.com.br") = 0 Then page = "http://www.hikarisushi.com.br" End If %>


Seu nome:
  Seu e-mail:

E-mails dos seus amigos:
<% j = 1 For i = 1 To 10 %> <% If j < 2 Then j = j + 1 %> <% Else j = 1 %> <% end if %> <% Next %>

<% url = page v_page = Split(page,"?") page = ""& page &"" For i=1 to Ubound(v_page) If Left(v_page(i),4) = "m_id" Then m_id = mid(v_page(i),6) End If Next Enter = chr(10)&chr(13) If m_id = 0 Then bodytxt = "Amigo(a), " & Enter &_ "Descobri um site na internet com dicas e receitas da cozinha oriental! Dá uma olhada e veja o que você acha:" Else %> <% strSQL = "select materia_id,materia_nm,materia_txt_destaque from materias where materia_id="& m_id Set Rs = conn.Execute(strSQL) If not Rs.eof Then bodytxt = "Amigo(a), " & Enter &_ "Encontrei uma matéria no iConquista.com que deve lhe interessar, dê uma olhada:" & Enter &_ rs("materia_nm") & Enter &_ rs("materia_txt_destaque") End If End If %> Está será a mensagem* que você irá enviar para o(s) seu(s) amigo(s):

(*) Uma cópia dessa mensagem será enviada para o seu e-mail.