Querystring e scitpt indirizzo web

[forrest gump 78]

Ciao ragazzi... io dovrei fare un link che passa ad un modulo il valore della pagina dove sta il link, mi spiego:

Nella pagina www.miosito.it/marco.asp metto il link segnala ad un amico, clicco e mi porta ad un modulo, un campo di questo modulo o una variabile prende il valore della pagina in cui ho cliccato, in modo che via email arrivi visita la pagina www.sito.it/marco.asp.

Io ho creato il link:

Segnala

dopo pagina= devo inserire lo script che prende in automatico il valore di quanto scritto nel browser, ma nn ricordo quale.

nella pagina del modulo:

link = request.querystring("pagina")

Help..grazie

[forrest gump 78]

Ho creato il link così ma non funziona:

">segnala

[Roby_72]

pagina=request.ServerVariables("HTTP_REFERER")

Devi metterla direttamente nella pagina con cui segnali, non nel link.

Roby

[forrest gump 78]

Ciao continua a nn funzionare nn capisco il perchè:

Questa è la pagina index dove c'è il link:


<a href="segnala.asp?pagina=<%=request.ServerVariable s("HTTP_REFERER")%>">segnala
questa pagina ad un amico</a>



Questa la pagina segnala.asp:

<%

Response.Buffer = True 

%> 

<%

link = request.QueryString("pagina")

modo = Request.QueryString("modo")
if modo = "ok" then

' ----- INVIO EMAIL ALL'AMICO

' ----- FUNZIONE aCapo, 
aCapo = Chr(13) & Chr(10)



msg = Request.Form("msg") &aCapo "Ti segnalo questa pagina: " & link &aCapo & aCapo
msg = msg & "------------------------------" & aCapo & aCapo
msg = msg & "Questo messaggio ti è stato inviato da : " & aCapo & aCapo 

msg = msg & Request.Form("yname") & aCapo & aCapo 

msg = msg & Request.Form("yemail") & aCapo & aCapo 


msg = msg & "Dal sito mio web" & aCapo
msg = msg & "TROVERAI DIVERSI MODELLI." & aCapo 


msg = msg & "http://www.sito.it" & aCapo & aCapo


msg = msg & "------------------------------" & aCapo


msg = msg & "il webmaster del sito non è responsabile dell'utilizzo di questo servizio " & aCapo
msg = msg & "e del suo uso improprio che se ne potrebbe fare." & aCapo
messaggio = msg

Set email = CreateObject("CDONTS.NewMail")

' INVIO EMAIL ALL'AMICO

email.From = Request.Form("yemail")

email.To = Request.Form("email")

email.Subject =  "Segnalazione sito web"

email.Body = messaggio

email.Send

set email = Nothing

' MODIFICARE CON L'INDEX DELLA PAGINA DEL TUO SITO WEB

Response.Redirect "email_ok.asp" 'oppure inserire un link ad un'altra pagina del sito

else

%><title>SEGNALA LA PAGINA AD UN AMICO</title> 

<form action="segnala.asp?modo=ok" method=post id=form1 name=form1>
  


	<input type=hidden name="page" value="<%=Request.QueryString %>">
  </p>
  <table width="500" height="79" border="0" align="center" cellpadding="0" cellspacing="0">
	<tr bgcolor="#edf7ff"> 
	  <td height="41"> <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Compilando
	        il modulo sottostante, potrai segnalare
	        il sito all'attenzione di un tuo amico,
	        direttamente nella sua casella email.</font></div></td>
	</tr>
	<tr> 
	  <td height="25"></td>
	</tr>
  </table>
  
  <TABLE width=500 border=0 align="center" cellPadding=4 cellSpacing=0 background="" bgColor=#edf7ff>
	<TR> 
	  <TD width="111"> <div align="left"><font size="1" face="Verdana"> 
		  Nome amico/a:</font></div></td>
	  <TD colspan="2"> 
		<input type=text name="name" size=35 style="font-family:verdana;font-size:11px;color:black; width:200px" > 
	  </td>
	</tr>
	<TR> 
	  <TD width="111"> <div align="left"><font size="1" face="Verdana"> 
		  Email amico/a:</font></div></td>
	  <TD colspan="2"> 
		<input type=text name="email" size=35 style="font-family:verdana;font-size:11px;color:black; width:200px"> 
	  </td>
	</tr>
	<TR> 
	  <TD><div align="left"><font size="1" face="Verdana"> 
		  Il tuo nome:</font></div></td>
	  <TD colspan="2"> <input name="yname" size=35 style="font-family:verdana;font-size:11px;color:black;width:200px"> 
	  </td>
	</TR>
	<TR> 
	  <TD><div align="left"><font size="1" face="Verdana"> 
		  La tua email:</font></div></td>
	  <TD colspan="2"><input name="yemail" size=35 style="font-family:verdana;font-size:11px;color:black;width:200px"> 
	  </td>
	</TR>
	<TR> 
	  <TD height="23" valign="top"><div align="left"><font face="Verdana" size=1>Messaggio:</FONT></div></td>
	  <TD height="23" colspan="2"><font face="Verdana" size=2>
	    <textarea name="msg" cols=50 rows=6 style="font-family:verdana;font-size:11px;color:black;width:200px">
<%=Request.QueryString("page") %></textarea>
	  </font></td>
	</tr>
	<tr valign="top"> 
	  <TD> <div align="center"><font face="Verdana" size=1></font><font face="Verdana" size=2>
		  </font> </div></td>
	  <TD width="100"><font face="Verdana" size=2>
	    <input type=submit value="Invia " id=submit1 name=submit1 style="font-family:verdana;font-size:11px;color:black">
	  </font></td>
	  <TD width="265"><input type="reset" name="Submit" value="Reimposta" style="font-family:verdana;font-size:11px;color:black"></td>
	</TR>
  </TABLE>   
</form>
<%

end if

%>

[Roby_72]

link = request.servervariables("HTTP_REFERER")

Nella pagina segnala.asp e basta.

Roby

[forrest gump 78]

Grazie funziona tutto... mitiicooo!