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

-----Original Message-----
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 itreturns /dev/a/test.asp, so far I've also heard to use InstrRev, but I don'tknow how to use it....

TIA
.

[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

"Ray at <%=sLocation%>" <myfirstname at lane34 dot com> wrote in message
news:eb**************@TK2MSFTNGP12.phx.gbl...

<%

For Each x in Request.ServerVariables
Response.Write x & " = " & Request.ServerVariables(x) & "<br>"
Next

%>

Make a page with that code and take a look at the available server
variables.

Ray at work

"David de Jong" <news_jonggoud@@@jonggoud.nl> wrote in message
news:7QL_a.15411$tK5.2006383@zonnet-reader-1...

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

[David de Jong]

Thanks, this seems to work, I have to say that I didn;t think of this
solution yet,
David
"Adrian Forbes - MVP" <ad****@xxxnoemailxxx.com> wrote in message
news:0f****************************@phx.gbl...

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

-----Original Message-----
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
.