<% 'Declare Variables Dim strState, objDB, objReadDB, strWizardPage Dim objDBSub, objReadDBSub, strFullStateName Dim dictActivities, strQuery, Item Const DefaultConnectionString="Driver={SQL Server};Server=216.211.131.97;Database=MountainZone;uid=mtn;pwd=Z0n3;" 'Get Querystring data dot com strWizardPage=Request.QueryString("Wiz") strState=Request.QueryString("State") If Trim(strState)="" Then Response.Redirect "search.asp?error=notrails" End If Set dictActivities=Server.CreateObject("Scripting.Dictionary") 'Open database Set objDB=Server.CreateObject("ADODB.Connection") objDB.Open DefaultConnectionString 'Get full state name (Jury Rigged Code) Set objReadDB=objDB.Execute("SELECT Area_Name, Area_Code FROM Area WHERE Area_Code='" & strState & "HK'") If objReadDB.EOF Then Response.Redirect "search.asp?error=notrails" End If strFullStateName=objReadDB("Area_Name") 'Open database for sub regions Set objDBSub=Server.Createobject("ADODB.Connection") objDBSub.Open DefaultConnectionString %>

<%=strFullStateName%>

<% If strWizardPage="" Then 'Create query variable's AreaCodes dictActivities.Add "Hiking",strState & "HK" dictActivities.Add "Biking",strState & "MB" dictActivities.Add "RoadBiking",strState & "RB" dictActivities.Add "FlatwaterPaddling",strState & "FP" dictActivities.Add "WhitewaterPaddling",strState & "WW" dictActivities.Add "SeaKayaking",strState & "SK" dictActivities.Add "CrossCountrySkiing",strState & "XC" dictActivities.Add "Snowshoeing",strState & "SS" dictActivities.Add "BackcountrySkiing",strState & "BS" dictActivities.Add "HotSprings",strState & "HS" dictActivities.Add "Camping",strState & "CP" dictActivities.Add "RailTrails",strState & "RT" dictActivities.Add "Walking",strState & "WK" dictActivities.Add "TrailRunning",strState & "TR" 'Create query string strQuery="SELECT Area_ID, Area_ParentId, Area_Name, Area_Code, Area_ShortDescription, Area_Visible FROM Area a WHERE (" For Each Item In dictActivities strQuery=strQuery & "a.Area_Code='" & dictActivities(Item) & "' OR " Next strQuery=Left(strQuery,Len(strQuery)-4) strQuery=strQuery & ") ORDER BY a.Area_ShortDescription" 'Query database for activities available in that state. Set objReadDB=objDB.Execute(strQuery) 'If no records found, report problem If objReadDB.EOF Then %> We're sorry, there are currently no sub-regions defined for this state. Please check back or try another search. <% Else %> <% End If While Not objReadDB.EOF %> "><%=objReadDB("Area_ShortDescription")%>

    <% 'Create another query to display Sub Regions Set objReadDBSub=objDBSub.Execute("SELECT Area_Id, Area_Name, Area_ParentId, Area_Visible FROM Area WHERE Area_ParentId='" & objReadDB("Area_Id") & "' ORDER BY Area_Name") 'Cycle through sub categories While Not objReadDBSub.EOF %>
  • "><%=objReadDBSub("Area_Name")%>
    • <% objReadDBSub.MoveNext Wend %>

<% objReadDB.MoveNext Wend End If %>


[Top] [MountainZone.com Home]