EPS Computer Systems Sdn Bhd -> Job Services

<% Response.CacheControl = " no-cache" %> <% Response.AddHeader " Pragma" , " no-cache" %> <% Response.Expires = -1 %>

<% %> <% ' BEGIN RUNTIME CODE ' Declare our vars Dim iPageSize 'How big our pages are Dim iPageCount 'The number of pages we get back Dim iPageCurrent 'The page we want to show Dim strOrderBy 'A fake parameter used to illustrate passing them Dim sql 'SQL command to execute Dim objPagingConn 'The ADODB connection object Dim getRec 'The ADODB recordset object Dim iRecordsShown 'Loop controller for displaying just iPageSize records Dim I 'Standard looping var Dim getRec1 'The ADODB recordset object for changing of jobstatus ' Get parameters iPageSize = 20 ' You could easily allow users to change this ' Retrieve page to show or default to 1 If Request.QueryString("page") = "" Then iPageCurrent = 1 Else iPageCurrent = CInt(Request.QueryString("page")) End If ' Set connection to database Set conn = Server.CreateObject("ADODB.Connection") conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & _ Server.MapPath("jobsystem.mdb")) ' SQL statement to set all data where Jend date has expired sql = "Update URL SET JobStatus = 'No' WHERE JEnd < Now()" set getRec1=conn.execute(sql) ' SQL statement to get all data where jobstatus = yes and sort according to data in descending order sql = "SELECT * FROM URL WHERE JobStatus = 'Yes' ORDER BY JStart DESC" set getRec=conn.execute(sql) ' Create recordset and set the page size Set getRec = Server.CreateObject("ADODB.Recordset") getRec.PageSize = iPageSize getRec.CacheSize = iPageSize ' Open RS getRec.Open sql, conn, adOpenStatic, adLockReadOnly, adCmdText ' Open RS for getRec1 getRec1.Open sql, conn, adOpenStatic, adLockReadOnly, adCmdText ' Get the count of the pages using the given page size iPageCount = getRec.PageCount ' If the request page falls outside the acceptable range, ' give them the closest match (1 or max) If iPageCurrent > iPageCount Then iPageCurrent = iPageCount If iPageCurrent < 1 Then iPageCurrent = 1 %>

<% ' Close DB objects and free variables getRec.Close Set getRec = Nothing conn.Close Set conn = Nothing ' Show "previous" and "next" page links which pass the page to view ' and any parameters needed to rebuild the query. You could just as ' easily use a form but you'll need to change the lines that read ' the info back in at the top of the script. %>

<% ' END RUNTIME CODE %>

Searching for a job? We at EPS can help you on your way to a fulfilling and rewarding career. Whether its job placements or career planning, our consultants are always ready to help. So please don’t hesitate to call or e-mail us, or visit our local office for assistance.

You are also welcome to register your resumes in our online database. Please kindly fill in your details in the template and click Submit. We will contact you immediately when we find an opportunity which suits your profile.

Alternatively, you can also e-mail your resume as an attached file directly to resume@epscs.com or refer to the Jobs Available listing below. All resumes registered in our database are kept in strict confidence.

:: Jobs Available ::

<% ' Check page count to prevent bombing when zero results are returned! If iPageCount = 0 Then Response.Write "No records found!" Else ' Move to the selected page getRec.AbsolutePage = iPageCurrent end if ' Start output with a page x of n line %>

Page <%= iPageCurrent %> of <%= iPageCount %>

<% iRecordsShown = 0 Dim Diff Dim previousDates Dim cat cat = request.form("category") ' Request to show data in table according by search function Do While iRecordsShown < iPageSize And Not getRec.EOF previousDates = getRec("JStart") ' Get data of post (Jstart) frm database diff=DateDiff("d",previousDates,date) ' Data different is a function to compare date if diff < 31 then ' Compare data if 31 days then enter if else statement if cat = getRec("Category") then ' Get data according to category %> <% else if (cat = "Display All") then %> <% end if 'display all if (cat = "") then %> <% end if 'cat = "" end if 'cat outter loop end if 'diff ' Increment the number of records we've shown iRecordsShown = iRecordsShown + 1 ' Can't forget to move to the next record! getRec.movenext Loop ' All done - close table Response.Write "

Date (mm/dd/yyyy)

Job Title

Category

Remarks
Submit Resume

<%=getRec("JStart")%> " target="_blank"><%=getRec("JobTitle")%> <%=getRec("Category")%> <%=getRec("Remarks")%> ">
<%=getRec("JStart")%> " target="_blank"><%=getRec("JobTitle")%> <%=getRec("Category")%> <%=getRec("Remarks")%> ">
<%=getRec("JStart")%> " target="_blank"><%=getRec("JobTitle")%> <%=getRec("Category")%> <%=getRec("Remarks")%> ">

" & vbCrLf %>

<% If iPageCurrent > 1 Then %> [<< Prev] <% End If ' You can also show page numbers: For I = 1 To iPageCount If I = iPageCurrent Then %> [ <%= I %> ] <% Else %> [ <%= I %> ] <% End If Next 'I If iPageCurrent < iPageCount Then %> [Next >>] <% End If%>

Willing to re-locate and work in Singapore? Click Here!

Company Profile | Our Services | Contact Detail | Job Services | Log In