Dean's Circle

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

Make a Gift to the Law School	Alumni Weekend 2006
Thank you for choosing to make a gift to the University of Miami School of Law. *Dean's Circle Committee 2005 - 2006 [PDF] Dean's Circle brochure* [PDF] Make a Gift! 1. Click here for the Make a Gift Form** * [PDF] 2. You may print and then fax or mail the Gift Form. 3. After you print the Make a Gift form please either: Fax to 305-284-3968; or Send by mail: University of Miami School of Law Office of Law Development and Alumni Relations PO Box 248087 Miami, FL 33124-1087 Updated: 01/16/2007
		Please click on image at left to go to the Adobe web site where you may download the Reader required for viewing PDF files.

	_______________________ Questions/comments? Direct your questions or comments to: The Law Alumni Office This site's developer.

Dean's Circle

Reunion Home page

Class Gift
Momentum Campaign