<% LMapPath = Server.MapPath("\") 'Response.Write LMapPath & "
" LMapPath = Left(LMapPath,InStr(LMapPath,"\wwwroot\")) 'Response.Write LMapPath & "
" ' ############## Database for Campgrounds Tables ############## strConnCampGrounds = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & LMapPath & "wwwroot\databases\campgrounds.mdb" '## MS Access 2000 using virtual path ' ############################################################# ' ############## Database for CampGrounds Tables ############## set my_Conn_CampGrounds = Server.CreateObject("ADODB.Connection") my_Conn_CampGrounds.Errors.Clear ' my_Conn_CampGrounds.Open strConnCampGrounds 'Response.Write strConnCampGrounds & "
" ' if blnSetup <> "Y" then for counter = 0 to my_Conn_CampGrounds.Errors.Count -1 ConnErrorNumber = my_Conn_CampGrounds.Errors(counter).Number if my_Conn_CampGrounds.Errors(counter).Number <> 0 then my_Conn_CampGrounds.Errors.Clear Response.Redirect "site_setup.asp?RC=1&CC=1&strDBType=" & strDBType & "&EC=" & ConnErrorNumber end if next end if ' my_Conn_CampGrounds.Errors.Clear ' ############################################################# ' SQLStmt = "SELECT * FROM CGHeader" 'Response.Write SQLStmt & "
" set RS1 = my_Conn_CampGrounds.Execute(SQLStmt) ' LCGCount = 0 Do While NOT RS1.EOF LCGCount = LCGCount + 1 RS1.MoveNext Loop ' SQLStmt = "SELECT * FROM RVDHeader" 'Response.Write SQLStmt & "
" set RS1 = my_Conn_CampGrounds.Execute(SQLStmt) ' LRVDCount = 0 Do While NOT RS1.EOF LRVDCount = LRVDCount + 1 RS1.MoveNext Loop ' LCNTY = Trim(Request("CNTY")) LSP = Trim(Request("SP")) %> Campground Listing
Currently, <%=LCGCount%> Campgrounds and <%=LRVDCount%> RV Dealers Listed

, Canada , Canada , Canada , Canada , Canada , Canada , Canada , Canada , Canada , Canada , Canada , Canada , Canada , Canada , Canada Alaska, United States , United States , United States , United States , United States , United States , United States , United States , United States , United States , United States , United States , United States , United States , United States , United States , United States , United States , United States , United States , United States , United States , United States , United States , United States , United States , United States , United States , United States , United States , United States , United States , United States , United States , United States , United States , United States , United States , United States , United States , United States , United States , United States , United States , United States , United States , United States , United States , United States , United States , United States , United States , United States , United States , United States , United States , United States , United States
Click on a Province or State to find a Campground

<% ' ############## Database for CampGrounds Tables ############## my_Conn_CampGrounds.Close ' ############################################################# %>