<% function read_write_file(currentfilename) Dim objFSO Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Dim objTextStream workingfolder = "scan2003" ' the folder in which your upload folders are sitting uploadfolder = "" ' the folder inside the upload folder to upload this file type 'Response.Write server.mappath(currentfilename) path_str = server.mappath(currentfilename) 'Response.Write path_str 'response.flush 'const strFileName = path_str const fsoForReading = 1 If objFSO.FileExists(path_str) then 'The file exists, so open it and output its contents Set objTextStream = objFSO.OpenTextFile(path_str, fsoForReading) Response.Write "" & objTextStream.ReadAll & "" objTextStream.Close Set objTextStream = Nothing Else 'The file did not exist Response.Write strFileName & " was not found." End If 'Clean up Set objFSO = Nothing end function Randomize() dim randomArray(3) for a = 0 to Ubound(randomArray) randomArray(a) = 0 next dim pageArray(3) pageArray(0) = "inc_home1.asp" pageArray(1) = "inc_home2.asp" pageArray(2) = "inc_home3.asp" pageArray(3) = "inc_home4.asp" function genrandomno() sngRandomValue = 4 * Rnd() intRandomInteger = Int(sngRandomValue) randomArray(i) = intRandomInteger '+ 1 end function for i = 1 to 3 genrandomno() while oktomoveon <> "yip" for b = 1 to i if b <> i then if randomArray(i) = randomArray(b) then genrandomno() nogenerated = "yip" end if end if next if nogenerated <> "yip" then oktomoveon = "yip" end if nogenerated = "nope" wend oktomoveon = "nope" next %>

 

ESSENTIAL MAINTENANCE

 

This part of the website is currently unavailable due to essential maintenance work. Please return to the home page or select another part of the site using the orange navigation bar above.

Alternatively please use the 'back' button on your browser to return to the previous page.

SCAN apologises for the the temporary unavailability of this part of the site.