. These are the hand picked favorite images." /> " />

Best of the Best

Here are the most viewed Pictures over the past 30 days. <% Dim objFSO Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Dim objTextStream const strFileName = "D:\sites\pics-allweirdpics\spons\linkunit.htm" const fsoForReading = 1 If objFSO.FileExists("D:\sites\pics-allweirdpics\spons\linkunit.htm") then 'The file exists, so open it and output its contents Set objTextStream = objFSO.OpenTextFile(strFileName, fsoForReading) linkunitcontents = "" & objTextStream.ReadAll & "" objTextStream.Close Set objTextStream = Nothing else linkunitcontents = "" End If 'Clean up totpics = application("TOTTOPPICS") Dim allpics allpics = application("TOPPICS") html = "" for i = 0 to totpics TIT = allpics(4, i) html = html & "

" & SERVER.HTMLENCODE(allpics(5, i)) & "

" & vbnewline next html = html & "
  • " & linkunitcontents & "
  • " & vbcr response.write html %>