%@LANGUAGE="VBSCRIPT"%>
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
if (request.QueryString("mnuRD") <> "") then Recordset1__MMColParam = request.QueryString("mnuRD")
%>
<%
set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection ="PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=E:DHS/Resource.mdb;"
Recordset1.Source = "SELECT * FROM [Resource Name] WHERE Services1 = '" + Replace(Recordset1__MMColParam, "'", "''") + "' OR Services2 = '" + Replace(Recordset1__MMColParam, "'", "''") + "' OR Services3 = '" + Replace(Recordset1__MMColParam, "'", "''") + "' OR Services4 = '" + Replace(Recordset1__MMColParam, "'", "''") + "' OR Services5 = '" + Replace(Recordset1__MMColParam, "'", "''") + "' OR Services6 = '" + Replace(Recordset1__MMColParam, "'", "''") + "' OR Services7 = '" + Replace(Recordset1__MMColParam, "'", "''") + "' OR Services8 = '" + Replace(Recordset1__MMColParam, "'", "''") + "' OR Services9 = '" + Replace(Recordset1__MMColParam, "'", "''") + "' OR Services10 = '" + Replace(Recordset1__MMColParam, "'", "''") + "' OR Services11 = '" + Replace(Recordset1__MMColParam, "'", "''") + "' OR Services12 = '" + Replace(Recordset1__MMColParam, "'", "''") + "' OR Services13 = '" + Replace(Recordset1__MMColParam, "'", "''") + "' OR Services14 = '" + Replace(Recordset1__MMColParam, "'", "''") + "' OR Services15 = '" + Replace(Recordset1__MMColParam, "'", "''") + "'"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()
Recordset1_numRows = 0
%>
<%
set Recordset2 = Server.CreateObject("ADODB.Recordset")
Recordset2.ActiveConnection = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=E:DHS/Resource.mdb;"
Recordset2.Source = "SELECT * FROM Services ORDER BY [Service Key] ASC"
Recordset2.CursorType = 0
Recordset2.CursorLocation = 2
Recordset2.LockType = 3
Recordset2.Open()
Recordset2_numRows = 0
%>
Bayfield County:: Department of Human Services
You are here:
Home --> Department of Human Services
Bayfield County Human Services Resource Directory
The Resource Directory was
developed and is maintained as an in-house staff resource. It is not meant
to be a directory of all area services and some providers choose not to
be listed or did not respond to the request for information. Access is
provided as a service to other agencies and to the public.
The directory's purpose is to provide information
and assistance in finding local human services. Please select a service listed
below to find out which organizations offer it.
<%
Recordset1.Close()
%>
<%
Recordset2.Close()
%>