Indicar página com endereço completo

[marcao 0]

Olá pessoal,

 

Estou desenvolvendo um sistema de indicar a página de notícias no qual ao usuário visualizar a notícia ele poderá mandá-la por e-mail para um amigo.

 

O que acontece é o seguinte:

 

Ele esta mandando o endereço da página do formulário, não importanto a página que a pessoa esteja.

 

Estou usando o sistema da seguinte forma para recuperar a URL

 

endereco = request.servervariables("SERVER_NAME") & request.servervariables("URL")

 

O endereço correto seria assim: http://www.amwd.com.br/teste/ver_materia.asp?id=3

 

Alguém sabe como pegar o endereço real da URL?

 

Por favor, me ajudem

 

Obrigado

 

Marcão

 

 

Segue abaixo os códigos

 

Página da notícia.asp

 

na página da notícia tem o include

<!--#include file="env_link.asp" -->

 

Página env_link.asp

 

<%endereco = request.servervariables("SERVER_NAME") & request.servervariables("URL")%><a href="env_form.asp" onclick="NewWindow(this.href,'name','360','330','yes');return false">Mande essa matéria para um amigo</a>

 

Página env_form.asp

 

<title>Armazém de Arte</title><%ip = Request.serverVariables("REMOTE_ADDR")%><script type="text/javascript" src="../js/fValConfig.js"></script><script type="text/javascript" src="../js/fValidate.js"></script><form name="form1" method="post" action="env_enviar.asp" onSubmit="return validateForm(this,0,1,1,0);"><table border="0" cellspacing="0" cellpadding="0"><tr>	<td colspan="3">    <p align="center"><b><font face="Tahoma" size="2">Envie para um Amigo</font></b></td></tr><tr>	<td colspan="3" background="../images/bg_salvavidas.gif"></td></tr><tr>	<td height="15" colspan="3"></td></tr><tr>	<td class="pretong"><b><font face="Tahoma" size="2">Seu Nome:</font></b></td>	<td width="10"></td>	<td><font face="Tahoma">    <input name="remetente_nome" type="text" id="rementente_nome" size="30" maxlength="50" class="formulario" alt="blank" onBlur="clearStyle(this);" emsg="Digite o Nome"></font></td></tr><tr>	<td class="pretong"><b><font face="Tahoma" size="2">Seu E-mail:</font></b></td>	<td width="10"></td>	<td><font face="Tahoma">    <input name="remetente_email" type="text" id="remetente_email" size="30" maxlength="50" class="formulario" alt="email" onBlur="clearStyle(this);" emsg="Digite o Email corretamente"></font></td></tr><tr>	<td height="15" colspan="3"></td></tr><tr>	<td colspan="3" class="pretong"><b><font face="Tahoma" size="2">Enviar para:</font></b></td></tr><tr>	<td height="10" colspan="3"></td></tr><tr>	<td class="pretong"><b><font face="Tahoma" size="2">Nome:</font></b></td>	<td width="10"></td>	<td><font face="Tahoma">    <input name="destinatario_nome" type="text" id="destinatario_nome" size="30" maxlength="50" class="formulario" alt="blank" onBlur="clearStyle(this);" emsg="Digite o Nome"><font size="2">    </font></font> </td></tr><tr>	<td class="pretong"><b><font face="Tahoma" size="2">E-mail:</font></b></td>	<td width="10"></td>	<td><font face="Tahoma">    <input name="destinatario_email" type="text" id="destinatario_email" size="30" maxlength="50" class="formulario" alt="email" onBlur="clearStyle(this);" emsg="Digite o Email corretamente"></font></td></tr><tr>	<td height="10" colspan="3"></td></tr><tr>	<td class="pretong"><b><font face="Tahoma" size="2">Comentários:</font></b></td>	<td width="10"></td>	<td><font face="Tahoma">    <textarea name="texto" cols="25" rows="4" id="textarea" class="formulario"></textarea></font></td></tr><tr>	<td colspan="3"> </td></tr><tr>	<td colspan="3"><font face="Tahoma"><input name="ip" type="hidden" id="ip" value="<%=ip%>">    </font>    <p align="center"><font face="Tahoma">  <input type="submit" name="Submit" value="ENVIAR" style="border-style:solid; border-width:1; "></font></td></tr></table></form>

 

Página env_enviar.asp

 

<%ip = request.Form("ip")remetente_nome = replace(request.Form("remetente_nome"),"'","''")remetente_email = replace(request.Form("remetente_email"),"'","''")destinatario_nome = replace(request.Form("destinatario_nome"),"'","''")destinatario_email = replace(request.Form("destinatario_email"),"'","''")texto = replace(request.Form("texto"),"'","''")texto = Replace(texto, Chr(13)+Chr(10),"<br>")endereco = request.servervariables("SERVER_NAME") & request.servervariables("URL")Set Mail = Server.CreateObject("CDONTS.NewMail")htmlemail = htmlemail & "<font face=Tahoma size=2><strong>"htmlemail = htmlemail & "<body><p>Esta mensagem foi enviada a você sugerindo que visite o endereço a seguir:</p>"htmlemail = htmlemail & "<p><a href=""http://"&endereco&""">"&endereco&"</a></p>"htmlemail = htmlemail & "<p>Comentário:</p>"htmlemail = htmlemail & "<p>"&texto&"</p>"htmlemail = htmlemail & "<p>------------------------------------------<br></p>"htmlemail = htmlemail & "<p>IP: "&ip&"<br></p>"htmlemail = htmlemail & "<p>------------------------------------------<br></p>"htmlemail = htmlemail & "<p>Este e-mail foi enviado através do portal <a href=""http://www.armazemdearte.com.br"">www.armazemdearte.com.br</a><br></p>"htmlemail = htmlemail & "<p>Em caso de dúvidas, entre em contato com <a href=""mailto:armazemdearte@armazemdearte.com.br"">armazemdearte@armazemdearte.com.br</a></p>"htmlemail = htmlemail & "</font></strong>"Mail.To = destinatario_emailMail.From = remetente_emailMail.Subject = "Mensagem enviada por "&remetente_nomeMail.Body = htmlemailMail.MailFormat = 0Mail.Bodyformat = 0On Error Resume NextMail.Send%> <html><head><title>Armazém de Arte</title><STYLE>.formulario { COLOR:#000000;FONT-FAMILY:tahoma;FONT-SIZE:11;}</STYLE><STYLE>.erro { BACKGROUND:#F7F3C5;COLOR:#FA0C00;FONT-FAMILY:tahoma;FONT-SIZE:11;}</STYLE></head><body leftmargin="0" rightmargin="0" marginwidth="0" marginheight="0" topmargin="0" scroll="auto"><%If Err <> 0 Then   Response.Write "Erro encontrado: " & Err.Descriptionelse%><BR><BR><center><b><font face="Tahoma" size="2"><% = request.Form("remetente_nome") %> seu e-mail foi enviado com sucesso para <% = request.Form("destinatario_nome") %><br><br><a href="javascript:self.close()">Fechar</a></font></b></center><br><br><%end if%></body></html>

[gastao 0]

request.servervariables("script_name")