Form.</H2>"
Response.Write "<FORM ACTION='saveany.asp?func=1' METHOD=POST>"
Response.Write "<table width=400 border=1 cellpadding=0 cellspacing=1>" & vbcrlf
Response.Write "<tr><th colspan=2>" & path & "</th></tr>"
Response.Write "<tr><td colspan=2 align=left><a href='saveany.asp?func=3&path=" & path & "\..'><strong>Parent ..</strong></a></td></tr>" & vbcrlf
'get subfolders collection
set fc = f.subfolders
'enum subfolders
for each folder in fc
Response.Write "<tr><td align=left><INPUT NAME=BrowseServer TYPE=CheckBox Value='" & folder.path & "'></td><td style='padding-left: 20px;' align=left><a href='saveany.asp?func=3&path=" & folder.path & "'>" & folder.name & "</a></td></tr>" & vbcrlf
next
'if there is a folder display the select folder button
if fc.count > 0 then
Response.Write "<TR><TD align=left colspan=2><br><INPUT name=submit type='submit' value='Select Folder'></TD></TR>"
end if
Response.Write"<tr><td colspan=2><INPUT name=cancel type='Button' value='Cancel' onclick=document.location='saveany.asp?func=1'></td></tr>"
Response.Write "</table>" & vbcrlf
Response.Write "</form>"
end select
%>
</BODY>
</HTML>
<SCRIPT LANGUAGE=vbscript RUNAT=Server>
Function ParseForm(strFieldName)
Set strFormData = CreateObject("Scripting.Dictionary")
lngCount = -1
'Try to find the Field
lngNamePos = instr(1,strDataWhole,"name=" & chr(34) & strFieldName & chr(34))
'Parse through data in search of fields
do while lngNamePos <> 0
lngCount = lngCount + 1
lngBeginFieldData = instr(lngNamePos,strDataWhole,vbcrlf & vbcrlf)+4
lngEndFieldData = instr(lngBeginFieldData,strDataWhole,vbcrlf)
strFormData.Add lngCount, mid(strDataWhole,lngBeginFieldData,lngEndFieldData-lngBeginFieldData)
lngNamePos = instr(lngEndFieldData,strDataWhole,"name=" & chr(34) & strFieldName & chr(34))
loop
set ParseForm = strFormData
end function
</SCRIPT>