<% Response.Expires = 0 Response.ExpiresAbsolute = Now() -1 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "no-cache" Dim maxMirrors, swfPath Dim arrURLs(5) ' LB Configurable Bits in here maxMirrors = 4 ' No higher than 6 arrURLs(0) = "http://www.lowmorale.co.uk/creep/flash/lm_creep_(FLASH).swf" arrURLs(1) = "http://korpps.free.fr/radiohead_creep.swf" arrURLs(2) = "http://www.lowmorale.co.uk.nyud.net:8090/creep/flash/lm_creep_(FLASH).swf" arrURLs(3) = "http://ggle.free.fr/ /zn2003/creep.swf" arrURLs(4) = "" arrURLs(5) = "" ' Declare variables for the File System Object and the File to be accessed. Dim objFSO, objTextFile, mirrorText ' Create an instance of the the File System Object and assign it to objFSO. Set objFSO = CreateObject("Scripting.FileSystemObject") ' Open the file OpenTextFile(fname,mode,create,format) Set objTextFile = objFSO.OpenTextFile(Server.MapPath("..\..\..\data\mirrorID.txt"),1) mirrorText = objTextFile.Read(1) Set objTextFile = objFSO.OpenTextFile(Server.MapPath("..\..\..\data\mirrorID.txt"),2,true) if mirrorText = "1" then if maxMirrors = 1 then objTextFile.WriteLine "1" ' Loop The ID around else objTextFile.WriteLine "2" ' Write the ID end if swfPath = arrURLs(0) elseif mirrorText = "2" then if maxMirrors = 2 then objTextFile.WriteLine "1" ' Loop The ID around else objTextFile.WriteLine "3" ' Write the ID end if swfPath = arrURLs(1) elseif mirrorText = "3" then if maxMirrors = 3 then objTextFile.WriteLine "1" ' Loop The ID around else objTextFile.WriteLine "4" ' Write the ID end if swfPath = arrURLs(2) elseif mirrorText = "4" then if maxMirrors = 4 then objTextFile.WriteLine "1" ' Loop The ID around else objTextFile.WriteLine "5" ' Write the ID end if swfPath = arrURLs(3) elseif mirrorText = "5" then if maxMirrors = 5 then objTextFile.WriteLine "1" ' Loop The ID around else objTextFile.WriteLine "6" ' Write the ID end if swfPath = arrURLs(4) elseif mirrorText = "6" then if maxMirrors = 6 then objTextFile.WriteLine "1" ' Loop The ID around else objTextFile.WriteLine "1" ' Write the ID end if swfPath = arrURLs(5) end if objTextFile.Close ' Close the file. Set objTextFile = Nothing ' Release reference to the text file. Set objFSO = Nothing ' Release reference to the File System Object. %> [ Low Morale: Radiohead - creep (acoustic) ]
Exit the animation