% Dim aPath Dim sPath Dim fs Dim ts aPath = Request.ServerVariables("PATH_TRANSLATED") aPath = Left(aPath, instrRev(aPath, "\")) sPath = aPath & "_private\index.html.cnt" Set fs = Server.CreateObject("Scripting.FileSystemObject") Set ts = fs.OpenTextFile(sPath) count = CLng(Right(ts.ReadLine,11))' used temporarelly in order to read frontpage generated file ts.Close 'had to use frontpage counter since in order to run the following code write permissions are needed ' If Request.Cookies("www.essex.ac.uk/idaworld")("recentvisitor") <> "yes" Then ' count = Int(count) + 1 ' Set ts = fs.OpenTextFile(sPath,2,true) ' ts.WriteLine(count) ' ts.Close ' Response.Cookies("www.essex.ac.uk/idaworld")("recentvisitor") = "yes" ' twohrs = DateAdd("h", 2, Now) ' Response.Cookies("www.essex.ac.uk/idaworld").Expires = twohrs 'End If %>
![]() |
![]() |
![]() |
![]() |
|
Date: 15-17
June 2011
Place:
University of Essex
Confirmed Guest Speakers
Professor Thomas Dumm,
Amherst College, USA
Professor Davide
Panagia, Trent University, Canada
Professor Moya Lloyd,
Loughborough University,UK
|
![]()

Course enquiries: undergraduate, postgraduate, research degrees, request a prospectus