Create

[simon_desarte]

Hi There,

I am hoping somebody can point me in the right direction - I have
created an ASP page which creates a list of all documents in a given
folder (testfolder in the root). (Code is pasted below)
What I would like to do is create a form checkbox after each file link,
how would I create this so that a new unique checkbox is created for
each individual file.

Could anybody give me any pointers please

Many Thanks

Simon
<% FolderList(Serv er.MapPath("tes tfolder")) %>

<% sub FolderList(path )

dim fso, fldr, file, item, url

set fso = CreateObject("S cripting.FileSy stemObject")
Response.Write( fso.GetFolder(p ath))
set fldr = fso.GetFolder(p ath)

for each item in fldr.Files
url = RepURL(item.pat h)
Response.Write( "<li><a href=""" & url & """>" & item.Name _
& "</li>" & vbCrLf)
next

Response.Write( "</ul>" & vbCrLf)
Response.Write( "</li>" & vbCrLf)

end sub

function RepURL(path)

dim rootPath, url

rootPath = Server.MapPath( "/")
url = Right(path, Len(path) - Len(rootPath))
RepURL = Replace(url, "\", "/")

end function
%>

[Adrienne]

Gazing into my crystal ball I observed "si***********@ yahoo.co.uk"
<si***********@ yahoo.co.uk> writing in news:1123027232 .741182.63770
@g14g2000cwa.go oglegroups.com:

Hi There,

I am hoping somebody can point me in the right direction - I have
created an ASP page which creates a list of all documents in a given
folder (testfolder in the root). (Code is pasted below)
What I would like to do is create a form checkbox after each file link,
how would I create this so that a new unique checkbox is created for
each individual file.

Could anybody give me any pointers please

Many Thanks

Simon
<% FolderList(Serv er.MapPath("tes tfolder")) %>

<% sub FolderList(path )

dim fso, fldr, file, item, url

set fso = CreateObject("S cripting.FileSy stemObject")
Response.Write( fso.GetFolder(p ath))
set fldr = fso.GetFolder(p ath)

Put in a counter.
for each item in fldr.Files counter = counter + 1 url = RepURL(item.pat h)
Response.Write( "<li><a href=""" & url & """>" & item.Name _
& "</li>" & vbCrLf)
%>
<input type="checkbox" name="fieldname " id="id<%=counte r%>" value="<%
=item.Name%>><% =item.Name%><br >
%>
next

Response.Write( "</ul>" & vbCrLf)
Response.Write( "</li>" & vbCrLf)

end sub

function RepURL(path)

dim rootPath, url

rootPath = Server.MapPath( "/")
url = Right(path, Len(path) - Len(rootPath))
RepURL = Replace(url, "\", "/")

end function
%>

--
Adrienne Boswell
http://www.cavalcade-of-coding.info
Please respond to the group so others can share