<% 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 %> Perfect Day: The Deluxe Wedding Planning Software Suite...Contact Us
wedding softwarewedding plannerwedding planning softwarewedding planner softwarewedding invitation softwarewedding budgetwedding invitationswedding organizerwedding planningwedding site
Wedding Planning Banner
Home
Wedding Planning Features
See our wedding software in action
purchase our award winning wedding planning software
questions about our wedding planning software
Find local wedding suppliers online
Wedding planning articles and features
Contact us
Wedding planning links
Advertise your wedding business in our online wedding suppliers directory
   
   
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.