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


Venues
Bali Villa
Luxury private villas in Ubud, Sanur, Jimbaran and Nusa Dua Bali for honeymoon, wedding, holiday or vacation.
briarpatchbandb.com
The Briar Patch Bed and Breakfast, Middleburg, Virginia, provides Blue Ridge Mountain lodging in the Washington, DC area. Briar Patch Bed and Breakfast is near the Blue Ridge Mountains, Shenandoah Mountains, Dulles National Airport and Washington DC
Herlong Mansion Bed & Breakfast in Micanopy
Herlong Mansion a Victorian Bed & Breakfast in Micanopy Florida.
Il Castello Web Site
Il Castello Dal Pozzo, a magnificent neogothic National Monument overlooking Lake Maggiore in northern Italy. is the ideal venue for your wedding, small or large.
London Hotels: Hotel And Tourist Guide For London England.
London hotels, reservation service and tourist information for the capital city.
Meols Hall - wedding receptions at Lancashire mansion with tithe barn
Southport historic manor house available for weddings, seminars, promotions and corporate hospitality.
Scottish Hotel
An exclusive Scottish wedding venue. The Tor-na-coille hotel in Banchory Aberdeen is in the heart of Royal Deeside, a perfect location for your private wedding function. Suitable for civil weddings and gay marriages

Search the Directory: 

Back | Add Link