<% 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") = "A"
'検索方法
Session("SEARCH_TYPE") = "MONYO"
'リターンページ
Session("RETURN_PAGE") = "monyo.asp"
%>
鹿児島県埋蔵文化財情報データベース
