1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43
| <table border="1" align="center" cellpadding="10">
<%
Dim tbl_template
tbl_template = Array()
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
dir = Server.MapPath("./" & Request.QueryString("cat"))
set foldPt = FSO.GetFolder(dir)
set fc = foldPt.SubFolders
for each f in fc
if Left(f.name, 2) = "PW" then
Redim Preserve tbl_template(UBound(tbl_template)+1)
tbl_template(UBound(tbl_template)) = f.name
end if
next
nbTemplate = 1 + UBound(tbl_template)
j = -1
for i = 1 to (int(nbTemplate / 3))
response.write("<tr>")
j = j+1
response.write("<td><a href="& Request.QueryString("cat")& "/" & tbl_template(j)& "/jpeg/template"&Right(tbl_template(j),3)&".jpg"&" ><img height=300px src="&Request.QueryString("cat")&"/"& tbl_template(j)& "/jpeg/template"& Right(tbl_template(j),3)&".jpg ></a></td>")
j = j+1
response.write("<td><a href="& Request.QueryString("cat")& "/" & tbl_template(j)& "/jpeg/template"&Right(tbl_template(j),3)&".jpg"&" ><img height=300px src="&Request.QueryString("cat")&"/"& tbl_template(j)& "/jpeg/template"& Right(tbl_template(j),3)&".jpg ></a></td>")
j = j+1
response.write("<td><a href="& Request.QueryString("cat")& "/" & tbl_template(j)& "/jpeg/template"&Right(tbl_template(j),3)&".jpg"&" ><img height=300px src="&Request.QueryString("cat")&"/"& tbl_template(j)& "/jpeg/template"& Right(tbl_template(j),3)&".jpg ></a></td>")
next
response.write("<tr>")
for i = j+1 to nbTemplate -1
response.write("<td><a href="& Request.QueryString("cat")& "/" & tbl_template(i)& "/jpeg/template"&Right(tbl_template(i),3)&".jpg"&" ><img height=300px src="&Request.QueryString("cat")&"/"& tbl_template(i)& "/jpeg/template"& Right(tbl_template(i),3)&".jpg ></a></td>")
next
response.write("</tr>")
%>
</table> |
Partager