<% 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") = "IBUTSU" 'リターンページ Session("RETURN_PAGE") = "input_ibutsu_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 Artifact Name Artifact Category Era <% 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 = '遺物の時期1(英)'", 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 %> Period <% 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 = '遺物の時期2(英)'", 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 %> Layer Artifact Style Artifact Type Artifact Kind Artifact Form Artifact Details