12,000 marched through Central London on March 17th 2007 to protest against MMC and MTAS
Any more contributions will be welcomed.
Return to Home Page
<%
' Generic Party Script, will display all JPEGs in a table.
dim fso, f,fc, NumFiles
numfiles=0
randomize()
Set fso = CreateObject("Scripting.FileSystemObject")
currpath=server.mappath(".")
Set f = fso.GetFolder(currpath)
Set fc = f.files
response.write ""
For Each f1 in fc
if (ucase(right(f1,3))="JPG") or (ucase(right(f1,3))="JPEG") then
numfiles=numfiles+1
s =f1.name
response.write " 0.5 then
response.write " align='left'"
else
response.write " align='right'"
end if
If rnd() > 0.5 then
response.write " valign='top'>"
else
response.write " valign='bottom'>"
end if
response.write "![](" & s & ")
"
if numfiles mod 2 =0 then
response.write "
"
end if
end if
next
select case (numfiles mod 3)
case 0
response.write "| | | |
"
case 1
response.write " | | "
case 2
response.write " | "
end select
%>