<% ' Set PayPal Store Manager Variables %> <% Dim rsItemsJLM__value1 rsItemsJLM__value1 = "%" If (Request.QueryString("ItemID") <> "") Then rsItemsJLM__value1 = Request.QueryString("ItemID") End If %> <% Dim rsItemsJLM__value3 rsItemsJLM__value3 = "%" If (Request.QueryString("CategoryID") <> "") Then rsItemsJLM__value3 = Request.QueryString("CategoryID") End If %> <% Dim rsItemsJLM__value4 rsItemsJLM__value4 = "%" If (Request.QueryString("ParentCategoryID") <> "") Then rsItemsJLM__value4 = Request.QueryString("ParentCategoryID") End If %> <% Dim rsItemsJLM__value2 rsItemsJLM__value2 = "%" If (Request.Form("search") <> "") Then rsItemsJLM__value2 = Request.Form("search") End If %> <% Dim rsItemsJLM Dim rsItemsJLM_numRows Set rsItemsJLM = Server.CreateObject("ADODB.Recordset") rsItemsJLM.ActiveConnection = MM_joblistingmanager_STRING rsItemsJLM.Source = "SELECT tblItems_Category_1.CategoryValue AS ParentCategoryValue, tblItems_Category.*, tblItems.* FROM (tblItems_Category RIGHT JOIN tblItems ON tblItems_Category.CategoryID = tblItems.CategoryIDkey) LEFT JOIN tblItems_Category AS tblItems_Category_1 ON tblItems_Category.ParentCategoryID = tblItems_Category_1.CategoryID WHERE tblItems.Activated = 'True' AND tblItems.ItemID LIKE '" + Replace(rsItemsJLM__value1, "'", "''") + "' AND tblItems.CategoryIDkey LIKE '" + Replace(rsItemsJLM__value3, "'", "''") + "' AND tblItems_Category.ParentCategoryID LIKE '" + Replace(rsItemsJLM__value4, "'", "''") + "' AND (tblItems.ItemName LIKE '%" + Replace(rsItemsJLM__value2, "'", "''") + "%' OR tblItems.ItemDesc LIKE '%" + Replace(rsItemsJLM__value2, "'", "''") + "%' OR tblItems.ItemMemo LIKE '%" + Replace(rsItemsJLM__value2, "'", "''") + "%' ) ORDER BY tblItems.DateAdded, tblItems_Category_1.CategoryValue, tblItems_Category.CategoryValue" rsItemsJLM.CursorType = 0 rsItemsJLM.CursorLocation = 2 rsItemsJLM.LockType = 1 rsItemsJLM.Open() rsItemsJLM_numRows = 0 %> <% set rsCategoryJLM = Server.CreateObject("ADODB.Recordset") rsCategoryJLM.ActiveConnection = MM_joblistingmanager_STRING rsCategoryJLM.Source = "SELECT tblItems_Category_1.CategoryImageFile AS ParentCategoryImageFile, tblItems_Category_1.CategoryLabel AS ParentCategoryLabel, tblItems_Category_1.CategoryDesc AS ParentCategoryDesc, tblItems_Category_1.CategoryValue AS ParentCategoryValue, tblItems_Category.CategoryID, tblItems_Category.CategoryValue, tblItems_Category.ParentCategoryID, tblItems_Category.CategoryDesc, tblItems_Category.CategoryLabel, tblItems_Category.CategoryImageFile, Count(tblItems.ItemID) AS ItemCount FROM (tblItems_Category LEFT JOIN tblItems_Category AS tblItems_Category_1 ON tblItems_Category.ParentCategoryID = tblItems_Category_1.CategoryID) RIGHT JOIN tblItems ON tblItems_Category.CategoryID = tblItems.CategoryIDkey WHERE (((tblItems.Activated)='True')) GROUP BY tblItems_Category_1.CategoryImageFile, tblItems_Category_1.CategoryLabel, tblItems_Category_1.CategoryDesc, tblItems_Category_1.CategoryValue, tblItems_Category.CategoryID, tblItems_Category.CategoryValue, tblItems_Category.ParentCategoryID, tblItems_Category.CategoryDesc, tblItems_Category.CategoryLabel, tblItems_Category.CategoryImageFile HAVING (((tblItems_Category.ParentCategoryID)<>0)) ORDER BY tblItems_Category_1.CategoryValue, tblItems_Category.CategoryValue" rsCategoryJLM.CursorType = 0 rsCategoryJLM.CursorLocation = 2 rsCategoryJLM.LockType = 3 rsCategoryJLM.Open() rsCategoryJLM_numRows = 0 %> <% Dim rsRelatedItemsJLM__value1 rsRelatedItemsJLM__value1 = "%" If (Request.QueryString("ItemID") <> "") Then rsRelatedItemsJLM__value1 = Request.QueryString("ItemID") End If %> <% Dim rsRelatedItemsJLM__value3 rsRelatedItemsJLM__value3 = "999" If (Request.QueryString("CategoryID") <> "") Then rsRelatedItemsJLM__value3 = Request.QueryString("CategoryID") End If %> <% Dim rsRelatedItemsJLM Dim rsRelatedItemsJLM_numRows Set rsRelatedItemsJLM = Server.CreateObject("ADODB.Recordset") rsRelatedItemsJLM.ActiveConnection = MM_joblistingmanager_STRING rsRelatedItemsJLM.Source = "SELECT tblItems_Category_1.CategoryValue AS ParentCategoryValue, tblItems_Category.*, tblItems.* FROM (tblItems_Category RIGHT JOIN tblItems ON tblItems_Category.CategoryID = tblItems.CategoryIDkey) LEFT JOIN tblItems_Category AS tblItems_Category_1 ON tblItems_Category.ParentCategoryID = tblItems_Category_1.CategoryID WHERE tblItems.Activated = 'True' AND tblItems.ItemID NOT LIKE '" + Replace(rsRelatedItemsJLM__value1, "'", "''") + "' AND tblItems.CategoryIDkey LIKE '" + Replace(rsRelatedItemsJLM__value3, "'", "''") + "' ORDER BY tblItems_Category_1.CategoryValue, tblItems_Category.CategoryValue" rsRelatedItemsJLM.CursorType = 0 rsRelatedItemsJLM.CursorLocation = 2 rsRelatedItemsJLM.LockType = 1 rsRelatedItemsJLM.Open() rsRelatedItemsJLM_numRows = 0 %> <% Dim RepeatrsCategoryJLMList__numRows Dim RepeatrsCategoryJLMList__index RepeatrsCategoryJLMList__numRows = -1 RepeatrsCategoryJLMList__index = 0 rsCategoryJLM_numRows = rsCategoryJLM_numRows + RepeatrsCategoryJLMList__numRows %> <% Dim Repeat_rsItemsJLM__numRows Dim Repeat_rsItemsJLM__index Repeat_rsItemsJLM__numRows = -1 Repeat_rsItemsJLM__index = 0 rsItemsJLM_numRows = rsItemsJLM_numRows + Repeat_rsItemsJLM__numRows %> <% Dim Repeat1_rsRelatedItemsJLM__numRows Dim Repeat1_rsRelatedItemsJLM__index Repeat1_rsRelatedItemsJLM__numRows = -1 Repeat1_rsRelatedItemsJLM__index = 0 rsRelatedItemsJLM_numRows = rsRelatedItemsJLM_numRows + Repeat1_rsRelatedItemsJLM__numRows %>

<%If Request.QueryString ("mid")<> "" Then %>?mid=<%=request.querystring("mid")%><%end if%><%If Request.QueryString ("mid2")<> "" Then %>&mid2=<%=request.querystring("mid2")%><%end if%><%If Request.QueryString ("mid3")<> "" Then %>&mid3=<%=request.querystring("mid3")%><%end if%><%If Request.QueryString ("incid")<> "" Then %>&incid=<%=request.querystring("incid")%><%end if%><%If Request.QueryString ("Variables")<> "" Then %>&<%=request.querystring("Variables")%><%end if%>"> <% If Not rsCategoryJLM.EOF Or Not rsCategoryJLM.BOF Then %>

Recherche / Search

<%If Request.QueryString ("mid")<> "" Then %>?mid=<%=request.querystring("mid")%><%end if%><%If Request.QueryString ("mid2")<> "" Then %>&mid2=<%=request.querystring("mid2")%><%end if%><%If Request.QueryString ("mid3")<> "" Then %>&mid3=<%=request.querystring("mid3")%><%end if%><%If Request.QueryString ("incid")<> "" Then %>&incid=<%=request.querystring("incid")%><%end if%><%If Request.QueryString ("Variables")<> "" Then %>&<%=request.querystring("Variables")%><%end if%>?show=all">
Liste complète / Show All (<%=ItemTotal%>)

<% End If ' end Not rsCategoryJLM.EOF Or NOT rsCategoryJLM.BOF %>

<% While ((Repeat_rsItemsJLM__numRows <> 0) AND (NOT rsItemsJLM.EOF)) %> <% If Not rsItemsJLM.EOF Or Not rsItemsJLM.BOF Then %> ">

<%If Request.QueryString ("ItemID") <> "" Then %> [ Retour / Go Back ] <% else%> [ ?ItemID=<%=(rsItemsJLM.Fields.Item("ItemID").Value)%>&CategoryID=<%=(rsItemsJLM.Fields.Item("CategoryID").Value)%><%If Request.QueryString ("mid")<> "" Then %>&mid=<%=request.querystring("mid")%><%end if%><%If Request.QueryString ("mid2")<> "" Then %>&mid2=<%=request.querystring("mid2")%><%end if%><%If Request.QueryString ("mid3")<> "" Then %>&mid3=<%=request.querystring("mid3")%><%end if%><%If Request.QueryString ("incid")<> "" Then %>&incid=<%=request.querystring("incid")%><%end if%><%If Request.QueryString ("Variables")<> "" Then %>&<%=request.querystring("Variables")%><%end if%>">Cliquer pour voir les détails de cette offre / Click to view Job Details ] <%end if%>

<% If Request.QueryString("ItemID") <> "" AND rsItemsJLM.Fields.Item("ItemMemo").Value <> "" Then %>

Offre Détaillée / Job Details:

<%=(rsItemsJLM.Fields.Item("ItemMemo").Value)%>

<%End If %> <% If Request.QueryString("ItemID") <> "" Then %> <% If rsItemsJLM.Fields.Item("SendToEmailAddress").Value <> "" Then %> <% end if%>

Comment appliquer / How to Apply:
<%=(rsItemsJLM.Fields.Item("SendToInstructions").Value)%>	» ?subject=APPLICATION [JobID <%=(rsItemsJLM.Fields.Item("ItemID").Value)%>:<%=(rsItemsJLM.Fields.Item("ItemName").Value)%>]"> Appliquer / Apply Now	» <% pre_url = "http://" & request.servervariables("HTTP_HOST") & request.servervariables("URL") & "?" & request.servervariables("QUERY_STRING") url = Server.URLencode(pre_url) %> Envoyer à un ami / Send To Friend

<%end if%>

<% End If ' end Not rsItemsJLM.EOF Or NOT rsItemsJLM.BOF %> <% dim CategoryID CategoryID = (rsItemsJLM.Fields.Item("CategoryID").Value) %>
<% Repeat_rsItemsJLM__index=Repeat_rsItemsJLM__index+1 Repeat_rsItemsJLM__numRows=Repeat_rsItemsJLM__numRows-1 rsItemsJLM.MoveNext() Wend %> <% If Not rsRelatedItemsJLM.EOF Or Not rsRelatedItemsJLM.BOF Then %> <% While ((Repeat1_rsRelatedItemsJLM__numRows <> 0) AND (NOT rsRelatedItemsJLM.EOF)) %> "> <% Repeat1_rsRelatedItemsJLM__index=Repeat1_rsRelatedItemsJLM__index+1 Repeat1_rsRelatedItemsJLM__numRows=Repeat1_rsRelatedItemsJLM__numRows-1 rsRelatedItemsJLM.MoveNext() Wend %>

Emploi similaire / Related jobs:

<% End If ' end Not rsRelatedItemsJLM.EOF Or NOT rsRelatedItemsJLM.BOF %>
<% If rsItemsJLM.EOF And rsItemsJLM.BOF AND request.Form("search") <> "" Then %>

No items found containing keyword "<%= Request.Form("search") %>" .....Please Try Again

<% End If ' end rsItemsJLM.EOF And rsItemsJLM.BOF %>

<% rsItemsJLM.Close() Set rsItemsJLM = Nothing %> <% rsCategoryJLM.Close() Set rsCategoryJLM = Nothing %> <% rsRelatedItemsJLM.Close() Set rsRelatedItemsJLM = Nothing %>