<% @language="vbscript" %> DMR Immediate Career Opportunities <% ' ' connection and recordset variables ' Const JOB_TABLE = "EZLIVE_MJOBO, EZLIVE_LOPST, EZLIVE_LLOC" Const DMRJODB = "/_private/dmrjolist.mdb" Dim Cnxn Dim rsResultSet Dim rsResultSetCnt Dim strSQL Dim trailstr ' ' Create a database connection object. ' Set Cnxn = Server.CreateObject("ADODB.Connection") ' ' Open the database connection object. ' Cnxn.Open = "driver={Microsoft Access Driver (*.mdb)}; dbq=" & Server.MapPath(DMRJODB) & "; uid=; pwd=" ' ' ' Set up your SQL string. ' ' strSQL = "SELECT jc_idno, jc_idch, jc_rltl, jc_rtlw, jc_rthg FROM " & JOB_TABLE & " WHERE jc_opcl <> 'N' ORDER BY jc_idch;" DESC ' strSQL = "SELECT jc_idno, jc_idch, jc_rltl, jc_rtlw, jc_rthg FROM " & JOB_TABLE & " ORDER BY jc_idch DESC;" ' strSQL = "SELECT jc_idno, jc_idch, jc_rltl, jc_rtlw, jc_rthg FROM " & JOB_TABLE & " WHERE (jc_opcl = 'N' and jc_post = 'POST') ORDER BY jc_idch DESC;" ' strSQL = "SELECT jc_idno, jc_idch, jc_rltl, jc_rtlw, jc_rthg, lc_desc FROM " & JOB_TABLE & " WHERE (jc_opcl = 'N' and jc_post = 'POST' and jc_lc_lc=lc_idno) ORDER BY jc_idch DESC;" strSQL = "SELECT jc_idno, jc_idch, jc_rltl, jc_rtlw, jc_rthg, op_desc, lc_desc FROM " & JOB_TABLE & " WHERE (jc_opcl = 'N' and jc_post = 'POST' and jc_st_op=op_idno and jc_lc_lc=lc_idno) ORDER BY jc_idch DESC;" strSQLCnt = "SELECT count(*) AS reccnt FROM " & JOB_TABLE & " WHERE (jc_opcl = 'N' and jc_post = 'POST' and jc_st_op=op_idno and jc_lc_lc=lc_idno);" ' ' create and open Recordset using object refs ' ' Set rsResultSetCnt = Cnxn.Execute(strSQLCnt) Set rsResultSet = Cnxn.Execute(strSQL) %>
 

Digital Market Research - <%= rsResultSetCnt("reccnt") %> Immediate Career Opportunities

  
<% ' ' Loop through the recordset ' Do While Not rsResultSet.EOF ' ' Display the record values ' Create a hyperlink in the left column that passes the CustomerId to the DMREzAppUpdRec page ' ' %> <% if len(rsResultSet("jc_rtlw")) > 0 then %> <% else %> <% end if %> <% ' ' Move to the next record ' rsResultSet.MoveNext Loop %>

Job Order

Job Title

Compensation

Location

Type
"><%= rsResultSet("jc_idch") %>

<%= rsResultSet("jc_rltl") %>

$<%= FormatNumber(rsResultSet("jc_rtlw"),2,false,false) %> to $<%= FormatNumber(rsResultSet("jc_rthg"),2,false,false) %><%= trailstr%>

$<%= FormatNumber(rsResultSet("jc_rthg"),2,false,false) %>

<%= rsResultSet("lc_desc") %>

<%= rsResultSet("op_desc") %>