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


Bridal Wear
Chicago DJ - DJs, Chicago Wedding DJs, DJ, DJ's, Chicago Disc Jockey, Disc Jockeys, in Chicago - Fourth Estate Audio
Chicago wedding DJ since 1965. Experienced professional Chicago DJs in formal attire for any party. Complete references.Video clip. Online music selection. Your one-stop source for Chicago disc jockeys.
Discover Bridal Gowns Online!
A complete consumers guide to wedding dresses and bridal gowns. Including tips on purchasing Bridesmaids dresses, Flower girls dresses, Mother of the Bride gowns, and Tuxedos.
EdenBridals: Wedding Dresses, Bridal Gowns, Bridesmaid Dresses, Wedding Gowns
At Eden Bridals, it is our privilege to offer the finest quality in bridal gowns, informal gowns, bridesmaids dresses, and flower girl dresses to millions of brides and bridesmaids. Visit our site to learn more.
hair-removal-guru.com
All About Hair Removal - Free Info on Laser Hair Removal, Hair Removers, Unwanted Hair, Permanent Removal, Electrolysis, Shaving, Waxing, Plucking, Depilatories, Folliculitis, Hirsutism, Body Hair Removal, Facial Hair treatment and more...
Sexy Lingerie, Plus Size Lingerie, Corsets, Sexy Shoes
Sexy sheer lingerie, sexy bustiers, corsets, leather lingerie, latex lingerie, bridal, men's, & plus size lingerie. Stilettos, boots, erotic fun couples games, KamaSutra, fantasy costumes.
Wedding Dresses Without the Wait
Want a wedding dress without the wait? Fine wedding dresses for sale off the peg , and tiaras, fascinators, veils, bridesmaids dresses and other bridal wear for sale in Cookham, Berks, England, SL6 9TA.
Wedding Dresses, Bridal Gowns Wedding Invitations Wedding Cakes Bridesmaids Dresses - Bride Online
Everything for an Australian wedding: brides and bridesmaids dresses and bridal gowns,wedding receptions and reception venues,caterers and cakes,music photography and video invitations adn flowers in Melbourne, Sydney, Perth, Adelaide and Brisbane.
Wedding Lingerie
Search 1000's of items and compare prices. Bras, Panties, Swimwear, Sleepwear and Men's underwear from over 300 leading international brands!

Search the Directory: 

Back | Add Link