<% ' 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 %>

 

 
    

    You may submit photographs, documents, or other
    materials by regular postal mail or email if the material
    is in digital format and may be transmitted in that
    manner.  Additionally your comments and suggestions
    are welcomed and may be sent in the same manner.         

    Regular postal mail

     University of Miami School of Law
      Office of Law Development and Alumni Relations
      PO Box 248087
      Coral Gables, FL 33124-8087
     

     Telephone/Fax

    Telephone:  305-284-3470 
      Facsimile:    305-284-3968

   
    Via Email   

       To email digital graphics, documents and other
       digitized materials, please email them to
      
        alumni@law.miami.edu     
 

     Related submissions  

     Class Notes              
     Update your address     
   
    Updated: 10/05/2006  

 

     
 

 

 

 

 

_______________________

Questions/comments? 

Direct your questions or comments regarding:  
 
   Submitting materials to the Law Alumni Office or to the site's developer.
 
 


Submitting materials    



 Reunion Home page

Class Gift
Dean's Circle 
Momentum Campaign  

          


 

 

 <<Selection in Document>>