<%@ Language = VBscript %>
<%
Reply = ""
set fso = CreateObject("Scripting.FileSystemObject")
root = Server.MapPath("index.asp")
root = left(root,len(root)-9)
set fold = fso.getFolder(root)
Reply = ""
for each fil in fold.files
if fil.name <> "index.asp" then
Reply = Reply & "" & fil.name & "
" & vbcrlf
end if
next
Reply = Reply & "
"
for each fil in fold.files
if fil.name <> "index.asp" then
desc = desc & fil.name & ", "
end if
next
%>
VB6 programs for download
VB6 programs to download, open with winzip, use to make new programs.
<%= Reply %>
foelock.com