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


Caterers
Barmops & Bar Towels
Our Products stand up to heavy duty household use fluffy, used as in a hotel, motel, resort, cruise line, bar, vacation hideaways & restaurant. Visit our site for more products and its details.
Chinese Cooking - Chinese Recipes
Chinese Cooking - . Authentic Chinese Recipes
Find Online Wines.com
Come here search for the finest wines, wine accessories, wine gifts and gourmet foods. Look here for your hard to find products in the world of wine.
Italian Cooking
Italian Cooking. Authentic Italian Recipes .
Outdoor Patio Furniture Covers
The Cover Store sells outdoor patio furniture covers and grill covers at deep discounts
Oxfordshire catering event management wedding private party corporate banquet regatta by Ambassador Catering Henley on Thames
Catering event management for private wedding party or corporate banquet party by Ambassador Catering of Henley on Thames Oxfordshire will ensure your event is stress free. We cater for weddings, summer balls, corporate events, boardroom lunches and
Thai Cooking - Thai Recipes
Thai Cooking. Authentic Thai Recipes - Food Recipes. Information on Cooking using Authentic Traditional Thai Recipes.

Search the Directory: 

Back | Add Link