Perfect Day: The Deluxe Wedding Planning Software Suite...Invitations

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

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

	Use your guest list to track who you have sent invitations to, who has accepted and who has declined.
	Straighfrorward advice on invitation etiquette.

Note: Screenshot has been truncated for display purposes.