Aging and Community Services - Human Services Agency

<%@ LANGUAGE = "VBSCRIPT" %> <% ' Create the data connection directory of services 'Set DataConn = Server.CreateObject("ADODB.Connection") 'DataConn.ConnectionString ="DSN=DirectoryServices" 'DataConn.ConnectionTimeout = Session("DataConn_ConnectionTimeout") 'DataConn.CommandTimeout = Session("DataConn_CommandTimeout") 'DataConn.Open ' Session("DataConn_ConnectionString"), Session("DataConn_RuntimeUserName"), Session("DataConn_RuntimePassword") 'Set cmdTemp = Server.CreateObject("ADODB.Command") 'Set rsOrg = Server.CreateObject("ADODB.Recordset") SQL = "SELECT ProgramName FROM tblPrograms ORDER BY ProgramName" cmdDC.CommandText = SQL Set rsOrg = Server.CreateObject("ADODB.Recordset") rsOrg.Open cmdDC, , 0, 1 'cmdTemp.CommandText = "SELECT ProgramName FROM tblPrograms ORDER BY ProgramName" 'cmdTemp.CommandType = 1 'Set cmdTemp.ActiveConnection = DataConn 'rsOrg.Open cmdTemp, , 0, 1 ' Create the data connection directory of services 'Set DataConn = Server.CreateObject("ADODB.Connection") 'DataConn.ConnectionString ="DSN=DirectoryServices" 'DataConn.ConnectionTimeout = Session("DataConn_ConnectionTimeout") 'DataConn.CommandTimeout = Session("DataConn_CommandTimeout") 'DataConn.Open ' Session("DataConn_ConnectionString"), Session("DataConn_RuntimeUserName"), Session("DataConn_RuntimePassword") 'Set cmdTemp = Server.CreateObject("ADODB.Command") 'Set rsCat = Server.CreateObject("ADODB.Recordset") SQL = "SELECT DISTINCT ID, DS_Category FROM tblServicesCategories ORDER BY DS_Category" cmdDC.CommandText = SQL Set rsCat = Server.CreateObject("ADODB.Recordset") rsCat.Open cmdDC, , 0, 1 'cmdTemp.CommandText = "SELECT DISTINCT ID, DS_Category FROM tblServicesCategories ORDER BY DS_Category" 'cmdTemp.CommandType = 1 'Set cmdTemp.ActiveConnection = DataConn 'rsCat.Open cmdTemp, , 0, 1 arrayCat = rsCat.GetRows() rsCat.Close Set rsCat = Nothing iRows = Ubound(arrayCat,2) 'Returns the Number of Rows Select Case iRows Mod 3 Case 0, 2/3 iNoCatPerCol1 = Round(iRows/3) iNoCatPerCol2 = iNoCatPerCol1 * 2 Case 1/3 iNoCatPerCol1 = Round(iRows/3) iNoCatPerCol2 = (iNoCatPerCol1 * 2) - 1 End Select %> Aging and Community Services - Human Services Agency - San Joaquin County

	HSA Home

	San Joaquin County Site

	About Us

	Board of Supervisors

	CalWORKs

	Children's Services

	Aging & Community Services
	Senior Awareness Day
	Brown Bag
	Commodity Program
	Community Calendars
	Community Centers
	Congregate Meal Sites
	Contract Senior Services
	Direct Services
	Director's Message
	Directory of Services
	Elder Abuse
	HEAP
	IHSS Online Referral
	Refugee Assistance Program
	RSVP
	Safety Tips
	Self-Assessment Form
	Senior Employment Program
	Sustenance Assistance
	Summer Heat Prevention Tips
	Weatherization Program
	Youth Services
	911 Safety Phone Program

	Medi-Cal

	CalFresh (formerly Food Stamps)

	Program Development

	Administration

	Community Resources

	Contact Us

	Site Map

	Instructions

	Employment Opportunities

	Office Location

	HSA Employee Email

P.O. Box 201056
333 E. Washington Street
Stockton, CA 95202
(209) 468-1000

Assistance
Review Form

Directory of Services

Elder
Abuse

Updated
News

Frequent
Questions

Helpful
Resources

Directory of Services

The Directory of Services for San Joaquin County Caregivers and Seniors, has been prepared by the San Joaquin County Department of Aging and Community Services, which is a Division of the Human Services Agency. The Directory contains the names, addresses and telephone numbers of organizations that offer health information, insurance counseling, legal aid, social services, consumer advice and other assistance.

Below is a Downloadable Resource Directory in PDF File Format. The file is approximately 200 pages.

Resource Directory 2013-2014 HSA 2013-2014 Downloadable Resource Directory