Source One Personnel Source One Personnel provides permanent staffing employment, computer consulting, and temporary jobs throughout the NJ, PA, NYC, and Wilmington, DE area in Information Technology, Accounting, Finance, Administrative, Light Industrial, and Human Resources. Other staffing services provided include: Career counseling, resume writing, and retained search.

<%response.buffer=true%> Source One Personnel Source One Personnel provides permanent staffing employment, computer consulting, and temporary jobs throughout the NJ, PA, NYC, and Wilmington, DE area in Information Technology, Accounting, Finance, Administrative, Light Industrial, and Human Resources. Other staffing services provided include: Career counseling, resume writing, and retained search.

<% dim g_InformationSystems dim g_Accounting dim g_HumanResources dim g_Administrative dim g_LightIndustrial g_InformationSystems = 1 g_Accounting = 2 g_HumanResources = 3 g_Administrative = 4 g_LightIndustrial = 5 g_Engineering = 6 g_Legal = 7 dim m_Database dim m_RecordSet ReceiveOrderForm Sub ReceiveOrderForm() Dim i dim strDB Dim strID Dim intID Dim strJobClass Dim intRefCount Dim blnOther Dim intOtherCount Dim strJobClassOld Dim blnNoOtherHeader Dim blnCreateTable strID = request("dbid") intID = cint(strID) if intID = 0 then intID = g_InformationSystems on error resume next Dim strDesc Select Case intID Case g_InformationSystems strDB = "1.MDB" strDesc = "Information Systems" Case g_Accounting strDB = "3.MDB" strDesc = "Accounting/Finance" Case g_HumanResources strDB = "2.MDB" strDesc = "Administrative/Industrial" Case g_Administrative strDB = "4.MDB" strDesc = "Human Resources" Case g_LightIndustrial strDB = "5.MDB" strDesc = "Scientific" Case g_Engineering strDB = "6.MDB" strDesc = "Engineering" Case g_Legal strDB = "7.MDB" strDesc = "Legal" End Select strSQL = "select * from CurrentJobList order by JobClass DESC, JobOrderDate DESC" response.write "

" & strDesc & " Positions

" strdsn = "driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("../data/" & strDB) Set m_RecordSet = Server.CreateObject("ADODB.Recordset") m_RecordSet.Open strSQL, strDSN, adOpenReadOnly if m_RecordSet.EOF then response.write "

Listing is being updated. Try again later.

" response.end end if Do Until m_RecordSet.EOF strJobClass = vbNullString strJobClass = m_RecordSet("JobClass") If trim(strJobClass) = "" Then strJobClass = "Other" If UCase(strJobClass) <> strJobClassOld Then If ucase(strJobClass) = "OTHER" Then blnOther = True Else intRefCount = intRefCount + 1 'response.write "" & strJobClass & "
" response.write "" & strJobClass & "
" strJobClassOld = ucase(strJobClass) End If End If m_RecordSet.MoveNext Loop If blnOther = True Then intRefCount = intRefCount + 1 intOtherCount = intRefCount ' response.write "" & "Other" & "
" response.write "" & "Other" & "
" End If response.write "

" intRefCount = 0 m_RecordSet.MoveFirst Do Until m_RecordSet.EOF strJobClass = vbNullString strJobClass = m_RecordSet("JobClass") If strJobClass = vbNullString Then strJobClass = "Other" If ucase(strJobClass) <> strJobClassOld And ucase(strJobClass) <> "OTHER" Then intRefCount = intRefCount + 1 response.write "

" & strJobClass & "

" strJobClassOld = ucase(strJobClass) End If If ucase(strJobClass) <> "OTHER" Then UpdateScreen End If m_RecordSet.MoveNext Loop 'take care of 'other' blnNoOtherHeader = False m_RecordSet.MoveFirst Do Until m_RecordSet.EOF strJobClass = vbNullString strJobClass = m_RecordSet("JobClass") If strJobClass = vbNullString Then strJobClass = "Other" If ucase(strJobClass) = "OTHER" Or strJobClass = vbNullString Then If blnNoOtherHeader = False Then response.write "

" & "Other" & "

" blnNoOtherHeader = True UpdateScreen End If m_RecordSet.MoveNext Loop response.write "

" on error resume next m_RecordSet.Close m_Database.Close End Sub Sub UpdateScreen() On Error Resume Next response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "

Job ID:	" response.write m_RecordSet("JobID") & "
Job Order Date:	" response.write m_RecordSet("JobOrderDate") & "
Job Classification:	" response.write m_RecordSet("JobClass") & "
Title:	" response.write m_RecordSet("JobTitle") & "
Duration:	" response.write m_RecordSet("JobDuration") & "
Location:	" response.write m_RecordSet("Job Location") & "
Salary Range:	" response.write m_RecordSet("SalaryRange") & "
Description:	" response.write m_RecordSet("JobDescription") & "
Min. Requirements:	" response.write m_RecordSet("JobMinSkills") & "
Source 1 Contact:	" response.write m_RecordSet("JobContact") & "

" End Sub %> If you see a job you are interested in make a note of it below by entering job ID #(s) and click "contact us"

Source One Personnel has twelve offices to service your personnel needs. Locate the office closest to you.

©2001 Softlink