<%
'Dimension variables
Dim fsoObject 'File System Object
Dim tsObject 'Text Stream Object
Dim filObject 'File Object
Dim lngVisitorNumber 'Holds the visitor number
'Create a File System Object variable
Set fsoObject = Server.CreateObject("Scripting.FileSystemObject")
'Initialise a File Object with the path and name of text file to open
Set filObject = fsoObject.GetFile(Server.MapPath("hit_count.txt"))
'Open the visitor counter text file
Set tsObject = filObject.OpenAsTextStream
'Read in the visitor number from the visitor counter file
lngVisitorNumber = CLng(tsObject.ReadAll)
'If the session variable is null or does not exsist then increment the counter number
If isEmpty(Session("blnCounterSet")) = True Then
'Increment the visitor counter number by 1
lngVisitorNumber = lngVisitorNumber + 1
'Set the session variable to true
Session("blnCounterSet") = True
End if
'Create a new visitor counter text file over writing the previous one
Set tsObject = fsoObject.CreateTextFile(Server.MapPath("hit_count.txt"))
'Write the new visitor number to the text file
tsObject.Write CStr(lngVisitorNumber)
'Reset server objects
Set fsoObject = Nothing
Set tsObject = Nothing
Set filObject = Nothing
%>
<% Dim objConn, objRS
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DSN=web", "webview", "webster"
Set objRS = objConn.execute("Select * from uomevent order by event_occur_date ASC")%>
<% dim cnt,cntexp
cnt =0
cntexp = 0
Do While NOT objRS.EOF
'response.write objRs.Fields("Login_Name")
cnt = cnt + 1
%>
<% if datediff("d",Date,objRS.Fields("event_expiry")) <= 0 then
cntexp = cntexp + 1
%>
<% end if
ObjRS.MoveNext
Loop
if (cnt=cntexp) then
%>
No Message Available !
<% Else%>
<% objRS.MoveFirst %>
<% Do While NOT objRS.EOF %>
<%if datediff("d",Date, objRS.Fields("event_expiry")) > 0 then
Response.write "
"
%>
<%Response.write objRS.fields("Event_Heading")%>
<%Response.write "
"
Response.write "
"
response.write ""
response.write objRS.fields("Event_Desc")
response.write "
"
response.write ""
End if
ObjRS.MoveNext
Loop
End if %>
ANNOUNCEMENTS
