I use asp and forms all day long and I'm trying to use the FileSystemObjecct now. I have downloaded someone elses code and manipulated it in hopes of learning how to write it from scratch myself. I'm having some trouble and could use a little help translating if you can. Thanks.

Here is it code, below I have explained what I can't figure out. Thanks.

Code:
<%@ Language="VBScript" %>
<HTML>
<HEAD>
<style>
<!--
	td		{font-family: arial, verdana;}
	a		{color: #ff0000; font-size: 16px; text-decoration: none;}
	a:hover	{color: #000000;}
-->
</style>
</HEAD>
<BODY>
<%
Dim objFileScripting, objFolder
Dim filename, filecollection, strDirectoryPath, strURLPath
	strDirectoryPath = "d:\mainweb\"
	strURLPath = "http://hsdcenter/"

	'get file scripting object
	Set objFileScripting = CreateObject("Scripting.FileSystemObject")
	'return folder object
	Set objFolder = objFileScripting.GetFolder("d:\mainweb\")
	'return file collection in folder
	Set filecollection = objFolder.Files
	'create the links
%>
<table width="530" cellpadding="5" cellspacing="0" border="1">
<tr>
	<td width="180" valign="top">Testing</td>
	<td width="350" valign="top">
<%
	For each Filename in filecollection
		filename = right(filename,len(Filename) - inStrRev(Filename, "\"))
			Select Case Right(Filename,3)
				Case "asp", "tml", "htm"
					Response.Write("<img src='File.gif'>&nbsp;&nbsp;<a href='" & strURLPath & filename & "'>" & Filename & "</a><br>")
				Case "gif", "fla", "swf", "jpg"
					Response.Write("<img src='Image.gif'>&nbsp;&nbsp;<a href='" & strURLPath & filename & "'>" & Filename & "</a><br>")
				Case "xls"
					Response.Write("<img src='Excel.gif'>&nbsp;&nbsp;<a href='" & strURLPath & filename & "'>" & Filename & "</a><br>")
				Case "exe"
					Response.Write("<img src='Exe.gif'>&nbsp;&nbsp;<a href='" & strURLPath & filename & "'>" & Filename & "</a><br>")
				Case "zip"
					Response.Write("<img src='zip.gif'>&nbsp;&nbsp;<a href='" & strURLPath & filename & "'>" & Filename & "</a><br>")
				Case Else
					Response.Write("<img src='None.gif'>&nbsp;&nbsp;<a href='" & strURLPath & filename & "'>" & Filename & "</a><br>")
			End Select
	Next
%></td>
</tr>
<tr>
	<td colspan="2" align="right"><%= strURLPath %></td>
</tr>
</table>
</BODY>
</HTML>
1. I have tried to rewrite the same thing in the left td but change it to folders instead of files and I can't get that to work.

2. I have tried to play with < input type='file'... to get an upload option on the page but I can't figure that out either.

Any help would be greatly appreciated.

Art Sapimp