<% 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("FeaturesCatering").value Hits=Hits+1 HitExecuteIt "UPDATE Hits SET FeaturesCatering=" & Hits & " WHERE TodayDay=" & dtDay & " AND TodayMonth=" & dtMonth & " AND TodayYear=" & dtYear HitCountRS.MoveNext loop if RecordFound=false then HitExecuteIt "INSERT INTO Hits (FeaturesCatering, 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...Catering Planner
wedding softwarewedding plannerwedding planning softwarewedding planner softwarewedding invitation softwarewedding budgetwedding invitationswedding organizerwedding planningwedding site
Wedding Planning Banner
Home
Wedding Planning Features
satellite
satellite
satellite
satellite
satellite
satellite
satellite
satellite
satellite
satellite
satellite
satellite
satellite
satellite
satellite
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
   
   
Automatically recalculates when guest list changes.
Record dietary requirements of guests.
Specify costs on a per head, per table, per glass, or per bottle basis. Or add one-off costs.
Specify which guests will be having which meal option. This information colour-codes guests in your seating planner, which can be useful to your caterer.

Note: Screenshots have been truncated for display purposes.

Copyright © 2005 Silver Stone Studios Ltd. All Rights Reserved.