%
' 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
%>
|
|
|
|
|
Homecoming Weekend 2005 |
|
|
|
All activities
scheduled for Homecoming
Weekend,
October 27-30, 2005, For more information, please call
the
Hurricane Rita, Katrina and Wilma collectively could
Todd S. Payne, BA '84, JD '89, Past
President, LAA; the past Presidents of the Student Bar
Association; the Honored
Class of 1985; George F. Knox, Jr., JD '73,
recipient of the Henry "Lat" Latimer Leadership Award;
and Mary Penn, recipient of the Thomas Davison III
Service Award
6:00 - 8:00 p.m.
Invitation - pdf file
New! Slide Show
The Law Alumni Association invites you to attend its 57th Annual Morning Spirits and Homecoming Breakfast in honor of the Judiciary and the members of the Class of 1985. University of Miami
Class of 1955 - 50th Year Reunion
|
More
Information
Homecoming Pre-Game
_______________________ Questions/comments? Direct your questions or comments to: |
|
|
Reunion Events
|
|||||||||||||||||||||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||||||||||||||||||||
|
|
|||||||||||||||||||||||||||||||||||||||||||||||||
|
|
<<Selection in Document>> | |||
|
|
|
|
||