<% Dim cnnSimple Dim rstSimple Dim strDBPath strDBPath = Server.MapPath("../access_db/THpupDatabase.mdb") Set cnnSimple = Server.CreateObject("ADODB.Connection") cnnSimple.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";" %> Premier directory of puppy and dog web sites.

Service Providers

Below you will find Groomers, Pet Sitters, Dog Walkers and Dog Boarding services in your area.

Please send inquiries to Webmaster