<% 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 V_K_IBUTU WHERE IBUTU_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 'この詳細ページへの戻り先 Session("DetReturnPage") = "det_ibutsu_c.asp?" & strKey 'BASP21 Set objBasp = Server.CreateObject("BASP21") 'iMuse Set iMuse = Server.CreateObject("iMuse.Functions") %>

<% If RecCount > 0 Then %> <% Else %> データが見つかりません。 <% End If %> 遺跡名 <% =NullRepWSP(rs.Fields("ISEKI_CH_NM")) %> <% '写真 strSQL = "SELECT * FROM S_PHOTO WHERE DB_KBN = '遺物' AND ISKB_CH_ID = '"& strKey &"' ORDER BY ISKB_NB_SEQ" Set rs2 = Server.CreateObject("ADODB.RecordSet") rs2.Open strSQL, cn, 1, 1 If rs2.RecordCount > 0 Then strImg = MidImagepath(rs2.Fields("IMAGE_PATH")) Response.Write "" Response.Write "" Response.Write "" Set rs2 = Nothing %> <% Else %> <% End If %> 遺跡所在地 <% Response.Write NullRepWSP(rs.Fields("SYOZAI_TDF")) & NullRepWSP(rs.Fields("SYOZAI_CITY_NM")) & NullRepWSP(rs.Fields("SYOZAI_OAZA")) %> エリア名 <% =NullRepWSP(rs.Fields("AREA_NM")) %> 管理コード <% =NullRepWSP(rs.Fields("IBUTU_CH_ID")) %> 遺物の名称 <% =NullRepWSP(rs.Fields("IBUTSU_CH_NM")) %> 遺物の種別 <% =NullRepWSP(rs.Fields("SHI_KBN3")) %> <% '報告挿図 strSQL = "SELECT * FROM K_RPTZH WHERE DBSE_CH_KBN = '遺物' AND ISKBS_CH_ID = '"& strKey &"' ORDER BY ISKB_NB_SEQ" Set rs2 = Server.CreateObject("ADODB.RecordSet") rs2.Open strSQL, cn, 1, 1 If rs2.RecordCount > 0 Then strImg = MidImagePath(rs2.Fields("GAZ_CH_PATH")) Response.Write "" Response.Write "" Response.Write "" Set rs2 = Nothing %> <% Else %> <% End If %> 遺物の様式 または系統 <% =NullRepWSP(rs.Fields("BUNRUI1_NM")) %> 遺物の型式 または器種 <% =NullRepWSP(rs.Fields("BUNRUI2_NM")) %> 遺物の 細別型式 または分類 <% =NullRepWSP(rs.Fields("BUNRUI3_NM")) %> 遺物の形式 または種類 <% =NullRepWSP(rs.Fields("BUNRUI4_NM")) %> 遺物の特徴 または素材 <% =NullRepWSP(rs.Fields("BUNRUI5_NM")) %> 遺物所蔵者 <% =NullRepWSP(rs.Fields("IB_SYOZO_NM")) %> 報告分類１ <% =NullRepWSP(rs.Fields("HK_BUNRUI1")) %> 報告分類２ <% =NullRepWSP(rs.Fields("HK_BUNRUI2")) %> 報告分類３ <% =NullRepWSP(rs.Fields("HK_BUNRUI3")) %> 報告分類４ <% =NullRepWSP(rs.Fields("HK_BUNRUI4")) %> 報告分類５ <% =NullRepWSP(rs.Fields("HK_BUNRUI5")) %> 遺物の部位 <% =NullRepWSP(rs.Fields("BUI_PLACE")) %> 遺物の 出土層位 <% =NullRepWSP(rs.Fields("SOUI_NM")) %> グリッド <% =NullRepWSP(rs.Fields("GRID_NM")) %> 遺物の時期１ <% =NullRepWSP(rs.Fields("IB_JIKI1_NM")) %> 遺物の時期２ <% =NullRepWSP(rs.Fields("IB_JIKI2_NM")) %> ">ダウンロード 　 <% If Session("SEARCH_TYPE") <> "ZENBUN" Then %> "> <% Else %> "> <% End If %>