Requesting URL

[David de Jong]

Does anyone how to get the url in e.g. http://localhost/dev/a/test.asp?id=1
(so I get test.asp). I've tried <% request.ServerVariables("URL") %> but it
returns /dev/a/test.asp, so far I've also heard to use InstrRev, but I don't
know how to use it....

TIA

 

[Adrian Forbes - MVP]

if strcomp(Request.ServerVariables ("HTTPS"), "ON", 1) = 0
then
sURL = "https://"
else
sURL = "http://"
end if
sURL = sURL & Request.ServerVariables ("SERVER_NAME")
sURL = sURL & Request.ServerVariables ("SCRIPT_NAME")
if len(trim(Request.QueryString)) > 0 then
sURL = sURL & "?" & Request.QueryString
end if

Response.Write sURL

 

[Ray at]

Oops. This answer will not be enough to get the result you want.

I think this will work.
<%
sScript = Request.ServerVariables("SCRIPT_NAME")
aScript = Split(sScript, "/")
sScript = aScript(UBound(aScript))

Response.write sScript
%>

Ray at work

 

[David de Jong]

Thanks, this seems to work, I have to say that I didn;t think of this
solution yet,
David