<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Randomize
CONST numFeatured = 1
Dim rsEmployeeSpotlight
Dim rsEmployeeSpotlight_numRows
Set rsEmployeeSpotlight = Server.CreateObject("ADODB.Recordset")
rsEmployeeSpotlight.ActiveConnection = MM_conn_STRING
rsEmployeeSpotlight.Source = "SELECT spotlightImage, spotlightName, spotlightTitle, spotlightUnit, spotlightQuote FROM tblEmployeeSpotlight"
rsEmployeeSpotlight.CursorType = 2
rsEmployeeSpotlight.CursorLocation = 2
rsEmployeeSpotlight.LockType = 1
rsEmployeeSpotlight.Open()
' Randomly select a record from the recordset
If Not rsEmployeeSpotlight.EOF then
featuredArray = rsEmployeeSpotlight.GetRows()
End If
topFeatured = UBOUND( featuredArray, 2 ) + 1
skip = topFeatured / 1
IF topFeatured <= numFeatured THEN skip = 1
rsEmployeeSpotlight_numRows = 0
%>
Georgia Department of Human Resources - Employment Opportunities
DHSjobs.org
Georgia Department of Human
Services
Cities
Regions
Counties
<%
FOR i = 0 TO topFeatured - 1 STEP skip
offset = RND * ( skip - 1 )
employee_image = featuredArray( 0, i + offset )
employee_name = featuredArray( 1, i + offset )
employee_title = featuredArray( 2, i + offset )
employee_unit = featuredArray( 3, i + offset )
employee_quote = featuredArray( 4, i + offset )
%>
The Georgia
Department of Human Resources employs professionals in all 159 counties
of Georgia
