Usa le funzioni InstrRev e Left in questo modo:

'Un percorso generico è di questo tipo:
'c:\inetpub\wwwroot\sito\index.asp
'Vediamo quale posizione occupa l'ultimo backslash:
'Usiamo InstrRev, che inizia a cercare da destra

Dim stringa
Dim posizione
stringa = servervariables("http_REF")&servervariables("url")
posizione = InStrRev (stringa, "\")

'Ora togliamo la parte della stringa che non ci interessa (il nomefile)
Dim stringafinale
stringafinale = Left (stringa, (Len(stringa)-posizione))


Dovrebbe funzionare, non sono esattamente sicuro se avrai come risultato
c:\inetpub\wwwroot\sitooppure
'c:\inetpub\wwwroot\sito

comunque prova. Ciaooo


-----------------------
Da una perla dal saggio:
Quando non hai capito, devi dire "non ho capito", no che dici che hai capito e invece non hai capito un cavolo. Hai capito?
-----------------------