hola,
funciona bien para obtener los datos, me falla al enviarlos al popup 
%
SERVER_NAME = Request.ServerVariables("SERVER_NAME")
PATH_INFO = Request.ServerVariables("PATH_INFO")
QUERY_STRING = Request.ServerVariables("QUERY_STRING") 
DireccionActual = "http://" & SERVER_NAME &"/"& PATH_INFO & "?" & QUERY_STRING
%> 
al hacer un response.write yambién funciona correctamente, tal como me indicas 
<% response.write DireccionActual
response.end
'en donde Direccion Actual tiene que tener 
http://tudominio.com/tupaginaresutla...=1&variable2=2
%>  
Ahora el tercer paso al enviar esta info a un popup que se abre, envia el resultado de la consulta, no la cadena de consulta, que seria lo necesario para poder tener la direccion URL 
onclick="MM_openBrWindow('envia_amigo.asp?direccio  n=<%=DireccionActual%>','','scrollbars=yes,width=4  50,height=250')" 
y en la ventana envia_amigo.asp recojo la variable "direccion"  
 <% direccioURL =  Request.querystring ("direccion")
  response.write direccioURL %>