Grazie a tutti per la risposta,

alla fine ho risolto come segue:


<%URL=Request.ServerVariables("SCRIPT_NAME")
home="http://www.jottoart.com/"
dim da,cc,L2
da=2
cc=(INSTR(da,URL,"/"))-da
if cc>0 then
cc3=(INSTR(cc,URL,"/"))+1
'ricavo il livello 2 di navigazione
L2=MID(URL,da,cc)
'ricavo il livello 3 di navigazione
L3=MID(URL,cc3,100)
'Imposto la casistica per il livello 3
Select case Lcase(L3)
Case "cerca.asp"
sTitle = "Ricerca Avanzata "
Case "ricerca_portatili.asp"
sTitle = "Ricerca per parola chiave "
Case "acer.asp", "asus.asp", "benq.asp"
sTitle = maker
Case "scheda_tecnica.asp"
sTitle = "Scheda tecnica"
Case "carrello.asp"
sTitle = "carrello"
Case Else
sTitle = ""
End Select
else
end if
%>
Ciao