<% ' Job Opportunities 1.0 : jobs.asp ' ' Display a list of job opportunities ' ' 1.0.0 (06/01/2004) ' José N. Dévora Espino. ' ' Copyright © 1999-2004 Infolink Aplicaciones, S.A. de C.V. ' All rights reserved ' Derechos de Autor © 1999-2004 Infolink Aplicaciones, S.A. de C.V. ' Derechos Reservados. %> <% Dim sCurrentPage, sOrderDir, sOrderByClause, iRowCount sCurrentPage="job" page="Recruitment" Const CHARS_TO_KEEP = 150 %> <% Function HtmlRemover(sHtmlContent) Dim re, sPlain Set re = New RegExp re.IgnoreCase = True re.Pattern = "<([a-z]+)[^<>]*>(.+)" sPlain = sHtmlContent Do While re.Test(sPlain) Set matches = re.Execute(sPlain) sPlain = re.Replace(sPlain, "$2") Loop HtmlRemover = sPlain End Function Sub PrintShortDesc(sText) Dim sPlainText sPlainText = HtmlRemover(sText) If Len(sPlainText) > CHARS_TO_KEEP Then sPlainText = Left(sPlaintext, CHARS_TO_KEEP) & "..." Response.Write sPlainText End Sub If Len(Request("jobid")) <> 0 Then sSQL = "SELECT * FROM JobListing WHERE JobID=" & Request("JobID") Set rsData = conDB.Execute(sSQL) %> <%With rsData%> <%.Close End With %>
<%=.Fields("PositionName")%>
<%=IIf(.Fields("Department") <> "","
Department:  " & .Fields("Department") & "
","")%> <%=IIf(.Fields("Description") <> "","
" & .Fields("Description"),"")%> <%=IIf(.Fields("ContactEmail") <> "","
To apply for this job, please send an Email to " & .Fields("ContactEmail") & "","")%>

Requirements

<%=.Fields("Requirements")%>

Contact Information

<%=.Fields("ContactName")%>
<%=.Fields("ContactPhone")%>
"><%=.Fields("ContactEmail")%>

Back to Job List

<%Else%> <% sOrderDir = IIf(Request("orderdir") = "desc", " DESC", "") Select Case Request("orderby") Case "PositionName" sOrderByClause = "PositionName" Case "Department" sOrderByClause = "Department" Case Else sOrderByClause = "PositionName" End Select sSQL = "SELECT * FROM JobListing WHERE IsActive <> 0 ORDER BY " & sOrderByClause & sOrderDir Set rsData = conDB.Execute(sSQL) If IsRSEmpty(rsData) Then%>

For the moment, there are no jobs.

<%Else With rsData%> <% iRowCount = 0 While Not .EOF%> <% iRowCount = iRowCount + 1 .MoveNext Wend%>
Click in column heading for sorting
  ">Job Title ">Department Description Contact Name
>"> ><%=.Fields("PositionName")%> ><%=.Fields("Department")%> ><%PrintShortDesc .Fields("Description")%> ><%=.Fields("ContactName")%>

<%.Close End With End If End If %>