Perfect Day: The Deluxe Wedding Planning Software Suite...Address Book

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

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

	A single place to store every address you need
	Email directly from your address book
	Visit the website of your suppliers with a single click

Note: Screenshot has been truncated for display purposes.