<%@LANGUAGE="VBSCRIPT"%> <% 'Dim Results 'Dim Results_cmd 'Dim Results_numRows ' 'Set Results_cmd = Server.CreateObject ("ADODB.Command") 'Results_cmd.ActiveConnection = MM_dhsweb_STRING 'Results_cmd.CommandText = "SELECT * FROM [Resource Name] ORDER BY [Org Name] ASC" 'Results_cmd.Prepared = true ' 'Set Results = Results_cmd.Execute 'Results_numRows = 0 Dim Results__MM_ColParam Results__MM_ColParam = "1" if (Request.QueryString("ID") <> "") then Results__MM_ColParam = Request.QueryString("ID") %> <% set Results = Server.CreateObject("ADODB.Recordset") Results.ActiveConnection = MM_dhsweb_STRING Results.Source = "SELECT * FROM [Resource Name] WHERE ID = " + Replace(Results__MM_ColParam, "'", "''") + "" Results.CursorType = 0 Results.CursorLocation = 2 Results.LockType = 3 Results.Open() Results_numRows = 0 %> Bayfield County:: Department of Human Services

Bayfield County Human Services Resource Directory

The table below contains details about the agency or service you searched for. Please return to the resource directory homepage to run another search.
Organization <%=(Results.Fields.Item("Org Name").Value)%>
Address <%=(Results.Fields.Item("Address").Value)%>
City, State <%=(Results.Fields.Item("City").Value)%>, <%=(Results.Fields.Item("State").Value)%>
Zip Code <%=(Results.Fields.Item("Zip").Value)%>
Telephone <%=(Results.Fields.Item("Telephone").Value)%>
Telephone 2 <%=(Results.Fields.Item("Telephone2").Value)%>
TTY/TDD <%=(Results.Fields.Item("TTY_Number").Value)%>
Crisis Line <%=(Results.Fields.Item("CrisisLine").Value)%>
Fax <%=(Results.Fields.Item("Fax").Value)%>
Website "><%=(Results.Fields.Item("Website").Value)%>
E-Mail "><%=(Results.Fields.Item("E-Mail").Value)%>
Services Offered: <%=(Results.Fields.Item("Services1").Value)%>
<%=(Results.Fields.Item("Services2").Value)%>
<%=(Results.Fields.Item("Services3").Value)%>
<%=(Results.Fields.Item("Services4").Value)%>
<%=(Results.Fields.Item("Services5").Value)%>
<%=(Results.Fields.Item("Services6").Value)%>
<%=(Results.Fields.Item("Services7").Value)%>
<%=(Results.Fields.Item("Services8").Value)%>
<%=(Results.Fields.Item("Services9").Value)%>
<%=(Results.Fields.Item("Services10").Value)%>
<%=(Results.Fields.Item("Services11").Value)%>
<%=(Results.Fields.Item("Services12").Value)%>
<%=(Results.Fields.Item("Services13").Value)%>
<%=(Results.Fields.Item("Services14").Value)%>
<%=(Results.Fields.Item("Services15").Value)%>

<% Results.Close() Set Results = Nothing %> <% Recordset2.Close() %>