<%@ Language=VBScript %> <% Option Explicit %> <% Dim TOPCS_NO Dim FileObject Dim R_File Dim FileText Dim T_NEXT Dim T_BACK Dim Rtn_CD Dim Support_Topics Dim submit Dim clsUtil Dim objConn Dim objCategory 'cc_トピックスコンテンツ、cc_トピックスカテゴリー Dim objContents 'cc_トピックスコンテンツ Dim li_rtn Dim ls_data Dim ls_data2 Response.Expires=0 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 %> エンジニアの転職実績45年 イムカ株式会社
転職ノウハウ <% 'COM呼び出し Rtn_CD = Support_Topics.topics_Get_CategryList(objConn, objCategory) If Rtn_CD = 1 Then clsUtil.disconnectDB objConn Set clsUtil = Nothing Set Support_Topics = Nothing Response.Redirect "err.asp?Err=" & Server.URLEncode("データベースエラーが発生しました") End If 'トピックコンテンツからデータ取り込み TOPCS_NO=Request("no") T_NEXT=0 T_BACK=0 'COM呼び出し submit = Request.Form("submit") Rtn_CD = Support_Topics.topics_Select_Data(TOPCS_NO, objConn, submit, objContents, T_NEXT, T_BACK) If objContents("カテゴリー番号") = 8 Then Response.Write("
Home > 転職ノウハウ > 転職トピックス > 転職成功者インタビュー > トピックス表示
") Response.Write("
") Response.Write("") Response.Write("
") End If If objContents("カテゴリー番号") = 6 Then Response.Write("") Response.Write("
") Response.Write("") Response.Write("
") End If If objContents("カテゴリー番号") = 1 Then Response.Write("
Home > 転職ノウハウ > 転職トピックス > 企業力の視点 > トピックス表示
") Response.Write("
") Response.Write("") Response.Write("
") End If If objContents("カテゴリー番号") = 10 Then Response.Write("") Response.Write("
") Response.Write("") Response.Write("
") End If %>
<% If Rtn_CD = 1 Then clsUtil.disconnectDB objConn Set clsUtil = Nothing Set Support_Topics = Nothing Response.Redirect "err.asp?Err=" & Server.URLEncode("データベースエラーが発生しました") End If %>
<% If T_BACK=1 Then %> <% End If If T_NEXT=1 Then %> <% End If %>
<% '外部HTMLファイルの読み込み li_rtn = Support_Topics.getprofilestring("TARGET","TARGETPC",ls_data,objConn) li_rtn = Support_Topics.getprofilestring("TOPICS","TOPICSDATA",ls_data2,objConn) if li_rtn <> 1 then else Set FileObject=Server.CreateObject("Scripting.FileSystemObject") R_File= ls_data + ls_data2 & objContents("カテゴリー番号") &"/" & objContents("グループ番号") &"/"& objContents("コンテンツ番号") &"/"& objContents("トピックファイル") If FileObject.FileExists(R_File) = True Then Set FileText=FileObject.OpenTextFile(R_File) Response.Write FileText.ReadAll End If end if 'コネクションの開放 Call clsUtil.disconnectDB( objConn ) 'オブジェクトの開放 Set clsUtil = nothing Set Support_Topics = nothing %>
<% If T_BACK=1 Then %> <% End if If T_NEXT=1 Then %> <% End If %>
転職トピックスindexへ