<%@LANGUAGE="VBSCRIPT"%> <% 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 Resource Directory
Return to Human Services Page
 
 
 
 
 

Copyright 2004: Bayfield County
Bayfield County Department of Human Services
Resource Directory Details
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() %>