ricavare url fino alla cartella

[Yuppies]

salve .

vorrei chiedere se qualcuno può aiutarmi a ricavare il percorso dell'url fino alla cartella in cui mi trovo durante la navigazione del sito

ho provato con

response.Write(Request.ServerVariables("PATH_INFO" ))

ma ottendo il percorso compreso del nome del file in uso

a me occorrerebbe conoscerlo fino alla cartella

es : http://www.miosito.it/prodotti

come fare?

grazie

[Mems]

<%
dominio = request.serverVariables("SERVER_NAME")
pagina = request.serverVariables("PATH_INFO")
pagina = mid(pagina,1,inStrRev(pagina,"/"))
completo = "http://" & dominio & pagina
response.write completo
%>