<% 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_IKHOU WHERE IKHOU_CH_ID = '"& strKey &"'" Set cn = Server.CreateObject("ADODB.Connection") cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Session("MDB_A") & ";" 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") %>

<% If RecCount > 0 Then %> <% Else %> Not Found. <% End If %> Site Name <% =InsCrLf(NullRepWSP(rs.Fields("ISEKI_NM_EG")),40) %> <% 'ŽÊ�^ 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 %> Site Location <% 'Dim strSYOZAI 'strSYOZAI = NullRepWSP(rs.Fields("SYOZAI_TDF_EN")) & NullRepWSP(rs.Fields("SYOZAI_CITY_EN")) & NullRepWSP(rs.Fields("SYOZAI_OAZA_EN")) 'Response.Write InsCrLf(strSYOZAI,40) Dim strAddr strAddr = rs.Fields("SYOZAI_OAZA_EN") & ", " & rs.Fields("SYOZAI_CITY_EN") & ", " & rs.Fields("SYOZAI_TDF_EN") Response.Write InsCrLf(strAddr,40) %> Feature ID <% =InsCrLf(NullRepWSP(rs.Fields("IKHOU_CH_ID")),40) %> Era <% Dim strJ If rs.Fields("J_SEKKI") = "1" Then strJ = "Paleolithic Era" End If If rs.Fields("J_JYOMON") = "1" Then If strJ <> "" Then strJ = strJ & "," & "Jomon Era" Else strJ = "Jomon Era" End If End If If rs.Fields("J_YAYOI") = "1" Then If strJ <> "" Then strJ = strJ & "," & "Yayoi Era" Else strJ = "Yayoi Era" End If End If If rs.Fields("J_KOFUN") = "1" Then If strJ <> "" Then strJ = strJ & "," & "Kohun Era" Else strJ = "Kohun Era" End If End If If rs.Fields("J_KODAI") = "1" Then If strJ <> "" Then strJ = strJ & "," & "Kodai Era" Else strJ = "Kodai Era" End If End If If rs.Fields("J_TYUSEI") = "1" Then If strJ <> "" Then strJ = strJ & "," & "Chusei Era" Else strJ = "Chusei Era" End If End If If rs.Fields("J_KINSEI") = "1" Then If strJ <> "" Then strJ = strJ & "," & "Kinsei Era" Else strJ = "Kinsei Era" End If End If If rs.Fields("J_KINDAI") = "1" Then If strJ <> "" Then strJ = strJ & "," & "Kindai Era" Else strJ = "Kindai Era" End If End If If rs.Fields("J_GENDAI") = "1" Then If strJ <> "" Then strJ = strJ & "," & "Gendai Era" Else strJ = "Gendai Era" End If End If Response.Write InsCrLf(NullRepWSP(strJ),40) %> Contained Facilities <% =InsCrLf(NullRepWSP(rs.Fields("IKHOU_SHIST_EN")),40) %> Detected Layer <% =InsCrLf(NullRepWSP(rs.Fields("KEN_SOUI_EN")),40) %> <% '•ñ��‘}�} 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 %> Contained Artifacts <% =InsCrLf(NullRepWSP(rs.Fields("KYOHAN_IB_EN")),40) %> Main Period <% =InsCrLf(NullRepWSP(rs.Fields("IK_MN_JIKI_EN")),40) %> Main Date <% =InsCrLf(NullRepWSP(rs.Fields("IK_NENDAI_E")),40) %> Feature Type <% =InsCrLf(NullRepWSP(rs.Fields("IK_SBT_EN")),40) %> Feature Kind <% =InsCrLf(NullRepWSP(rs.Fields("IK_SYU_EN")),60) %> Feature Shape <% =InsCrLf(NullRepWSP(rs.Fields("IK_PLAN_EN")),60) %> Feature Details <% =InsCrLf(NullRepWSP(rs.Fields("IK_BUN_EN")),60) %> Feature Name <% =InsCrLf(NullRepWSP(rs.Fields("IKHOU_CH_EN")),60) %> Description <% =InsCrLf(NullRepWSP(rs.Fields("SETSUMEI_EN")),60) %> <% If Session("SEARCH_TYPE") <> "ZENBUN" Then %> "> <% Else %> "> <% End If %>