%
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
|
|
|
|
|
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.
|
|
|
|