Perfect Day: The Deluxe Wedding Planning Software Suite...Check List

<% 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("FeaturesCheckList").value Hits=Hits+1 HitExecuteIt "UPDATE Hits SET FeaturesCheckList=" & Hits & " WHERE TodayDay=" & dtDay & " AND TodayMonth=" & dtMonth & " AND TodayYear=" & dtYear HitCountRS.MoveNext loop if RecordFound=false then HitExecuteIt "INSERT INTO Hits (FeaturesCheckList, 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...Check List

Simple Visual Design

Seating Planner

Guest List

Check List

Easy Backup

Budget Planner

Catering Planner

Address Book

Honeymoon Planner

Track Invitations

Choose Your Music

Reception Planner

Automatic Summary

Wedding Party

Online Forum

purchase our award winning wedding planning software

questions about our wedding planning software

Advertise your wedding business in our online wedding suppliers directory

	Perfect Day will automatically create a 'common tasks' list for you, which you can adjust according to your own requirements.
	At-a-glance timeline bar shows how long you have left for any task.
	Set and receive task reminders.

Note: Screenshot has been truncated for display purposes.