<% 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_ISEKI WHERE ISEKI_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_iseki_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_ID")) %> <% '写真 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 %> 遺跡名 <% =NullRepWSP(rs.Fields("ISEKI_CH_NM")) %> 遺跡群名 <% =NullRepWSP(rs.Fields("ISK_GN_NM")) %> 遺跡所在地 <% Dim strAddr strAddr = rs.Fields("SYOZAI_TDF") & rs.Fields("SYOZAI_CITY_NM") & rs.Fields("SYOZAI_OAZA") Response.Write NullRepWSP(strAddr) %> 遺跡台帳番号 <% Dim strINO If rs.Fields("ISK_DTYO_1") <> "" Then strINO = rs.Fields("ISK_DTYO_1") End If If rs.Fields("ISK_DTYO_2") <> "" Then If strINO <> "" Then strINO = strINO & " - " & rs.Fields("ISK_DTYO_2") Else strINO = rs.Fields("ISK_DTYO_2") End If End If If rs.Fields("ISK_DTYO_3") <> "" Then If strINO <> "" Then strINO = strINO & " - " & rs.Fields("ISK_DTYO_3") Else strINO = rs.Fields("ISK_DTYO_3") End If End If If rs.Fields("ISK_DTYO_4") <> "" Then If strINO <> "" Then strINO = strINO & " - " & rs.Fields("ISK_DTYO_4") Else strINO = rs.Fields("ISK_DTYO_4") End If End If If rs.Fields("ISK_DTYO_5") <> "" Then If strINO <> "" Then strINO = strINO & " - " & rs.Fields("ISK_DTYO_5") Else strINO = rs.Fields("ISK_DTYO_5") End If End If Response.Write NullRepWSP(strINO) %> 緯度 <% =NullRepWSP(rs.Fields("IDO_EN")) %> <% '報告挿図 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("KEIDO_EN")) %> 標高 約<% =NullRepWSP(rs.Fields("HYOKO_EN")) %>ｍ 地形 <% =NullRepWSP(rs.Fields("CHIKEI")) %> 種別 <% =NullRepWSP(rs.Fields("SYUBETSU")) %> 時代 <% Dim strJ If rs.Fields("SEKKI") = "1" Then strJ = "旧石器時代" End If If rs.Fields("JOUMON") = "1" Then If strJ <> "" Then strJ = strJ & "," & "縄文時代" Else strJ = "縄文時代" End If End If If rs.Fields("YAYOI") = "1" Then If strJ <> "" Then strJ = strJ & "," & "弥生時代" Else strJ = "弥生時代" End If End If If rs.Fields("KOFUN") = "1" Then If strJ <> "" Then strJ = strJ & "," & "古墳時代" Else strJ = "古墳時代" End If End If If rs.Fields("KODAI") = "1" Then If strJ <> "" Then strJ = strJ & "," & "古代" Else strJ = "古代" End If End If If rs.Fields("TYUSEI") = "1" Then If strJ <> "" Then strJ = strJ & "," & "中世" Else strJ = "中世" End If End If If rs.Fields("KINSEI") = "1" Then If strJ <> "" Then strJ = strJ & "," & "近世" Else strJ = "近世" End If End If If rs.Fields("KINDAI") = "1" Then If strJ <> "" Then strJ = strJ & "," & "近代" Else strJ = "近代" End If End If If rs.Fields("GENDAI") = "1" Then If strJ <> "" Then strJ = strJ & "," & "現代" Else strJ = "現代" End If End If Response.Write NullRepWSP(strJ) %> 遺跡の 主な時期 <% =NullRepWSP(rs.Fields("ISK_MAIN_JIKI")) %> 主な検出遺構 <% =NullRepWSP(rs.Fields("MAIN_KENS_IKH")) %> 主な出土遺物 <% =NullRepWSP(rs.Fields("MAIN_SYUT_IBT")) %> ">調査履歴　　　　　">ダウンロード　　　　　">関連報告書 　 <% If Session("SEARCH_TYPE") <> "ZENBUN" Then %> "> <% Else %> "> <% End If %>