<% Const DAILY_DIR = "/../pwpphotos/"
Dim objDSO, objDailyFolderObject, objDailyCollection, objDaily
Dim intDailyNumberToUse, intDailyLooper
Dim objDailyImageToUse
Dim strDailySrcText
Set objDSO = Server.CreateObject("Scripting.FileSystemObject")
Set objDailyFolderObject = objDSO.GetFolder(Server.MapPath(DAILY_DIR))
Set objDSO = Nothing
Set objDailyCollection = objDailyFolderObject.Files
Set objDailyFolderObject = Nothing
Dim myDate
myDate = cDate("September 27, 1969")
intDailyNumberToUse = DateDiff("d", myDate, Date) MOD objDailyCollection.Count
intDailyLooper = 1
For Each objDaily in objDailyCollection
If intDailyLooper = intDailyNumberToUse Then
Set objDailyImageToUse = objDaily
Exit For
End If
intDailyLooper = intDailyLooper + 1
Next
Set objDailyCollection = Nothing
strDailySrcText = DAILY_DIR & objDailyImageToUse.Name
Set objDailyImageToUse = Nothing
%>
This
chat room is reserved for spouses, family, and caregivers
of those with Parkinson's. Patients will not be admitted
due to the fact we wish people to express their concerns
and questions without reprisal. Moderators of this community
will approve all membership requests.
You will
be required to develop a user profile, this is a one time
process and will take a few minutes but is well worth it
in the long run.
