MenuUser

<%

Dir = Request.ServerVariables("Path_Info")
dirArr = Split(Dir, "/")

Response.write "Sei in: "
Response.write "<a href=/">Home</a>"

For i = 1 To UBound(dirArr)

Response.write " > "
path = path & dirArr (i)
Response.Write "<a href=" & path & ">" & Replace (dirArr (i), "_", " ")

Next

%>