<%@LANGUAGE="VBSCRIPT"%> <% Dim Products Dim Products_cmd Dim Products_numRows Set Products_cmd = Server.CreateObject ("ADODB.Command") Products_cmd.ActiveConnection = MM_CharonCart_STRING Products_cmd.CommandText = "SELECT * FROM Products WHERE CategoryID = 4 AND PositionType = 'Permanent' AND Vacancy = 'open' ORDER BY ProductID DESC" Products_cmd.Prepared = true Set Products = Products_cmd.Execute Products_numRows = 0 %> <% Dim Recordset1 Dim Recordset1_cmd Dim Recordset1_numRows Set Recordset1_cmd = Server.CreateObject ("ADODB.Command") Recordset1_cmd.ActiveConnection = MM_CharonCart_STRING Recordset1_cmd.CommandText = "SELECT * FROM Products WHERE CategoryID = 4 AND PositionType = 'Part Time' AND Vacancy = 'open' ORDER BY ProductID DESC" Recordset1_cmd.Prepared = true Set Recordset1 = Recordset1_cmd.Execute Recordset1_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = 10 Dim Repeat1__index Repeat1__index = 0 Products_numRows = Products_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat2__numRows %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables ' set the record count Products_total = Products.RecordCount ' set the number of rows displayed on this page If (Products_numRows < 0) Then Products_numRows = Products_total Elseif (Products_numRows = 0) Then Products_numRows = 1 End If ' set the first and last displayed record Products_first = 1 Products_last = Products_first + Products_numRows - 1 ' if we have the correct record count, check the other stats If (Products_total <> -1) Then If (Products_first > Products_total) Then Products_first = Products_total If (Products_last > Products_total) Then Products_last = Products_total If (Products_numRows > Products_total) Then Products_numRows = Products_total End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (Products_total = -1) Then ' count the total records by iterating through the recordset Products_total=0 While (Not Products.EOF) Products_total = Products_total + 1 Products.MoveNext Wend ' reset the cursor to the beginning If (Products.CursorType > 0) Then Products.MoveFirst Else Products.Requery End If ' set the number of rows displayed on this page If (Products_numRows < 0 Or Products_numRows > Products_total) Then Products_numRows = Products_total End If ' set the first and last displayed record Products_first = 1 Products_last = Products_first + Products_numRows - 1 If (Products_first > Products_total) Then Products_first = Products_total If (Products_last > Products_total) Then Products_last = Products_total End If %><% ' Trim by length (by FELIXONE.it) Function TrimByLength(str, slen, word) trail = "" If (Len(str) > slen) Then trail = "..." str = Left(str, slen) For i=1 To Len(str) If (Mid(str,i,1) = " ") Then pos = i Next If (word) Then str = Left(str, pos) TrimByLength = str & trail End Function %> Industrial Jobs | Recruitment Drive

 

<% If Not Products.EOF Or Not Products.BOF Then %>

Vacancies - Industrial - Full Time

PART TIME   FULL TIME
<% End If ' end Not Products.EOF Or NOT Products.BOF %>
<% While ((Repeat1__numRows <> 0) AND (NOT Products.EOF)) %>

Ref: RD<%=(Products.Fields.Item("ProductID").Value)%>    -     <%=(Products.Fields.Item("Product").Value)%>


">" alt="RD Recruitment" width="100" height="100" border="0">">
Apply for Job

<%=(Products.Fields.Item("Description").Value)%>
   
Salary : <%=(Products.Fields.Item("Salary").Value)%> Position : <%=(Products.Fields.Item("PositionType").Value)%>
Location : <%=(Products.Fields.Item("Location").Value)%>  " class="style1">More Information
 
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Products.MoveNext() Wend %>

 

 

 

 

Vacancies - Industrial - Part Time

rd recruitment

PART TIME   FULL TIME
<% While ((Repeat2__numRows <> 0) AND (NOT Recordset1.EOF)) %>

Ref: RD<%=(Recordset1.Fields.Item("ProductID").Value)%>    -     <%=(Recordset1.Fields.Item("Product").Value)%>


">" alt="RD Recruitment" width="100" height="100" border="0">">
Apply for Job

<%=(Recordset1.Fields.Item("Description").Value)%>
   
Salary : <%=(Recordset1.Fields.Item("Salary").Value)%> Position : <%=(Recordset1.Fields.Item("PositionType").Value)%>
Location : <%=(Recordset1.Fields.Item("Location").Value)%> " class="style1">More Information
 



<% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 Recordset1.MoveNext() Wend %>

 

 

 

 

 

 

 

 

 

 

 

 

<% Products.Close() %> <% Recordset1.Close() %>