<% Dim dHour dHour = Hour(Now) If dHour < 12 Then Response.Write " Good morning on " ElseIf dHour < 17 Then Response.Write " Good afternoon on " Else Response.Write " Good evening on " End If Response.Write(Date()) Response.Write(" at ") Response.Write(Time()) %>
<% Dim IPAddress IPAddress = Request.ServerVariables("REMOTE_ADDR") Response.Write " Your IP Address is: " & IPAddress 'Initialize some Session variables Session("ValidatedAdministrator") = False Session("ValidatedStudent") = False Session("NewFolderError") = False Session("UserIP") = IPAddress %>
If you have questions or comments please contact me: Guy Campbell
