Enlace en cada carpeta de una URL

[AlZuwaga]

Enlace en cada carpeta de una URL:

Hola. Suponiendo un código como el siguiente... cómo hago para convertir la cadena “/Graficas/Back_Up/_vti_cnf” (por ejemplo) en tres enlaces distintos...

1- <a href='principal.asp?Path=/Graficas’>Graficas</a>
2- <a href='principal.asp?Path=/Graficas/Back_Up’>Back_Up</a>
3- <a href='principal.asp?Path=/Graficas/Back_Up/_vti_cnf’>_vti_cnf</a>

...???

Este es el código que hasta el momento pude hacer luego de intentar durante varias horas infructuosamente:

Código:

<%
Dim Ruta, RutaSplit, i
Ruta = “/Graficas/Back_Up/_vti_cnf”
RutaSplit = Split(Ruta, "/")

For i = 0 to UBound(RutaSplit)
Response.Write "<a href='principal.asp?Path=" & RutaSplit(i) & "'>" & RutaSplit(i) & "</a> "
Next
%>

Actualmente ese código me devuelve lo siguiente y no me sirve:

1- <a href='principal.asp?Path=Graficas'>Graficas</a>
2- <a href='principal.asp?Path=Back_Up'>Back_Up</a>
3- <a href='principal.asp?Path=_vti_cnf'>_vti_cnf</a>


gracias por sus sugerencias

[AlZuwaga]

ya me dio una respuesta urjose mediante messenger, mañana pongo el código que me pasó (ahora tengo sueño!)

saludos y gracias

[MartinAcevedo]

Hola, mira creo que tu problema ahi son las barras esas, cuando las pasas como parametro no te las toma, o te toma la ultima palabra.... para solucinarlo podes convertir la cadena con una funcion, a siguiente
Variable=Server.urlencode ("carpeta/subcarpeta")

despues pones
Response.write ("<a href Parh=" & Variable & ">Carpeta</a>"
o algo asi
Espero que te sirva
Saludos

Martin Acevedo

[MartinAcevedo]

o see en esta parte del codigo
<a href='principal.asp?Path=<% Server.UrlEncode("/Graficas")’%>>Graficas</a>
<a href='principal.asp?Path=<% Server.UrlEncode("/Graficas/Back_Up")’%>’>Back_Up</a>
<a href='principal.asp?Path=<% Server.UrlEncode("/Graficas/Back_Up/_vti_cnf")’%>’>_vti_cnf</a>



Martin Acevedo

[Lothar]

Así lo tienes solucionado:

<%
Dim Ruta, RutaSplit, i
Ruta = "/Graficas/Back_Up/_vti_cnf"
RutaSplit = Split(Ruta, "/")

for i=1 to Ubound(RutaSplit)
sCad=""
for j=0 to i
sCad=sCad & RutaSplit(j)
next
Response.write "/" & sCad & "<br>"
next
%>