<% 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("Links").value Hits=Hits+1 HitExecuteIt "UPDATE Hits SET Links=" & Hits & " WHERE TodayDay=" & dtDay & " AND TodayMonth=" & dtMonth & " AND TodayYear=" & dtYear HitCountRS.MoveNext loop if RecordFound=false then HitExecuteIt "INSERT INTO Hits (Links, 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...Links
wedding softwarewedding plannerwedding planning softwarewedding planner softwarewedding invitation softwarewedding budgetwedding invitationswedding organizerwedding planningwedding site
Wedding Planning Banner
Home
Wedding Planning Features
See our wedding software in action
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
   
   
Our partners' websites are listed below. Please give them a quick visit.


Categories


Stationery
Bride's Mate - Main Page
Free wedding planning software. Free calligraphy addressing with purchase of our wedding invitations. Addressed place cards and thank you notes.
Calling Cards
Get the lowest prices on the best worldwide calling cards.
ClickprintUSA.com, Low Cost Business Card Printing and More!
Design online business cards, stationery, labels, mouse pads, rubber stamps and more. Low internet pricing and fast delivery to USA and Canada.
David's Bridal
From David's Bridal - Invitations bride accessories, wedding party gifts, ceremony, reception, cake and first toast, guest favors, memories
Discount wedding invitations.
Wedding are expensive. There, we said it. Fortunately your wedding invitations don't have to be.
Free Christian E-cards & Wallpapers
Share your faith with Christian wallpapers and e-cards
Heart At Home Specialty Greeting Cards
Welcome to Heart At HomeHere you will find our hilarious gator cards for just about any occasion. Believe us, you haven’t seen anything like them. Browse around and meet the Elegators, the Coolgators, and the Lazygators. Also meet our newcomer gators, the Hiphopgators, the Wholeygators, and the GetOgators. Don’t forget to visit our Lovely Hearts line. If you like cards featuring children and angels you’ll adore this line. Your friends and family will enjoy receiving these unusual cards.
Pink Rose - Beautiful bespoke handmade Wedding Stationery and Cakes
Beautiful bespoke handmade wedding stationery and cakes

Search the Directory: 

Back | Add Link