Chrys and Mike's World

Saturday, August 16, 2008

Zoo

Our Dallas Zoo membership can conveniently be used at the Abilene Zoo so we headed there this morning for another day of celebrating Mr. T's first birthday. The rain held off and allowed for a cool, breezy, very un-August-like visit. What fun...

Chrys

Labels: abilene, grandparents, zoo

Links

Infant Sign Language Dictionary

The Adventures of Pip and Squeak

Travis & Andrea's Family

Life With The Wisners

The Shiflet Family Adoption Journey

The Hewitt Fam

The One About Us

A Long Way From The Theta House

A Garden For Growing

Get On The Thomas Train

We Heart Chick-Fil-A

Summer, Justin & Blake

Each Day is a Little Life

<% on error resume next 'Dim fileDate ' Create a server object ''set fso = createobject("scripting.filesystemobject") ' Target the text file to be opened ''set act = fso.opentextfile(server.mappath("today.txt")) ' Read the value of the text document ' If the text document does not exist then the on error resume next ' will drop down to the next line ''fileDate = act.readline ' Close the object ''act.close ''Response.Write(fileDate & "\r\n") ''Response.Write(Date()) ''If fileDate = date() Then '' Response.Write("Today") ''Else '' Response.Write("NOT TODAY") ''End If ' Useful Debugging Lines: 'Response.Write Application("LastScheduledRun") & "
" & vbCrLf 'Response.Write Now() & "
" & vbCrLf 'Response.Write DateDiff("d", Application("LastScheduledRun"), Now()) _ ' & "
" & vbCrLf ' Create a server object set fso = createobject("scripting.filesystemobject") If DateDiff("d", Application("LastScheduledRun"), Now()) > 0 Then ' This is where you put the commands you want to run on the ' schedule set up by the above condition. ' Create a new text file on the server Set act = fso.CreateTextFile(server.mappath("hitcounter.txt"), true) ' Write the current counter value to the text document act.WriteLine("0") ' Close the object act.Close ' Reset our "LastScheduledRun" variable to the current date ' and time indicating we just did it. Application.Lock Application("LastScheduledRun") = Now() Application.UnLock Else ' Target the text file to be opened set act = fso.opentextfile(server.mappath("hitcounter.txt")) ' Read the value of the text document ' If the text document does not exist then the on error resume next ' will drop down to the next line counter = clng(act.readline) ' Add one to the counter counter = counter + 1 ' Close the object act.close ' Create a new text file on the server Set act = fso.CreateTextFile(server.mappath("hitcounter.txt"), true) ' Write the current counter value to the text document act.WriteLine(counter) ' Close the object act.Close ' Write the counter to the browser as text 'Response.Write counter End If %>

Chrys and Mike's World

Saturday, August 16, 2008

Zoo

About Me

Links

Previous Posts

Archives