<%@ Language="VBScript" CodePage="932" %><% Response.ContentType="text/xml" %> rss/job.xsl" type="text/xsl" media="screen"?><% '検索条件インスタンス生成 Dim oSOC Set oSOC = New clsSearchOrderCondition oSOC.Top = 30 Dim oSQL,oRS Dim oSQL2,oRS2 Dim sql_select,sql_from,sql_where oSOC.SearchDetailFlag = "1" sql_select = "SELECT top 1" sql_select = sql_select & " ci.OrderCode" sql_select = sql_select & ",IsNull(ci.JobTypedetail,'') as JobTypedetail" sql_select = sql_select & ",ci.OrderType" sql_select = sql_select & ",c.CompanyName_K" sql_select = sql_select & ",cs.CompanySpeciality" 'sql_select = sql_select & ",Case IsNull(vo.RiyoFromDate,'') When '' then ci.updateday else vo.RiyoFromDate end as RiyoFromDate" sql_select = sql_select & ",ci.updateday as RiyoFromDate" sql_select = sql_select & ",vj.MiddleClassName as JobType" sql_from = " FROM C_Info as ci" sql_from = sql_from & " Inner Join vw_OrderCode as vo on ci.OrderCode = vo.OrderCode" sql_from = sql_from & " Inner Join Companyinfo as c on ci.companycode = c.companycode" sql_from = sql_from & " Inner Join C_JobType as cj on cj.id = '1' and ci.OrderCode = cj.OrderCode" sql_from = sql_from & " Inner Join vw_JobType as vj on cj.jobtypecode = vj.jobtypecode" sql_from = sql_from & " Left Outer Join C_SupplementInfo as cs on ci.OrderCode = cs.Ordercode" %> <% if oSOC.JobTypeBigCode1 <> "" then if oSOC.JobTypeCode1 <> "" then response.write GetJobTypeName(oSOC.JobTypeCode1) & "のお仕事" else response.write GetJobTypeBig(oSOC.JobTypeBigCode1) & "のお仕事" end if elseif oSOC.WorkingTypeCode1 <> "" then response.write GetDetail("workingtype",oSOC.WorkingTypeCode1) & "のお仕事" elseif oSOC.AreaName <> "" then if oSOC.PrefectureCode1 <> "" then response.write GetDetail("Prefecture", oSOC.PrefectureCode1) & "のお仕事" else response.write GetDetail("area", oSOC.AreaName) & "のお仕事" end if else response.write "新着お仕事情報" end if %> - しごとナビ <%=BASEURL%>order/order_list.asp<%=oSOC.GetSearchParam%> 最新の求人情報をRSSでお届けします。転職サイトしごとナビは、転職情報だけではなく派遣情報も同時検索可能。また転職時に必要な履歴書や職務経歴書のPDF印刷、自己PRや志望動機等の転職支援ツールも入手できる！もちろんスカウトメールでテンポよくあなたの転職が可能になります。 ja LIS.co.,ltd リス株式会社 転職 <%=BASEURL%>rss/job.xml <%=BASEURL%>img/logo.gif しごとナビ <%=BASEURL%> <% oSQL = oSOC.GetSQLOrderSearchDetail() Set oRS = dbconn.Execute(oSQL) If Not oRS.EOF then oRS.Sort = "SortNum ASC, UpdateDay DESC" Do Until oRS.EOF sql_where = " Where ci.OrderCode = '" & oRS.Collect("OrderCode") & "'" oSQL2 = sql_select & sql_from & sql_where Set oRS2 = dbconn.Execute(oSQL2) if not oRS2.eof then %> <% if Len(trim(oRS2.Collect("JobTypeDetail"))) > 0 then response.write oRS2.Collect("JobTypeDetail") else response.write oRS2.Collect("jobtype") end if %>｜<% if oRS2.Collect("ordertype") = "0" then response.write oRS2.Collect("companyname_K") else response.write oRS2.Collect("companyspeciality") end if %> <%=BASEURL%>order/order_detail.asp?ordercode=<%=oRS.Collect("OrderCode")%>&rss=on ]]> <% if oRS2.Collect("ordertype") = "0" then response.write oRS2.Collect("companyname_K") else response.write "リス株式会社" end if %> <%= oRS2.Collect("jobtype") %> <%=BASEURL%>order/order_detail.asp?ordercode=<%=oRS.Collect("OrderCode")%>&rss=on <% 'Sat, 3 May 2008 08:34:09 +0900 SetLocale(1033) myWeekName = Array("Sun","Mon","Tue","Wed","Thu","Fri","Sat") i=Weekday(oRS2.Collect("RiyoFromDate"))-1 response.write myWeekName(i) & "," & Space(1) response.write Day(oRS2.Collect("RiyoFromDate")) & Space(1) response.write MonthName(Month(oRS2.Collect("RiyoFromDate")),True) & Space(1) response.write Year(oRS2.Collect("RiyoFromDate")) & Space(1) if Hour(oRS2.Collect("RiyoFromDate")) < 10 then response.write "0" end if response.write Hour(oRS2.Collect("RiyoFromDate")) & ":" if minute(oRS2.Collect("RiyoFromDate")) < 10 then response.write "0" end if response.write minute(oRS2.Collect("RiyoFromDate")) & ":" if second(oRS2.Collect("RiyoFromDate")) < 10 then response.write "0" end if response.write second(oRS2.Collect("RiyoFromDate")) & " +0900" SetLocale(1041) %> <% oRS2.Close end if Set oRS2 = Nothing oRS.MoveNext loop oRS.Close else End If %>