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

 
 
Wine & Cheese Reception -
Washington, D.C.   
  

 Alumni & Law Development  

 

     November 10, 2004        
 

   Carolyn Lamm, JD ’73, and Peter Halle, JD ‘73 

Cordially invite you to

A “Wine & Cheese” Reception

In honor of

Dennis O. Lynch, Dean

University of Miami School of Law

 

   Wednesday, November 10,  2004

5:00 – 7:00 p.m.

 

White & Case

601 13th St NW #600 South

Washington, D.C.

 

   R.S.V.P. 305-284-3470, or 

jaguiler@law.miami.edu

 

 

 

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

    


    Updated: 11/02/2004  

 

 

 

 

 
 

  

 

 

 

 

 

 

             

 
 


I would like to receive Reunion and
     Homecoming e-mail updates.
 

Questions?  Contact the Law
      Alumni Office.  Technical issues, 
      email the site's developer.


Calendar



 Reunion Home page



Class Gift
Dean's Circle 
Momentum Campaign  

          



  Alumni Events 2004

  Reunion Events
November 2004
S
M
T
W
Th
F
S
 
1
   2   3    4  5   6
  7   8   9  10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
  
 
 
 
<<Selection in Document>>