<% '---------------------------------------------------------------------- ' index.asp ' ' Purpose: ' lists all jobs for specific company. ' ' Arguments: ' ' ' Author: Colleen Tully ' RECOL, LLC ' http://www.recol.net ' webdesign@recol.com ' ' Date Created: ' 10/21/03 2:30 p.m. ' ' Modification History: ' '---------------------------------------------------------------------- set formerror=server.createobject("Scripting.Dictionary") %>

Challenge. Reward. Pride. Three words that describe the experience of being an J.E. Richards team member. Are you looking for an opportunity to learn, grow and be a part of an all-star winning team? Then look at the specific opportunities available below.

<% strSQL = "SELECT JobID, JobTitle, JobExpDate, JobEnteredDate, CompanyName FROM Jobs LEFT OUTER JOIN Companies ON Jobs.CompanyID = Companies.CompanyID where JobExpDate >= getdate() AND Companies.CompanyName = 'J.E. Richards, Inc.' order by JobEnteredDate desc" cmdTemp.commandtext = strSQL set rsAdminJobs = cmdTemp.execute ReportOnError("Error Retrieving admin jobs") If not rsAdminJobs.eof then %> <% do while not rsAdminJobs.eof ' JobEnteredDate = FormatDateTime(rsAdminJobs("JobEnteredDate"), vbshortdate) %> <% rsAdminJobs.Movenext Loop %> <% else strMessage1 = "1" %> <%ENd If%> <%If strMessage1 <> "" then%>

"><%=rsAdminJobs("JobTitle")%>

No Jobs Available At This Time

Please contact our HR Department at:
J.E. Richards, Inc.
10401 Tucker Street
Beltsville, MD 20705
(301) 345-1300 - Telephone
(301) 345-2370 - Fax

<%End If%>