indicar ao amigo a atual pagina

[marina limeira 0]

queria incluir um pequeno codigo em todas paginas do site

 

onde cada visitante envia para um amigo o link daquela pagina onde ele clicaria .. indica para um amigo

 

alguma sugestao?

 

obrigada

 

Ma

[Mário Monteiro 179]

pode usar um include e neste usando servervariables voce captura a pagina atual para enviar

[xanburzum 169]

usa este sistema de indicar.

 

<TD>
<form action="tellafriend.asp" method="post">
<B><font size="1"> Tell a Friend</font><B><BR>
<input type="text" nome="email" size="20" maxlength="50"><BR>
<input type="hidden" name="done" value="Yes">
<input type="submit" name="submit" value="Tell a friend">
</form>
</TD>
</TR>
</Table>

<%
Case "done"

'sets variaveis
dim email, sendmail
email = request.form("email")

'Create the e-mail server object 
Set objCDOSYSMail = Server.CreateObject("CDO.Message") 
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 
'objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "127.0.0.1" 
'esta linha configura o servidor de email
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.teste.com" 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 
objCDOSYSCon.Fields.Update 

'enviar uma página específica ou enviar url 
'Se você descomentar o Request.ServerVariables ( "http_referrer"), seja qual for esta página publicada a partir de script
'destinatário receberá como o url.
dim url
'url = Request.ServerVariables("HTTP_REFERER")
url = "http://www.teste.org/"

'Update CDOSYS Configuração 
Set objCDOSYSMail.Configuration = objCDOSYSCon 
objCDOSYSMail.From = "webmaster@teste.org"
'email 
objCDOSYSMail.To = email
objCDOSYSMail.Subject = "Confira neste site - http://teste.seu_doiminio.com/"
objCDOSYSMail.HTMLBODY = "Site recomendado de um amigo!<br><br>" & _
vbCrlf & vbCrlf & "Um amigo lhe enviou este e-mail e recomenda que você verifique o site em" & _
vbCrlf & "<a href=""http://teste.seu_doiminio.com"">Titulo</a> at  " & _
vbCrlf & url & vbCrlf & _
vbCrlf & "<br><br>" & _
vbCrlf & "Thank you<br><br>" & _
vbCrlf & "Webmaster@.teste.com" & vbCrlf
objCDOSYSMail.Send 

Set objCDOSYSMail = Nothing 
Set objCDOSYSCon = Nothing 
end if 
End if

response.redirect Request.ServerVariables("HTTP_REFERER")

end select

%>