<% 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.
Tree House Puppies - Belgian Tervuren Puppies

Belgian Tervuren

Get A Deluxe Listing!

Upgrade your free listing for only $30/year.

For more information click here.