<% 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 %> <% '初・中・上級の区分 Session("LEVEL") = "B" '検索方法 Session("SEARCH_TYPE") = "ISEKI" 'リターンページ Session("RETURN_PAGE") = "input_iseki_b.asp" %>

Please input words and phrases into the input column, and push a "Search" button. The example of an input should push the of the input column right. Site Name Site Location (Prefecture) Kagoshima Prefecture Site Location (Municipality) Site Location (Altitude) under 0 m 1 - 100 m 101 - 200 m 201 - 300 m 301 - 400 m 401 - 500 m 501 - 600 m 601 - 700 m 701 - 800 m 801 - 900 m 901 - 1000 m over 1001 m Site Type <% Dim cn, rs 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 "SELECT * FROM HELP WHERE ITEMNM = '種別(英)'", cn, 1, 1 If rs.PageCount > 0 Then Do Until rs.EOF Response.Write "" Response.Write rs.Fields("CONTENTS") Response.Write "" rs.MoveNext Loop End If '破棄 cn.Close Set rs = Nothing %> Era Paleolithic Era Jomon Era Yayoi Era Kohun Era Kodai Era Chusei Era Kinsei Era Kindai Era Gendai Era Main Period Main Features Main Artifacts