<% ' Declare our vaiables Dim objFSO, objCountFile ' object vars for FSO and File Dim strCountFileName ' filename of count text file Dim iCount ' count variable Dim bUseImages ' boolean whether or not to use images Dim I ' standard looping var ' Determine whether we use images or plain text ' You could just set this to True or False instead bUseImages = True ' Compute our count file's filename ' This is based on the file from which you call count.asp ' It basically takes that name and appends a .cnt so I don't ' accidently overwrite any files. If for some reason you have ' a file named script_name.asp.txt then change this or watch out! strCountFileName = ("img_rotation.txt") ' Create FileSystemObject to deal with file access Set objFSO = Server.CreateObject("Scripting.FileSystemObject") ' Open the file as a text stream (1 = ForReading, True = Create) Set objCountFile = objFSO.OpenTextFile(strCountFileName, 1, True) ' Read the current count from the file If Not objCountFile.AtEndOfStream Then ' Set value to contents of the file iCount = CLng(objCountFile.ReadAll) Else ' If no file exists or it's empty start at 0 iCount = 0 End If ' Close the file and destroy the object objCountFile.Close Set objCountFile = Nothing ' Increment the count If iCount = 10 Then iCount = 1 Else iCount = iCount + 1 End If ' Overwrite existing file and get a text stream to new one Set objCountFile = objFSO.CreateTextFile(strCountFileName, True) ' Write updated count objCountFile.Write iCount ' Close the file and destroy the object objCountFile.Close Set objCountFile = Nothing ' Destroy the FSO object Set objFSO = Nothing ' We're all done with the hard part ' All that's left is to display the results If bUseImages Then Response.Write "" Response.Write "
" & "Picture: " & iCount End If %>

 
     

       Adobe Acrobat PDF Reader

       Some of the documents on this site are in Adobe  
       Acrobat Portable Document Format or PDF. 

       You will need to have Adobe Reader installed to be 
       able to access these documents. 

       This software is available without cost from the Adobe
       download site.  

       If you do not have Adobe Reader please click on the
       Adobe icon on the right.  It is linked to the Adobe
      download site where you may obtain it free of charge.    

 

 

 


       Updated: 10/05/2006       

 

       Adobe Reader download link
     
 

Please click on image above
to go  to the Adobe web site where
you may download the Reader
required for viewing PDF files.

There is no charge for downloading
or using the Reader. 

 

 

    _________________________
 
Questions/comments? 

Direct your questions or comments regarding:  
 
   Adobe Reader downloads to this site's developer.
 
 


Downloads  



 Reunion Home page

Class Gift
Dean's Circle 
Momentum Campaign  

          



  Alumni Events 2006