<% Dim vCounty_name vCounty_name = "Lawrence"%>

<%=vCounty_name%> County

<%=vCounty_name%> County


<% dim oRs, vTrail_name set oConn = Server.CreateObject("ADODB.Connection") oConn.Open "driver={MySQL};server=localhost;database=btrails","btrails","Nat29864" set oRs = Server.CreateObject("ADODB.recordset") oRs.Open "SELECT * FROM trails WHERE trail_county='"+vCounty_name+"'", oConn do while not oRs.eof if oRs.fields("show") = "yes" then vTrail_name = oRs.fields("trail_name") 'vTrail_name = Replace(vTrail_name, "_", " ")%>

<%=vTrail_name%>

City:  <%=oRs.fields("trail_city")%>
Description: <%=oRs.fields("trail_description")%>
Trail User Fee: <%=oRs.fields("trail_user_fee")%>
Map:" title="Bama Trails Interactive Map" target="_blank">Google Mountain Region Map


<%end if oRs.MoveNext Loop 'loop to next matching record oRs.close%>

Home  |  Links  |