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


Other
American West Handbags
( American West Handbags ) covered with white sequins.
Aurora Houses
You have found professional real estate agents to find you great home.
Baby Shoe Box - Inch Blue, Shoo Shoes, Clothes with a difference for girls
We are committed to discovering and sourcing healthy, practical, innovative idea's for parents, children and babies, such as Inch Blue, ShooShoos, Resort Wear for girls, Wheely Bugs, Rare Editions, Active Tots, Togz Waterproof clothing and many more. Also custom made dresses for a special day.
Bookyards.com » Library to the world
Bookyards is your online public library to the world with a large selection of free digital books, ebooks, and journals, plus the largest collection of reference materials and educational resources for your educational and personal interests
Down Home Deals
Candles Gel Candles Soy Candles Votives Holiday Candles
Legal Forms Guide
Law information, forms, contracts for small business.
Real Estate in Norfolk
Houses, homes, condos and townhomes for sale.
Realty | San Mateo | Ca | Find Agents
Find mountain view Estate Ca alameda Estate Broker Ca Pleasanton Real Estate Broker Ca Hayward Real Estate Broker Ca milpitas
Samsung S401i
The best deals of Samsung S401i are here.
The Nest
Community
UK's Leading Supplier For Quality Designer Tub Chairs And Footstools
UK's Leading Supplier of Quality Designer Tub Chairs And Footstools. UK Manufactured
web solution toronto canada
Launching a new site? Re-launching an existing website? Working to boost sales and visibility?
Webdirectorylinks Bidding Directory
Webdirectorylinks is a human edited bidding directory, that helps you to promote you're site and increase traffic . We offer permanent listings. More info about bidding can be found in 'About' section

Search the Directory: 

Back | Add Link