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


Featured Sites
Bali Resort
Gajah Mina Beach Resort is a private tropical boutique hotel, surrounded by rice fields, complemented by a private beach with natural caves, ancient stone carvings and beautiful nature walks.
Cake Decorating Supplies & Candy Making Supplies - A-J Winbeckler Ent.
Huge source of cake decorating supplies, candy making supplies, and cookie, party, and wedding supplies, equipment, and accessories for the home cook to the chef. We carry a many wedding supplies from
web solution toronto canada
Launching a new site? Re-launching an existing website? Working to boost sales and visibility?
wedding favours
Wedding Accessories – supplied online from Pink Products wedding store.Gay Wedding,Civil Partnership,Gay,Lesbian,Gay Weddings, Invitations,UK,Gay Wedding Flowers,Gay Wedding Rings,Gay Show,Gay News.

Search the Directory: 

Home | Add Link