<%@ Language=VBScript %> <% Option Explicit Dim KNo Dim Rtn_CD Dim Support_Topics Dim clsUtil Dim objConn Dim Topics_Num() Dim Contents_Name() Dim cnt 'COMオブジェクト生成 Set Support_Topics = Server.CreateObject("Business2.Support") set clsUtil = Server.CreateObject("Business2.Utility") 'データベース接続 If clsUtil.connectDB(objConn) <> 1 Then 'データベース切り離し clsUtil.disconnectDB objConn Set clsUtil = Nothing Set Support_Topics = Nothing Response.Redirect "err.asp?Err=" & Server.URLEncode("データベースエラーが発生しました") End If KNo=CStr(Request("C")) If Len(Kno) = 1 Then Kno="0"& Kno End If %> 転職トピックス ┃ エンジニアの転職実績45年 イムカ株式会社
転職ノウハウ <% 'リストボックスの値を取得 'COM呼び出し Rtn_CD = Support_Topics.topics_sub_navi(kno, objConn, Topics_Num, Contents_Name) Set Support_Topics = Nothing If kno = 8 Then Response.Write("
Home > サービス紹介 > 転職トピックス > 転職成功者インタビュー
") Response.Write("
") Response.Write("") Response.Write("
") End If If kno = 6 Then Response.Write("
Home > サービス紹介 > 転職トピックス > 人材紹介コンサルタント講座
") Response.Write("
") Response.Write("") Response.Write("
") End If If kno = 1 Then Response.Write("
Home > ;サービス紹介 > 転職トピックス > 企業力の視点
") Response.Write("
") Response.Write("") Response.Write("
") End If If kno = 10 Then Response.Write("
Home > サービス紹介 > ;転職トピックス > 企業の人事担当者からのアドバイス
") Response.Write("
") Response.Write("") Response.Write("
") End If %>
<% For cnt = 0 to Ubound(Topics_Num) '二番目のレコードにはハイフンが入っているので飛ばす If cnt <> 1 Then Response.Write(" ") Response.Write(" ") Response.Write(" ") End If Next %>
") '一番目のレコードにはトピック名が入ってるので表示 If cnt = 0 Then Response.Write(" ") '三番目以降のレコードにはトピックの内容が入っているので表示 Else Response.Write("") Response.Write Contents_Name(cnt) Response.Write("") End If Response.Write("
転職トピックスindexへ