CODIGO REPARADO:
<%
Ruta = Request.QueryString("Path")
If Ruta = "" then
Ruta="/"
Else
Ruta = Ruta & "/"
End if
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Carpeta = FSO.GetFolder(Server.MapPath(Ruta))
Set Subcarpetas = Carpeta.SubFolders
For Each SubCarpeta in Subcarpetas
SubCNombre = Subcarpeta.Name
%>
<a href="misma_pagina.asp?Path=<% = Request.QueryString("Path") & "/" & SubCNombre %>"><% = SubCNombre %></A><br>
<% Next %>