dim curPage, record_counter dim mname(12) mname(1) = "Jan" mname(2) = "Feb" mname(3) = "Mar" mname(4) = "Apr" mname(5) = "May" mname(6) = "Jun" mname(7) = "Jul" mname(8) = "Aug" mname(9) = "Sep" mname(10) = "Oct" mname(11) = "Nov" mname(12) = "Dec" curPage=int(Request("page")) if curPage = 0 or curPage = "" then curPage = 1 end if Set DBconn = Server.CreateObject("ADODB.Connection") DBconn.Open Application("Provider") & Application("DBPath") Set rsJobs = Server.CreateObject("ADODB.Recordset")
strSQLwhere = "" SQL_jobs = "Select * FROM hot_jobs" if request("keyword") <> "" then strSQLwhere = " where job_location like '%" & request("keyword") & "%' or job_post like '%" & request("keyword") & "%' or job_req like '%" & request("keyword") & "%' or job_ref_no like '%" & request("keyword") & "%' or job_d like '%" & request("keyword") & "%'" SQL_jobs = SQL_jobs & strSQLwhere end if ' response.write SQL_jobs rsJobs.Open SQL_Jobs, DBconn, 1, 1
if not rsJobs.eof then rsJobs.PageSize = Application("DSI_PageSize") rsJobs.AbsolutePage = curPage TotalPages = rsJobs.PageCount TotalRecords = rsJobs.RecordCount end ifdim joblist 'The Array containing info about which job (seq_counter) is selected by user joblist = session("joblist") ' for i=0 to ubound(joblist) ' response.write i & "--" & joblist(i) & "<br>" ' next if not isArray(joblist) then dim tmparr() redim tmparr(TotalRecords + 1) Session("joblist") = tmparr joblist = tmparr redim tmparr(1) 'response.write ubound(Session("joblist")) else 'response.write "joblist created on start up la!!" end if 'response.write ubound(joblist)dim searchcleararr() redim searchcleararr(Application("DSI_PageSize"))
</td> </tr> <tr> <td class="content"> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="77%">Please check the <b>box(es) that you are interested in</b>. </td> <td width="23%"><a href="search.asp">Instant Job Search</a></td> </tr> </table>
</td> </tr> <tr> <td class="content"> </td> </tr> <tr> <td class="content"> <% if rsJobs.Bof and rsJobs.Eof then 'response.write("No jobs availiable yet!<br><br>") response.write("<h3>Sorry. No Matching</h3><p> </p><p><br> </p><p><br> </p><p><br> </p>For other jobs not listed above, please <a href=""mailto:[email protected]"">submit your CV</a> and our consultant will contact you personally. ")else 'rsJobs.MoveLast 'rsJobs.MoveFirst 'TotalRecords = rsJobs.RecordCount rsJobs.AbsolutePage = curPage record_counter = 0 while not rsJobs.Eof and rsJobs.PageSize > record_counter %>
response.CacheControl="private"
'ODBC Provider
' Application("Provider") = "Provider=Microsoft.Jet.OLEDB.4.0;"
'ODBC DB LocalPath
' Application("DBPath") = "Data Source=" & Server.MapPath("/gui/rex/dsi/db/dsi_hotjobs.mdb") & ";Jet OLEDB:Database Password=3edc4rfv" ' main.asp Display
' Application("DSI_PageSize") = 5
dim curPage, record_counter
dim mname(12)
mname(1) = "Jan"
mname(2) = "Feb"
mname(3) = "Mar"
mname(4) = "Apr"
mname(5) = "May"
mname(6) = "Jun"
mname(7) = "Jul"
mname(8) = "Aug"
mname(9) = "Sep"
mname(10) = "Oct"
mname(11) = "Nov"
mname(12) = "Dec"
curPage=int(Request("page"))
if curPage = 0 or curPage = "" then
curPage = 1
end if Set DBconn = Server.CreateObject("ADODB.Connection")
DBconn.Open Application("Provider") & Application("DBPath")
Set rsJobs = Server.CreateObject("ADODB.Recordset")
strSQLwhere = ""
SQL_jobs = "Select * FROM hot_jobs"
if request("keyword") <> "" then
strSQLwhere = " where job_location like '%" & request("keyword") & "%' or job_post like '%" & request("keyword") & "%' or job_req like '%" & request("keyword") & "%' or job_ref_no like '%" & request("keyword") & "%' or job_d like '%" & request("keyword") & "%'"
SQL_jobs = SQL_jobs & strSQLwhere
end if
' response.write SQL_jobs
rsJobs.Open SQL_Jobs, DBconn, 1, 1
if not rsJobs.eof then
rsJobs.PageSize = Application("DSI_PageSize")
rsJobs.AbsolutePage = curPage
TotalPages = rsJobs.PageCount
TotalRecords = rsJobs.RecordCount
end ifdim joblist 'The Array containing info about which job (seq_counter) is selected by user
joblist = session("joblist")
' for i=0 to ubound(joblist)
' response.write i & "--" & joblist(i) & "<br>"
' next
if not isArray(joblist) then
dim tmparr()
redim tmparr(TotalRecords + 1)
Session("joblist") = tmparr
joblist = tmparr
redim tmparr(1)
'response.write ubound(Session("joblist"))
else
'response.write "joblist created on start up la!!"
end if
'response.write ubound(joblist)dim searchcleararr()
redim searchcleararr(Application("DSI_PageSize"))
%>
<head>
<title>DSI Consultancy Limited</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<META HTTP-EQUIV="expires" CONTENT="Mon, 01 Jan 1996 01:01:01 GMT">
<META HTTP-EQUIV="pragma" CONTENT="no-cache">
<META HTTP-EQUIV="pragma" CONTENT="no-store">
<style type="text/css">
<!--
-->
</style>
<link rel="stylesheet" href="style.css">
<script language="JavaScript">
<!--
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}function MM_swapImgRestore() { //v3.0
var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}function MM_findObj(n, d) { //v3.0
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document); return x;
}function MM_swapImage() { //v3.0
var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}function postcv(){
document.forms[0].dest.value = "postcv.asp"
document.forms[0].submit();
}function change_page(page_no){
var search_item = "<%=request("keyword")%>"
document.forms[0].dest.value = "hot_jobs.asp?page=" + page_no;
if (search_item != ""){
document.forms[0].dest.value = document.forms[0].dest.value + "&keyword=" + search_item
}
document.forms[0].submit();
}
//-->
</script>
</head><body bgcolor="#99CCFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" background="images/sub_content/bkg.gif" onLoad="MM_preloadImages('images/sub_content/btn/btn_cv_over.gif')">
<table border="0" cellspacing="0" cellpadding="0" width="760">
<tr valign="top">
<td width="50"><img src="images/sub_content/transparent.gif" width="50" height="20"></td>
<td width="72"><img src="images/sub_content/photo/p_exe.gif" width="72" height="72"></td>
<td width="20"><img src="images/sub_content/transparent.gif" width="20" height="20"></td>
<td><form method="post" action="checklist.asp">
<table width="95%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="images/sub_content/heading/h_exe.gif" width="178" height="20"></td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><b><font face="Arial, Helvetica, sans-serif">Hot jobs available
now!</font></b></td>
<td align="right"><a href="executive.html"><img src="images/sub_content/btn/btn_back.gif" width="61" height="16" border="0"></a></td>
</tr>
</table>
</td>
</tr>
<tr>
<td class="content">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="77%">Please check the <b>box(es) that you are interested
in</b>. </td>
<td width="23%"><a href="search.asp">Instant Job Search</a></td>
</tr>
</table>
</td>
</tr>
<tr>
<td class="content"> </td>
</tr>
<tr>
<td class="content">
<% if rsJobs.Bof and rsJobs.Eof then
'response.write("No jobs availiable yet!<br><br>")
response.write("<h3>Sorry. No Matching</h3><p> </p><p><br> </p><p><br> </p><p><br> </p>For other jobs not listed above, please <a href=""mailto:[email protected]"">submit your CV</a> and our consultant will contact you personally. ")else
'rsJobs.MoveLast
'rsJobs.MoveFirst
'TotalRecords = rsJobs.RecordCount
rsJobs.AbsolutePage = curPage
record_counter = 0
while not rsJobs.Eof and rsJobs.PageSize > record_counter
%>
<tr>
<td width="95%">
<table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr bgcolor="#000066">
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr bgcolor="#99CCFF">
<td class="content" valign="top" width="21%"><b>Job Reference</b></td>
<td class="content" valign="top" width="4%"><b>:</b></td>
<td class="content" width="42%"><b><%=rsJobs("job_ref_no")%></b></td>
<td class="content" width="33%">Updated on: <%=mname(month(rsJobs("update_date")))&" "& day(rsJobs("update_date"))&", " & year(rsJobs("update_date"))%></td>
</tr>
<tr bgcolor="#99CCFF">
<td class="content" valign="top" width="21%"><b> </b></td>
<td class="content" valign="top" width="4%"> </td>
<td class="content" colspan="2"> </td>
</tr>
<tr bgcolor="#99CCFF">
<td class="content" valign="top" width="21%"><b>Location</b></td>
<td class="content" valign="top" width="4%"><b>:</b></td>
<td class="content" colspan="2"><%=rsJobs("job_location")%></td>
</tr>
<tr bgcolor="#99CCFF">
<td class="content" valign="top" width="21%"><b> </b></td>
<td class="content" valign="top" width="4%"> </td>
<td class="content" colspan="2"> </td>
</tr>
<tr bgcolor="#99CCFF">
<td class="content" valign="top" width="21%"><b>Position</b></td>
<td class="content" valign="top" width="4%"><b>:</b></td>
<td class="content" colspan="2"><%=rsJobs("job_post")%></td>
</tr>
<tr bgcolor="#99CCFF">
<td class="content" valign="top" width="21%"><b> </b></td>
<td class="content" valign="top" width="4%"> </td>
<td class="content" colspan="2"> </td>
</tr>
<tr bgcolor="#99CCFF">
<td class="content" valign="top" width="21%"><b>Description</b></td>
<td class="content" valign="top" width="4%"><b>:</b></td>
<td class="content" colspan="2"><%=rsJobs("job_d")%></td>
</tr>
<tr bgcolor="#99CCFF">
<td class="content" valign="top" width="21%"><b> </b></td>
<td class="content" valign="top" width="4%"> </td>
<td class="content" colspan="2"> </td>
</tr>
<tr bgcolor="#99CCFF">
<td class="content" valign="top" width="21%"><b>Requirement</b></td>
<td class="content" valign="top" width="4%"><b>:</b></td>
<td class="content" colspan="2"><%=rsJobs("job_req")%></td>
</tr>
<tr bgcolor="#99CCFF">
<td class="content" valign="top" width="21%"><b> </b></td>
<td class="content" valign="top" width="4%"> </td>
<td class="content" colspan="2"> </td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td width="5%" valign="top">
<%if rsJobs("seq_counter") >= ubound(joblist) then
'response.write "redim joblist.... to" & rsJobs("seq_counter") + 1
redim preserve joblist(rsJobs("seq_counter") + 1)
session("joblist") = joblist
end if %>
</td>
</tr>
</table>
<br>
<%
searchcleararr(record_counter) = rsJobs("seq_counter")
rsJobs.MoveNext
record_counter = record_counter + 1
wend
session("searchcleararr") = searchcleararr
%>
</td>
</tr>
<tr>
<td class="content"> </td>
</tr>
<tr>
<td class="content">
<table width="95%" border="0" cellspacing="0" cellpadding="0">
<tr align="center">
<td class="footer" colspan="2"><a href="javascript:postcv()" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image1','','images/sub_content/btn/btn_cv_over.gif',1)"><img src="images/sub_content/btn/btn_cv.gif" width="124" height="18" border="0" name="Image1"></a></td>
</tr>
<tr> <%
if curPage = 1 then
PgFirst = 1
else
PgFirst = ((curpage - 1) * Application("DSI_PageSize")) + 1
end if
if curPage = TotalPages then
PgLast = TotalRecords
else
PgLast = curpage * Application("DSI_PageSize") end if
%>
<td class="footer">Total: <b><%=TotalRecords%><%if request("keyword") <> "" then%>
on keyword "<%=request("keyword")%>"<br>
<%end if%></b> Now showing record: <b><%=PgFirst%> - <%=PgLast%></b></td>
<td class=footer align="right"> <%if not curPage = 1 then%>
<a href="javascript:change_page(<%=curPage-1%>)">[<<prev]</a>
<%end if%> <%
for x=1 to TotalPages
if x = curPage then
response.write " <b>" & x & "</b> "
else
response.write " <a href=javascript:change_page("&x&")>"& x &"</a> "
end if
next
%> <% if not curPage = TotalPages then %> <a href="javascript:change_page(<%=curPage+1 %>)">[next>>]</a></td>
<%end if%> </tr>
<tr>
<td class="footer" colspan="2"> </td>
</tr>
<tr>
<td class="footer" colspan="2">For other jobs not listed above,
please <a href="mailto:[email protected]">submit your CV</a>
and our consultant will contact you personally. </td>
</tr>
</table>
<%end if%>
</td>
</tr>
<tr align="right">
<td class="content"><%'=TotalPages%> </td>
</tr>
</table>
<input type=hidden name=page value=<%=curPage%>>
<% if request("keyword") = "" then %>
<input type=hidden name=pgfirst value=<%=pgFirst%>>
<input type=hidden name=pglast value=<%=pgLast%>>
<% end if%>
<input type=hidden name=dest >
<input type=hidden name=opt >
</form>
</td>
</tr>
</table>
</body>
</html>
<% set rsJobs = nothing
set DBconn = nothing
session("refer_page") = "hot_jobs"
%>