hent url'en lisom location i JS

mener du hele url'en eller en querystring værdi?

jeg vil hente hele værdien afadressen og sende den videre med en Query
eks. nu sidder jeg på http://localhost/deafult.asp Så bliver jeg sendt videre til en anden side: ...   
nyside.asp?henvisning=http://localhost/deafult.asp

Ok:
henvisning = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("DOCUMENT_URI")
Response.Redirect "nyhed.asp?henvisning=" & henvisning

det skulle gerne virke

Det virker næsten... jeg får http://localhost  mengler lige resten *G*

så prøv med:
henvisning = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("PATH_INFO")
Response.Redirect "nyhed.asp?henvisning=" & henvisning

Det virker jo! men.... jeg får stadig ikke hele url'en... hvis jeg f.eks er på siden http://localhost/test.asp?hey=hej får jeg ikke set sidste ?hey=hej med...

den er vist klaret med dette:
henvisning = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("PATH_INFO") & "?" Request.ServerVariables("QUERY_STRING")
Response.Redirect "nyhed.asp?henvisning=" & henvisning

hov:
henvisning = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("PATH_INFO") & "?" & Request.ServerVariables("QUERY_STRING")
Response.Redirect "nyhed.asp?henvisning=" & henvisning

manglede et &

nope.. der er en fejl...


henvisning = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("PATH_INFO") & "?" Request.ServerVariables("QUERY_STRING")
----------------------------------------------------------------------------------------------------------^

se mit sidste indlæg

ok... Ohh... ja! der mangler jo et!

Siger mange tak! Det virker fint nu!

Det vil dog skabe et problem, hvis der ikke skrives noget i querystring, med at der vil komme et uvelkommet ? med. Den klares sådan:


henvisning = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("PATH_INFO")

If Request.ServerVariables <> "" Then
henvisning = henvisning & "?" & Request.ServerVariables("QUERY_STRING")

hov:
henvisning = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("PATH_INFO")

If Request.ServerVariables("QUERY_STRING") <> "" Then
    henvisning = henvisning & "?" & Request.ServerVariables("QUERY_STRING")
End If