<%
dim shortTop
shortTop = 1
%>
Ke stažení
<%
dim typSouboruKeStazeni, ikoSouboruKeStazeni
If Request.Querystring("path") = "" Then
sPath = "download"'startovaci adresar
'start
BrowseFolders sPath
Else
sPath = Request.Querystring("path")
If InStr(sPath,"./") <> 0 Then
%>
Neplatný adresář!
<%
else
'start
BrowseFolders sPath
End If
End If
%>