<% Option Explicit %> <% Response.Buffer = True Response.Expires = -1 Response.AddHeader "Pragma", "no-cache" Response.AddHeader "cache-control", "no-store" If IsEmpty(Session("SESSION_ID")) Then Response.Redirect "timeout.htm" End If %> <% Dim cn, rs, i, strSQL Dim RecCount Dim strKey Dim objBasp Dim iMuse Dim rs2 Dim strImg strKey = Request.ServerVariables("QUERY_STRING") strSQL = "SELECT * FROM K_RPTHN WHERE REPOT_CH_ID = '"& strKey &"'" Set cn = Server.CreateObject("ADODB.Connection") cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Session("MDB_B") & ";" Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open strSQL, cn, 1, 1 RecCount = rs.RecordCount 'BASP21 Set objBasp = Server.CreateObject("BASP21") 'iMuse Set iMuse = Server.CreateObject("iMuse.Functions") 'Response.Write strSQL %> 鹿児島県埋蔵文化財情報データベース
<% If RecCount > 0 Then %> <% Else %>





データが見つかりません。



<% End If %>





資料ID <% =NullRepWSP(rs.Fields("REPOT_CH_ID")) %>
書名 <% =NullRepWSP(rs.Fields("SHO_NM")) %>
巻次 <% =NullRepWSP(rs.Fields("KANJI")) %>
副書名 <% =NullRepWSP(rs.Fields("SUB_SHO_NM")) %>
副書名巻号 <% =NullRepWSP(rs.Fields("SUB_SHO_KANGO")) %>
シリーズ名 <% =NullRepWSP(rs.Fields("SERIES_NM")) %>
シリーズ番号 <% =NullRepWSP(rs.Fields("SERIES_NO")) %>
編著者名 <% =NullRepWSP(rs.Fields("TYOHEN_NM")) %>
編集機関 <% =NullRepWSP(rs.Fields("HEN_KK_NM")) %>
発行機関 <% =NullRepWSP(rs.Fields("HAKKO_KK")) %>
発行年月日 <% =NullRepWSP(rs.Fields("HAKKO_YMD")) %>
分類1 <% =NullRepWSP(rs.Fields("BUNRUI1")) %>
分類2 <% =NullRepWSP(rs.Fields("BUNRUI2")) %>
分類3 <% =NullRepWSP(rs.Fields("BUNRUI3")) %>
分類4 <% =NullRepWSP(rs.Fields("BUNRUI4")) %>
分類5 <% =NullRepWSP(rs.Fields("BUNRUI5")) %>
分類記号1 <% =NullRepWSP(rs.Fields("BUN_KG1")) %>
分類記号2 <% =NullRepWSP(rs.Fields("BUN_KG2")) %>
分類記号3 <% =NullRepWSP(rs.Fields("BUN_KG3")) %>
分類記号4 <% =NullRepWSP(rs.Fields("BUN_KG4")) %>
分類記号5 <% =NullRepWSP(rs.Fields("BUN_KG5")) %>
収蔵書架ID <% =NullRepWSP(rs.Fields("SHUZO_SYK_NO")) %>
版権 <% =NullRepWSP(rs.Fields("CHOKEN_NM")) %>

<% strSQL = "SELECT * FROM RH_KANREN_FL WHERE REPOT_CH_ID = '" & rs.Fields("REPOT_CH_ID") & "'" Set rs2 = Server.CreateObject("ADODB.RecordSet") rs2.Open strSQL, cn, 1, 1 If rs2.RecordCount > 0 Then %>
">ダウンロード
<% End If %>


 

<% Set rs = Nothing Set rs2 = Nothing cn.Close %>