<% if Session("Username")<>"winthorpe" then dtTemp=Date dtYear=Year(dtTemp) dtMonth=Month(dtTemp) dtDay=Day(dtTemp) RunHitSelect "SELECT * FROM Hits WHERE TodayDay=" & dtDay & " AND TodayMonth=" & dtMonth & " AND TodayYear=" & dtYear, HitCountRS RecordFound=false do while HitCountRS.eof=false RecordFound=true Hits=HitCountRS.Fields("ContactUs").value Hits=Hits+1 HitExecuteIt "UPDATE Hits SET ContactUs=" & Hits & " WHERE TodayDay=" & dtDay & " AND TodayMonth=" & dtMonth & " AND TodayYear=" & dtYear HitCountRS.MoveNext loop if RecordFound=false then HitExecuteIt "INSERT INTO Hits (ContactUs, TodayDay, TodayMonth, TodayYear) VALUES (1, " & dtDay & "," & dtMonth & "," & dtYear & ")" end if end if sub RunHitSelect(sql, byref TableRS) set Conn = Server.CreateObject("ADODB.Connection") Dim DSNvar DSNvar = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("DatabaseDB78/PDHits.mdb") & ";" Conn.Open(DSNvar) set TableRS = Conn.Execute(sql) end sub sub HitExecuteIt(sql) set Conn = Server.CreateObject("ADODB.Connection") Dim DSNvar DSNvar = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("DatabaseDB78/PDHits.mdb") & ";" Conn.Open(DSNvar) Conn.Execute(sql) Conn.Close end sub %>

If you need to reach us you can email one of the following addresses:   General contact: help@perfectdayonline.co.uk   Product improvement: improve@perfectdayonline.co.uk If you wish to advertise in Perfect Day click the 'Advertisers' menu button on the left of the screen to create a new account. Advertising purchases can be completed online with a debit/credit card and will appear within the product just minutes after set up. If you wish to email us concerning your advertising or your advertising account, use the following address:   advertising@silverstonestudios.com You are entitled to a refund should you cancel your advertising within seven days of purchase. Contact us at:   refunds@silverstonestudios.com Silver Stone Studios Ltd 4 Gray Close Henbury Bristol BS10 7SZ United Kingdom Tel: +44 (0)117 3301250 Copyright © 2005 Silver Stone Studios Ltd. All Rights Reserved.