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

 

Orlando Alumni Event  
 

 Alumni & Law Development  

 

     June 22, 2005          
    
      Wine and Cheese Reception            

   
  Dean and Valerie Jahn Grandin, JD ‘83

Cordially invite you to

a Wine and Cheese Reception at their home

for

Dean Dennis O. Lynch

and

Dean Jeanette F. Hausler, JD ‘53

 

Wednesday, June 22, 2005

6:00 – 7:30 pm

 

1310 Summerland Avenue

Winter Park, Orlando

(305) 284-4945


 

      RSVP           

Ph: (305) 284-3470/Fax: (305) 284-3968

        Email: alumni@law.miami.edu

 

      Reply Brochure with directions       

           Click for Brochure     * PDF     


    
 
     
Photo Gallery   

  

                    Click here for photo gallery
 

       

 

 

 

 

 

    

 

 

 

 

 

 

 

 

 

 

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

      
    Updated: 07/06/2005  

 

 


 

 

 


 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 



 

 

 

 

 

 

 

 



 

 


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 2005

June 2005
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>>