<%
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) ]
