
<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "wyinfo" sql="SELECT Description from Categories WHERE Name = '" + Request.QueryString("Category") + "'" Set RS = Conn.Execute(sql) if RS.BOF = True OR RS.EOF = True Then %><% Do While not RS.eof%> <%= RS("Trail Type") %>Sorry that category was not found in the database. Please check spelling and URL syntax. If you have further problems please email Webmaster@wyellowstone.com.
Error Time: <% =Now %>
Request Address: <% = Request.ServerVariables("Remote_Host") %> : <% = Request.ServerVariables("Remote_Addr") %>
URL Requested: <% = Request.ServerVariables("PATH_INFO") %> : <% = Request.ServerVariables("QUERY_STRING") %>
<% else %><%= RS("Description") %>
<% RS.Close %> <% sql="SELECT [Trail Types].[Trail Type], [Trail Types].ID FROM [Trail Types] WHERE ((([Trail Types].Active)=True));" Set RS = Conn.Execute(sql) %>
Trails
<% sql_t="SELECT ID, Conditions, Conditions_URL, Map, Map_IMG, Map_URL, Name, InformationURL, ID, [Trail Type], Description FROM [Trail Systems] WHERE ([Trail Type] = " & RS("ID") & ") AND Active = TRUE" Set RT = Conn.Execute(sql_t) Do While not RT.eof %><%=RT("Name")%><% RT.MoveNext Loop RT.close %> <% RS.MoveNext Loop RS.Close %> <% end if %>
<% if NOT RT("InformationURL") = "" Then %> ">Information - <% end if %> <% if NOT RT("InformationURL") = "" Then %> <% end if %> <% if RT("Conditions") = TRUE then %> <% urlstring = RT("Conditions_URL") & "?" urlstring = urlstring & "SYSTEM=" & server.URLEncode(RT("Name")) & "&" urlstring = urlstring & "SYSTEMID=" & server.URLEncode(RT("ID")) & "&" urlstring = urlstring & "MAP=" & server.URLEncode(RT("MAP_IMG")) %> Current Conditions - <% end if %> <% if RT("MAP") = TRUE then %> ">Map <% end if %>
<%=RT("Description")%>
Snow Information
SnowTel Report for Montana
Snow pack information updated daily. Provided by the National Water and Climate Center.
SnowTel Data Graphs
View the snow pack information graphed over time, showing snow water content and temperature. Provided by the National Water and Climate Center.