<% 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
%>
<!-- #include file="../include/func.inc" -->
<%

	'全文検索用
	Dim getTmp
	Dim getKWD
	Dim COUNT_KWD
	Dim i

	'遺跡・遺構・遺物項目
	Dim getISEKI_CH_ID
	Dim getISEKI_CH_NM
	Dim getISEKI_NM_EG
	Dim getISEKI_NM_YM
	Dim getSYOZAI_TDF
	Dim getSYOZAI_TDF_EN
	Dim getSYOZAI_TDF_YM
	Dim getSYOZAI_CITY_NM
	Dim getSYOZAI_CITY_EN
	Dim getSYOZAI_CITY_YM
	Dim getSYOZAI_OAZA
	Dim getSYOZAI_OAZA_NM
	Dim getSYOZAI_OAZA_EN
	Dim getSYOZAI_OAZA_YM
	Dim getAREA_NM
	Dim getIDO_EN
	Dim getKEIDO_EN
	Dim getHYOKO_EN
	Dim getCHIKEI
	Dim getSYUBETSU
	Dim getSYUBETSU_EN
	Dim getSEKKI
	Dim getJOUMON
	Dim getYAYOI
	Dim getKOFUN
	Dim getKODAI
	Dim getTYUSEI
	Dim getKINSEI
	Dim getKINDAI
	Dim getGENDAI
	Dim getISK_MAIN_JIKI
	Dim getISK_MAIN_JIKI_EN
	Dim getMAIN_NENDAI
	Dim getSETSUMEI
	Dim getSETSUMEI_EN
	Dim getMAIN_KENS_IKH
	Dim getMAIN_KENS_IKH_EN
	Dim getMAIN_SYUT_IBT
	Dim getMAIN_SYUT_IBT_EN
	Dim getKENSAKU_KEY
	Dim getTENJI_KEYW
	Dim getKOUKAI_G
	Dim getISK_GN_NM
	Dim getISK_DTYO_1
	Dim getISK_DTYO_2
	Dim getISK_DTYO_3
	Dim getISK_DTYO_4
	Dim getISK_DTYO_5

	Dim getIKHOU_CH_ID
	Dim getKENSUBU_KEY
	Dim getJ_SEKKI
	Dim getJ_JYOMON
	Dim getJ_YAYOI
	Dim getJ_KOFUN
	Dim getJ_KODAI
	Dim getJ_TYUSEI
	Dim getJ_KINSEI
	Dim getJ_KINDAI
	Dim getJ_GENDAI
	Dim getIKHOU_SHIST
	Dim getIKHOU_SHIST_EN
	Dim getKEN_SOUI_NM
	Dim getKEN_SOUI_EN
	Dim getKYOHAN_IB
	Dim getKYOHAN_IB_EN
	Dim getIK_MN_JIKI_NM
	Dim getIK_MN_JIKI_EN
	Dim getIK_NENDAI_E
	Dim getIK_SBT_NM
	Dim getIK_SBT_EN
	Dim getIK_SYU_NM
	Dim getIK_SYU_EN
	Dim getIK_PLAN_NM
	Dim getIK_PLAN_EN
	Dim getIK_BUN_NM
	Dim getIK_BUN_EN
	Dim getREC_JYOTAI
	Dim getTENJI_KEY
	Dim getKOUKAI_GP
	Dim getIKHOU_CH_NM
	Dim getIKHOU_CH_EN
	Dim getIKHOU_CH_YM
	Dim getSETSUMEI_NM
	Dim getYOUTO
	Dim getHK_BUNRUI1
	Dim getHK_BUNRUI2
	Dim getHK_BUNRUI3
	Dim getHK_BUNRUI4
	Dim getHK_BUNRUI5
	Dim getCHIKU_NM
	Dim getGRID_NM
	Dim getMAIDO
	Dim getTOKUTYOU
	Dim getIK_GUN_NM

	Dim getIBUTU_CH_ID
	Dim getSHI_KBN3
	Dim getBUNRUI1_NM
	Dim getBUNRUI2_NM
	Dim getBUNRUI3_NM
	Dim getBUNRUI4_NM
	Dim getBUNRUI5_NM
	Dim getIBUTSU_CH_NM
	Dim getIBUTSU_CH_YM
	Dim getIB_SYOZO_NM
	Dim getSHI_KBN_EN
	Dim getSOUI_NM
	Dim getSOUI_EN
	Dim getIB_JIKI1_NM
	Dim getIB_JIKI2_NM
	Dim getIB_JIKI1_EN
	Dim getIB_JIKI2_EN
	Dim getIB_NENDAI
	Dim getBUNRUI1_EN
	Dim getBUNRUI2_EN
	Dim getBUNRUI3_EN
	Dim getBUNRUI4_EN
	Dim getBUNRUI5_EN
	Dim getIBUTSU_CH_EN
	Dim getKATACHI
	Dim getBUI_PLACE

	Dim strSQL
	Dim strWhere
	Dim strWhere2
	Dim iMuse
	
	Dim strKey

	'iMuse
	Set iMuse = Server.CreateObject("iMuse.Functions")

	Select Case Session("LEVEL")
		Case "A"	'初級
			Select Case Session("SEARCH_TYPE")
					Case "YOUTO"	'用途で検索
					
						strKey = Request.ServerVariables("QUERY_STRING")
						
						Select Case strKey
							Case "A"
								strSQL = "SELECT * FROM YOUTO WHERE CONTENTS LIKE '%狩猟%' ORDER BY KBN,ID"
							Case "B"
								strSQL = "SELECT * FROM YOUTO WHERE CONTENTS LIKE '%漁労%' ORDER BY KBN,ID"
							Case "C"
								strSQL = "SELECT * FROM YOUTO WHERE CONTENTS LIKE '%採集%' ORDER BY KBN,ID"
							Case "D"
								strSQL = "SELECT * FROM YOUTO WHERE CONTENTS LIKE '%農耕%' OR CONTENTS LIKE '%栽培%' ORDER BY KBN,ID"
							Case "E"
								strSQL = "SELECT * FROM YOUTO WHERE CONTENTS LIKE '%調理%' OR CONTENTS LIKE '%貯蔵%' OR CONTENTS LIKE '%食事%' ORDER BY KBN,ID"
							Case "F"
								strSQL = "SELECT * FROM YOUTO WHERE CONTENTS LIKE '%生産%' ORDER BY KBN,ID"
							Case "G"
								strSQL = "SELECT * FROM YOUTO WHERE CONTENTS LIKE '%加工%' ORDER BY KBN,ID"
							Case "H"
								strSQL = "SELECT * FROM YOUTO WHERE CONTENTS LIKE '%着装%' ORDER BY KBN,ID"
							Case "I"
								strSQL = "SELECT * FROM YOUTO WHERE CONTENTS LIKE '%居住%' ORDER BY KBN,ID"
							Case "J"
								strSQL = "SELECT * FROM YOUTO WHERE CONTENTS LIKE '%祭祀%' OR CONTENTS LIKE '%葬送%' ORDER BY KBN,ID"
							Case "K"
								strSQL = "SELECT * FROM YOUTO WHERE CONTENTS LIKE '%戦闘%' OR CONTENTS LIKE '%防御%' ORDER BY KBN,ID"
							Case "L"
								strSQL = "SELECT * FROM YOUTO WHERE CONTENTS LIKE '%不明%' ORDER BY KBN,ID"
						End Select
					
					Case "JIDAI"	'時代で検索
					
						strKey = Request.ServerVariables("QUERY_STRING")
						
						Select Case strKey
							Case "A"
								strSQL = "SELECT * FROM JIDAI WHERE CONTENTS LIKE '%旧石器%' ORDER BY KBN,ID"
							Case "B"
								strSQL = "SELECT * FROM JIDAI WHERE CONTENTS LIKE '%縄文%' ORDER BY KBN,ID"
							Case "C"
								strSQL = "SELECT * FROM JIDAI WHERE CONTENTS LIKE '%弥生%' ORDER BY KBN,ID"
							Case "D"
								strSQL = "SELECT * FROM JIDAI WHERE CONTENTS LIKE '%古墳%' ORDER BY KBN,ID"
							Case "E"
								strSQL = "SELECT * FROM JIDAI WHERE CONTENTS LIKE '%古代%' ORDER BY KBN,ID"
							Case "F"
								strSQL = "SELECT * FROM JIDAI WHERE CONTENTS LIKE '%中世%' ORDER BY KBN,ID"
							Case "G"
								strSQL = "SELECT * FROM JIDAI WHERE CONTENTS LIKE '%近世%' ORDER BY KBN,ID"
							Case "H"
								strSQL = "SELECT * FROM JIDAI WHERE CONTENTS LIKE '%近代%' OR CONTENTS LIKE '%現代%' ORDER BY KBN,ID"
							'Case "I"
								'strSQL = "SELECT * FROM JIDAI WHERE CONTENTS LIKE '%現代%' ORDER BY KBN,ID"
						End Select

					Case "CHIIKI"	'地域で検索
					
						strKey = Request.ServerVariables("QUERY_STRING")
						
						Select Case strKey
							Case "A"
								strSQL = "SELECT * FROM CHIIKI WHERE CONTENTS = '南薩エリア' ORDER BY KBN,ID"
							Case "B"
								strSQL = "SELECT * FROM CHIIKI WHERE CONTENTS = '指宿エリア' ORDER BY KBN,ID"
							Case "C"
								strSQL = "SELECT * FROM CHIIKI WHERE CONTENTS = '鹿児島エリア' ORDER BY KBN,ID"
							Case "D"
								strSQL = "SELECT * FROM CHIIKI WHERE CONTENTS = '川薩エリア' ORDER BY KBN,ID"
							Case "E"
								strSQL = "SELECT * FROM CHIIKI WHERE CONTENTS = '出水エリア' ORDER BY KBN,ID"
							Case "F"
								strSQL = "SELECT * FROM CHIIKI WHERE CONTENTS = '姶良・伊佐エリア' ORDER BY KBN,ID"
							Case "G"
								strSQL = "SELECT * FROM CHIIKI WHERE CONTENTS = '曽於エリア' ORDER BY KBN,ID"
							Case "H"
								strSQL = "SELECT * FROM CHIIKI WHERE CONTENTS = '肝属エリア' ORDER BY KBN,ID"
							Case "I"
								strSQL = "SELECT * FROM CHIIKI WHERE CONTENTS = '熊毛エリア' ORDER BY KBN,ID"
							Case "J"
								strSQL = "SELECT * FROM CHIIKI WHERE CONTENTS = 'トカラエリア' ORDER BY KBN,ID"
							Case "K"
								strSQL = "SELECT * FROM CHIIKI WHERE CONTENTS = '大島エリア' ORDER BY KBN,ID"
						End Select

					Case "KATACHI"	'形で検索
					
						strKey = Request.ServerVariables("QUERY_STRING")
						
						Select Case strKey
							Case "A"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE KATACHI LIKE '%A%' ORDER BY IBUTU_CH_ID"
							Case "B"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE KATACHI LIKE '%B%' ORDER BY IBUTU_CH_ID"
							Case "C"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE KATACHI LIKE '%C%' ORDER BY IBUTU_CH_ID"
							Case "D"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE KATACHI LIKE '%D%' ORDER BY IBUTU_CH_ID"
							Case "E"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE KATACHI LIKE '%E%' ORDER BY IBUTU_CH_ID"
							Case "F"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE KATACHI LIKE '%F%' ORDER BY IBUTU_CH_ID"
							Case "G"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE KATACHI LIKE '%G%' ORDER BY IBUTU_CH_ID"
							Case "H"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE KATACHI LIKE '%H%' ORDER BY IBUTU_CH_ID"
							Case "I"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE KATACHI LIKE '%I%' ORDER BY IBUTU_CH_ID"
							Case "J"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE KATACHI LIKE '%J%' ORDER BY IBUTU_CH_ID"
							Case "K"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE KATACHI LIKE '%K%' ORDER BY IBUTU_CH_ID"
							Case "L"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE KATACHI LIKE '%L%' ORDER BY IBUTU_CH_ID"
						End Select

					Case "KISYU"	'器種で検索
					
						strKey = Request.ServerVariables("QUERY_STRING")
						
						Select Case strKey
							Case "A"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE IB_JIKI1_NM = '縄文時代' AND (SHI_KBN3 = '土器' OR SHI_KBN3 = '土製品') ORDER BY IBUTU_CH_ID"
							Case "B"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE IB_JIKI1_NM = '弥生時代' AND (SHI_KBN3 = '土器' OR SHI_KBN3 = '土製品') ORDER BY IBUTU_CH_ID"
							Case "C"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE IB_JIKI1_NM = '古墳時代' AND (SHI_KBN3 = '土器' OR SHI_KBN3 = '土製品') ORDER BY IBUTU_CH_ID"
							Case "D"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE (IB_JIKI1_NM = '古代' OR IB_JIKI1_NM = '中世') AND (SHI_KBN3 = '土器' OR SHI_KBN3 = '土製品' OR SHI_KBN3 = '陶磁器') ORDER BY IBUTU_CH_ID"
							Case "E"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE IB_JIKI1_NM = '近世' AND (SHI_KBN3 = '土器' OR SHI_KBN3 = '土製品' OR SHI_KBN3 = '陶磁器') ORDER BY IBUTU_CH_ID"
							Case "F"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE IB_JIKI1_NM = '旧石器時代' AND (SHI_KBN3 = '石器' OR SHI_KBN3 = '石製品') ORDER BY IBUTU_CH_ID"
							Case "G"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE IB_JIKI1_NM = '縄文時代' AND (SHI_KBN3 = '石器' OR SHI_KBN3 = '石製品') ORDER BY IBUTU_CH_ID"
							Case "H"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE IB_JIKI1_NM = '弥生時代' AND (SHI_KBN3 = '石器' OR SHI_KBN3 = '石製品') ORDER BY IBUTU_CH_ID"
							Case "I"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE SHI_KBN3 = '金属器' OR SHI_KBN3 = '金属製品' ORDER BY IBUTU_CH_ID"
							Case "J"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE SHI_KBN3 = '木製品' ORDER BY IBUTU_CH_ID"
							Case "K"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE SHI_KBN3 = '骨角器' OR SHI_KBN3 = '貝製品' ORDER BY IBUTU_CH_ID"
							Case "L"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE SHI_KBN3 = '自然遺物' ORDER BY IBUTU_CH_ID"
						End Select

					Case "MONYO"	'文様で検索
					
						strKey = Request.ServerVariables("QUERY_STRING")
						
						Select Case strKey
							Case "001"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE IB_JIKI1_NM = '縄文時代' AND BUNRUI2_NM LIKE '%隆帯%' ORDER BY IBUTU_CH_ID"
							Case "002"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE IB_JIKI1_NM = '縄文時代' AND BUNRUI2_NM LIKE '%前平%' ORDER BY IBUTU_CH_ID"
							Case "003"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE IB_JIKI1_NM = '縄文時代' AND BUNRUI2_NM LIKE '%吉田%' ORDER BY IBUTU_CH_ID"
							Case "004"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE IB_JIKI1_NM = '縄文時代' AND BUNRUI2_NM LIKE '%石坂%' ORDER BY IBUTU_CH_ID"
							Case "005"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE IB_JIKI1_NM = '縄文時代' AND BUNRUI2_NM LIKE '%押型%' ORDER BY IBUTU_CH_ID"
							Case "006"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE IB_JIKI1_NM = '縄文時代' AND (BUNRUI2_NM LIKE '%桑ノ丸%' OR BUNRUI2_NM LIKE '%下剥峯%') ORDER BY IBUTU_CH_ID"
							Case "007"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE IB_JIKI1_NM = '縄文時代' AND (BUNRUI2_NM LIKE '%平栫%' OR BUNRUI2_NM LIKE '%天道ヶ尾%') ORDER BY IBUTU_CH_ID"
							Case "008"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE IB_JIKI1_NM = '縄文時代' AND BUNRUI2_NM LIKE '%塞ノ神%' ORDER BY IBUTU_CH_ID"
							Case "009"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE IB_JIKI1_NM = '縄文時代' AND BUNRUI2_NM LIKE '%轟B%' ORDER BY IBUTU_CH_ID"
							Case "010"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE IB_JIKI1_NM = '縄文時代' AND BUNRUI2_NM LIKE '%曽畑%' ORDER BY IBUTU_CH_ID"
							Case "011"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE IB_JIKI1_NM = '縄文時代' AND BUNRUI2_NM LIKE '%深浦%' ORDER BY IBUTU_CH_ID"
							Case "012"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE IB_JIKI1_NM = '縄文時代' AND BUNRUI2_NM LIKE '%春日%' ORDER BY IBUTU_CH_ID"
							Case "013"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE IB_JIKI1_NM = '縄文時代' AND BUNRUI2_NM LIKE '%阿高%' ORDER BY IBUTU_CH_ID"
							Case "014"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE IB_JIKI1_NM = '縄文時代' AND BUNRUI2_NM LIKE '%南福寺%' ORDER BY IBUTU_CH_ID"
							Case "015"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE IB_JIKI1_NM = '縄文時代' AND BUNRUI2_NM LIKE '%指宿%' ORDER BY IBUTU_CH_ID"
							Case "016"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE IB_JIKI1_NM = '縄文時代' AND BUNRUI2_NM LIKE '%市来%' ORDER BY IBUTU_CH_ID"
							Case "017"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE IB_JIKI1_NM = '縄文時代' AND BUNRUI2_NM LIKE '%丸尾%' ORDER BY IBUTU_CH_ID"
							Case "018"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE IB_JIKI1_NM = '縄文時代' AND BUNRUI2_NM LIKE '%西平%' ORDER BY IBUTU_CH_ID"
							Case "019"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE IB_JIKI1_NM = '縄文時代' AND BUNRUI2_NM LIKE '%入佐%' ORDER BY IBUTU_CH_ID"
							Case "020"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE IB_JIKI1_NM = '縄文時代' AND BUNRUI2_NM LIKE '%上加世田%' ORDER BY IBUTU_CH_ID"
							Case "021"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE IB_JIKI1_NM = '縄文時代' AND BUNRUI2_NM LIKE '%黒川%' ORDER BY IBUTU_CH_ID"
							Case "022"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE IB_JIKI1_NM = '縄文時代' AND BUNRUI2_NM LIKE '%刻目突帯%' ORDER BY IBUTU_CH_ID"
							Case "023"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE BUNRUI2_NM LIKE '%面縄東洞%' ORDER BY IBUTU_CH_ID"
							Case "024"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE BUNRUI2_NM LIKE '%嘉徳1A%' ORDER BY IBUTU_CH_ID"
							Case "025"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE BUNRUI2_NM LIKE '%宇宿上層%' ORDER BY IBUTU_CH_ID"
							Case "026"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE SHI_KBN3 = '土器' AND IB_JIKI1_NM = '弥生時代' AND IB_JIKI2_NM = '前期' ORDER BY IBUTU_CH_ID"
							Case "027"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE SHI_KBN3 = '土器' AND IB_JIKI1_NM = '弥生時代' AND IB_JIKI2_NM = '中期' ORDER BY IBUTU_CH_ID"
							Case "028"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE SHI_KBN3 = '土器' AND IB_JIKI1_NM = '弥生時代' AND IB_JIKI2_NM = '後期' ORDER BY IBUTU_CH_ID"
							Case "029"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE BUNRUI2_NM LIKE '%成川%' ORDER BY IBUTU_CH_ID"
							Case "030"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE BUNRUI2_NM LIKE '%土師%' ORDER BY IBUTU_CH_ID"
							Case "031"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE BUNRUI2_NM LIKE '%須恵%' ORDER BY IBUTU_CH_ID"
							Case "032"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE BUNRUI2_NM LIKE '%青磁%' OR BUNRUI2_NM LIKE '%白磁%' OR BUNRUI2_NM LIKE '%精白磁%' ORDER BY IBUTU_CH_ID"
							Case "033"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE BUNRUI2_NM LIKE '%染付%' ORDER BY IBUTU_CH_ID"
							Case "034"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE SHI_KBN3 = '陶器' AND (BUNRUI3_NM LIKE '%常滑%' OR BUNRUI3_NM LIKE '%備前%') ORDER BY IBUTU_CH_ID"
							Case "035"
								strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU_A WHERE SHI_KBN3 = '陶器' AND BUNRUI3_NM LIKE '%薩摩%' ORDER BY IBUTU_CH_ID"
						End Select


			End Select
		Case "B"	'中級
			Select Case Session("SEARCH_TYPE")
					Case "ISEKI"	'遺跡（項目検索）

						getISEKI_CH_NM = quoteChg(Request.Form("inpISEKI_CH_NM"))
						getSYOZAI_TDF = quoteChg(Request.Form("inpSYOZAI_TDF"))
						getSYOZAI_CITY_NM = quoteChg(Request.Form("inpSYOZAI_CITY_NM"))
						getSYOZAI_OAZA = quoteChg(Request.Form("inpSYOZAI_OAZA"))
						getHYOKO_EN = quoteChg(Request.Form("inpHYOKO_EN"))
						getCHIKEI = quoteChg(Request.Form("inpCHIKEI"))
						getSYUBETSU = quoteChg(Request.Form("inpSYUBETSU"))
						getSEKKI = quoteChg(Request.Form("inpSEKKI"))
						getJOUMON = quoteChg(Request.Form("inpJOUMON"))
						getYAYOI = quoteChg(Request.Form("inpYAYOI"))
						getKOFUN = quoteChg(Request.Form("inpKOFUN"))
						getKODAI = quoteChg(Request.Form("inpKODAI"))
						getTYUSEI = quoteChg(Request.Form("inpTYUSEI"))
						getKINSEI = quoteChg(Request.Form("inpKINSEI"))
						getKINDAI = quoteChg(Request.Form("inpKINDAI"))
						getGENDAI = quoteChg(Request.Form("inpGENDAI"))
						getISK_MAIN_JIKI = quoteChg(Request.Form("inpISK_MAIN_JIKI"))
						getMAIN_KENS_IKH = quoteChg(Request.Form("inpMAIN_KENS_IKH"))
						getMAIN_SYUT_IBT = quoteChg(Request.Form("inpMAIN_SYUT_IBT"))


						strSQL = "SELECT ISEKI_CH_ID,ISEKI_CH_NM FROM K_ISEKI"
						strWhere = ""

						'地形（完全一致）
						If getCHIKEI <> "99" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND CHIKEI = '"& getCHIKEI & "'"
							Else
								strWhere = "CHIKEI = '"& getCHIKEI & "'"
							End If
						End If
						'種別（完全一致）
						If getSYUBETSU <> "99" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND SYUBETSU = '"& getSYUBETSU & "'"
							Else
								strWhere = "SYUBETSU = '"& getSYUBETSU & "'"
							End If
						End If
						'旧石器（完全一致）
						If getSEKKI <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND SEKKI = '"& getSEKKI & "'"
							Else
								strWhere = "SEKKI = '"& getSEKKI & "'"
							End If
						End If
						'縄文（完全一致）
						If getJOUMON <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND JOUMON = '"& getJOUMON & "'"
							Else
								strWhere = "JOUMON = '"& getJOUMON & "'"
							End If
						End If
						'弥生（完全一致）
						If getYAYOI <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND YAYOI = '"& getYAYOI & "'"
							Else
								strWhere = "YAYOI = '"& getYAYOI & "'"
							End If
						End If
						'古墳（完全一致）
						If getKOFUN <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND KOFUN = '"& getKOFUN & "'"
							Else
								strWhere = "KOFUN = '"& getKOFUN & "'"
							End If
						End If
						'古代（完全一致）
						If getKODAI <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND KODAI = '"& getKODAI & "'"
							Else
								strWhere = "KODAI = '"& getKODAI & "'"
							End If
						End If
						'中世（完全一致）
						If getTYUSEI <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND TYUSEI = '"& getTYUSEI & "'"
							Else
								strWhere = "TYUSEI = '"& getTYUSEI & "'"
							End If
						End If
						'近世（完全一致）
						If getKINSEI <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND KINSEI = '"& getKINSEI & "'"
							Else
								strWhere = "KINSEI = '"& getKINSEI & "'"
							End If
						End If
						'近代（完全一致）
						If getKINDAI <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND KINDAI = '"& getKINDAI & "'"
							Else
								strWhere = "KINDAI = '"& getKINDAI & "'"
							End If
						End If
						'現代（完全一致）
						If getGENDAI <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND GENDAI = '"& getGENDAI & "'"
							Else
								strWhere = "GENDAI = '"& getGENDAI & "'"
							End If
						End If
						'標高（範囲指定）
						If getHYOKO_EN <> "99" Then
							Select Case getHYOKO_EN
								Case "0"
									If strWhere <> "" Then
										strWhere = strWhere & " AND HYOKO_EN < 0"
									Else
										strWhere = "HYOKO_EN < 0"
									End If
								Case "1"
									If strWhere <> "" Then
										strWhere = strWhere & " AND (HYOKO_EN >= 1 AND HYOKO_EN <= 100)"
									Else
										strWhere = "(HYOKO_EN >= 1 AND HYOKO_EN <= 100)"
									End If
								Case "2"
									If strWhere <> "" Then
										strWhere = strWhere & " AND (HYOKO_EN >= 101 AND HYOKO_EN <= 200)"
									Else
										strWhere = "(HYOKO_EN >= 101 AND HYOKO_EN <= 200)"
									End If
								Case "3"
									If strWhere <> "" Then
										strWhere = strWhere & " AND (HYOKO_EN >= 201 AND HYOKO_EN <= 300)"
									Else
										strWhere = "(HYOKO_EN >= 201 AND HYOKO_EN <= 300)"
									End If
								Case "4"
									If strWhere <> "" Then
										strWhere = strWhere & " AND (HYOKO_EN >= 301 AND HYOKO_EN <= 400)"
									Else
										strWhere = "(HYOKO_EN >= 301 AND HYOKO_EN <= 400)"
									End If
								Case "5"
									If strWhere <> "" Then
										strWhere = strWhere & " AND (HYOKO_EN >= 401 AND HYOKO_EN <= 500)"
									Else
										strWhere = "(HYOKO_EN >= 401 AND HYOKO_EN <= 500)"
									End If
								Case "6"
									If strWhere <> "" Then
										strWhere = strWhere & " AND (HYOKO_EN >= 501 AND HYOKO_EN <= 600)"
									Else
										strWhere = "(HYOKO_EN >= 501 AND HYOKO_EN <= 600)"
									End If
								Case "7"
									If strWhere <> "" Then
										strWhere = strWhere & " AND (HYOKO_EN >= 601 AND HYOKO_EN <= 700)"
									Else
										strWhere = "(HYOKO_EN >= 601 AND HYOKO_EN <= 700)"
									End If
								Case "8"
									If strWhere <> "" Then
										strWhere = strWhere & " AND (HYOKO_EN >= 701 AND HYOKO_EN <= 800)"
									Else
										strWhere = "(HYOKO_EN >= 701 AND HYOKO_EN <= 800)"
									End If
								Case "9"
									If strWhere <> "" Then
										strWhere = strWhere & " AND (HYOKO_EN >= 801 AND HYOKO_EN <= 900)"
									Else
										strWhere = "(HYOKO_EN >= 801 AND HYOKO_EN <= 900)"
									End If
								Case "10"
									If strWhere <> "" Then
										strWhere = strWhere & " AND (HYOKO_EN >= 901 AND HYOKO_EN <= 1000)"
									Else
										strWhere = "(HYOKO_EN >= 901 AND HYOKO_EN <= 1000)"
									End If
								Case "11"
									If strWhere <> "" Then
										strWhere = strWhere & " AND HYOKO_EN >= 1001"
									Else
										strWhere = "HYOKO_EN >= 1001"
									End If
							End Select
						End If
						'遺跡の主な時期（中間一致）
						If getISK_MAIN_JIKI <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND ISK_MAIN_JIKI LIKE '%"& getISK_MAIN_JIKI & "%'"
							Else
								strWhere = "ISK_MAIN_JIKI LIKE '%"& getISK_MAIN_JIKI & "%'"
							End If
						End If
						'主な検出遺構（中間一致）
						If getMAIN_KENS_IKH <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND MAIN_KENS_IKH LIKE '%"& getMAIN_KENS_IKH & "%'"
							Else
								strWhere = "MAIN_KENS_IKH LIKE '%"& getMAIN_KENS_IKH & "%'"
							End If
						End If
						'主な出土遺物（中間一致）
						If getMAIN_SYUT_IBT <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND MAIN_SYUT_IBT LIKE '%"& getMAIN_SYUT_IBT & "%'"
							Else
								strWhere = "MAIN_SYUT_IBT LIKE '%"& getMAIN_SYUT_IBT & "%'"
							End If
						End If
						'遺跡名（中間一致）
						If getISEKI_CH_NM <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND ISEKI_CH_NM LIKE '%"& getISEKI_CH_NM & "%'"
							Else
								strWhere = "ISEKI_CH_NM LIKE '%"& getISEKI_CH_NM & "%'"
							End If
						End If
						''所在地都道府県名（固定）
						'If getSYOZAI_TDF <> "" Then
							'If strWhere <> "" Then
								'strWhere = strWhere & " AND SYOZAI_TDF = '"& getSYOZAI_TDF & "'"
							'Else
								'strWhere = "SYOZAI_TDF = '"& getSYOZAI_TDF & "'"
							'End If
						'End If
						'所在地市区町村名（中間一致）
						If getSYOZAI_CITY_NM <> "99" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND SYOZAI_CITY_NM LIKE '%"& getSYOZAI_CITY_NM & "%'"
							Else
								strWhere = "SYOZAI_CITY_NM LIKE '%"& getSYOZAI_CITY_NM & "%'"
							End If
						End If
						'所在地街区大字名（中間一致）
						If getSYOZAI_OAZA <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND SYOZAI_OAZA LIKE '%"& getSYOZAI_OAZA & "%'"
							Else
								strWhere = "SYOZAI_OAZA LIKE '%"& getSYOZAI_OAZA & "%'"
							End If
						End If

						If strWhere <> "" Then
							strSQL = strSQL & " WHERE " & strWhere
						End If

						strSQL = strSQL & " ORDER BY ISEKI_CH_ID"

					Case "IKHOU"	'遺構（項目検索）
						getISEKI_CH_NM = quoteChg(Request.Form("inpISEKI_CH_NM"))
						getAREA_NM = quoteChg(Request.Form("inpAREA_NM"))
						getSEKKI = quoteChg(Request.Form("inpSEKKI"))
						getJOUMON = quoteChg(Request.Form("inpJOUMON"))
						getYAYOI = quoteChg(Request.Form("inpYAYOI"))
						getKOFUN = quoteChg(Request.Form("inpKOFUN"))
						getKODAI = quoteChg(Request.Form("inpKODAI"))
						getTYUSEI = quoteChg(Request.Form("inpTYUSEI"))
						getKINSEI = quoteChg(Request.Form("inpKINSEI"))
						getKINDAI = quoteChg(Request.Form("inpKINDAI"))
						getGENDAI = quoteChg(Request.Form("inpGENDAI"))
						getIKHOU_SHIST = quoteChg(Request.Form("inpIKHOU_SHIST"))
						getKEN_SOUI_NM = quoteChg(Request.Form("inpKEN_SOUI_NM"))
						getKYOHAN_IB = quoteChg(Request.Form("inpKYOHAN_IB"))
						getIK_MN_JIKI_NM = quoteChg(Request.Form("inpIK_MN_JIKI_NM"))
						getIK_SBT_NM = quoteChg(Request.Form("inpIK_SBT_NM"))
						getIK_SYU_NM = quoteChg(Request.Form("inpIK_SYU_NM"))
						getIK_PLAN_NM = quoteChg(Request.Form("inpIK_PLAN_NM"))
						getIK_BUN_NM = quoteChg(Request.Form("inpIK_BUN_NM"))
						getIKHOU_CH_NM = quoteChg(Request.Form("inpIKHOU_CH_NM"))

						strSQL = "SELECT IKHOU_CH_ID,IKHOU_CH_NM,ISEKI_CH_NM FROM V_K_IKHOU"
						strWhere = ""

						'エリア名（完全一致）
						If getAREA_NM <> "99" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND AREA_NM = '"& getAREA_NM & "'"
							Else
								strWhere = "AREA_NM = '"& getAREA_NM & "'"
							End If
						End If
						'旧石器（完全一致）
						If getSEKKI <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND J_SEKKI = '"& getSEKKI & "'"
							Else
								strWhere = "J_SEKKI = '"& getSEKKI & "'"
							End If
						End If
						'縄文（完全一致）
						If getJOUMON <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND J_JYOMON = '"& getJOUMON & "'"
							Else
								strWhere = "J_JYOMON = '"& getJOUMON & "'"
							End If
						End If
						'弥生（完全一致）
						If getYAYOI <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND J_YAYOI = '"& getYAYOI & "'"
							Else
								strWhere = "J_YAYOI = '"& getYAYOI & "'"
							End If
						End If
						'古墳（完全一致）
						If getKOFUN <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND J_KOFUN = '"& getKOFUN & "'"
							Else
								strWhere = "J_KOFUN = '"& getKOFUN & "'"
							End If
						End If
						'古代（完全一致）
						If getKODAI <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND J_KODAI = '"& getKODAI & "'"
							Else
								strWhere = "J_KODAI = '"& getKODAI & "'"
							End If
						End If
						'中世（完全一致）
						If getTYUSEI <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND J_TYUSEI = '"& getTYUSEI & "'"
							Else
								strWhere = "J_TYUSEI = '"& getTYUSEI & "'"
							End If
						End If
						'近世（完全一致）
						If getKINSEI <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND J_KINSEI = '"& getKINSEI & "'"
							Else
								strWhere = "J_KINSEI = '"& getKINSEI & "'"
							End If
						End If
						'近代（完全一致）
						If getKINDAI <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND J_KINDAI = '"& getKINDAI & "'"
							Else
								strWhere = "J_KINDAI = '"& getKINDAI & "'"
							End If
						End If
						'現代（完全一致）
						If getGENDAI <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND J_GENDAI = '"& getGENDAI & "'"
							Else
								strWhere = "J_GENDAI = '"& getGENDAI & "'"
							End If
						End If

						'getIK_SBT_NM
						'遺構の種別（完全一致）
						If getIK_SBT_NM <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND IK_SBT_NM = '"& getIK_SBT_NM & "'"
							Else
								strWhere = "IK_SBT_NM = '"& getIK_SBT_NM & "'"
							End If
						End If

						'getIK_SYU_NM
						'遺構の種類（完全一致）
						If getIK_SYU_NM <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND IK_SYU_NM = '"& getIK_SYU_NM & "'"
							Else
								strWhere = "IK_SYU_NM = '"& getIK_SYU_NM & "'"
							End If
						End If

						'getIK_PLAN_NM
						'遺構のプラン（完全一致）
						If getIK_PLAN_NM <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND IK_PLAN_NM = '"& getIK_PLAN_NM & "'"
							Else
								strWhere = "IK_PLAN_NM = '"& getIK_PLAN_NM & "'"
							End If
						End If

						'getIK_BUN_NM
						'遺構の分類（完全一致）
						If getIK_BUN_NM <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND IK_BUN_NM = '"& getIK_BUN_NM & "'"
							Else
								strWhere = "IK_BUN_NM = '"& getIK_BUN_NM & "'"
							End If
						End If

						'getIKHOU_SHIST
						'遺構内施設等（中間一致）
						If getIKHOU_SHIST <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND IKHOU_SHIST LIKE '%"& getIKHOU_SHIST & "%'"
							Else
								strWhere = "IKHOU_SHIST LIKE '%"& getIKHOU_SHIST & "%'"
							End If
						End If

						'getKEN_SOUI_NM
						'検出層位（中間一致）
						If getKEN_SOUI_NM <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND KEN_SOUI_NM LIKE '%"& getKEN_SOUI_NM & "%'"
							Else
								strWhere = "KEN_SOUI_NM LIKE '%"& getKEN_SOUI_NM & "%'"
							End If
						End If

						'getKYOHAN_IB
						'共伴遺物（中間一致）
						If getKYOHAN_IB <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND KYOHAN_IB LIKE '%"& getKYOHAN_IB & "%'"
							Else
								strWhere = "KYOHAN_IB LIKE '%"& getKYOHAN_IB & "%'"
							End If
						End If

						'getIK_MN_JIKI_NM
						'遺構の主な時期（中間一致）
						If getIK_MN_JIKI_NM <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND IK_MN_JIKI_NM LIKE '%"& getIK_MN_JIKI_NM & "%'"
							Else
								strWhere = "IK_MN_JIKI_NM LIKE '%"& getIK_MN_JIKI_NM & "%'"
							End If
						End If

						'遺跡名（中間一致）
						If getISEKI_CH_NM <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND ISEKI_CH_NM LIKE '%"& getISEKI_CH_NM & "%'"
							Else
								strWhere = "ISEKI_CH_NM LIKE '%"& getISEKI_CH_NM & "%'"
							End If
						End If


						'getIKHOU_CH_NM
						'遺構の名称（中間一致）
						If getIKHOU_CH_NM <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND IKHOU_CH_NM LIKE '%"& getIKHOU_CH_NM & "%'"
							Else
								strWhere = "IKHOU_CH_NM LIKE '%"& getIKHOU_CH_NM & "%'"
							End If
						End If

						If strWhere <> "" Then
							strSQL = strSQL & " WHERE " & strWhere
						End If

						strSQL = strSQL & " ORDER BY IKHOU_CH_ID"

					Case "IBUTSU"	'遺物（項目検索）
						strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU"
						strWhere = ""

						getISEKI_CH_NM = quoteChg(Request.Form("inpISEKI_CH_NM"))
						getAREA_NM = quoteChg(Request.Form("inpAREA_NM"))
						getSHI_KBN3 = quoteChg(Request.Form("inpSHI_KBN3"))
						getBUNRUI1_NM = quoteChg(Request.Form("inpBUNRUI1_NM"))
						getBUNRUI2_NM = quoteChg(Request.Form("inpBUNRUI2_NM"))
						getBUNRUI3_NM = quoteChg(Request.Form("inpBUNRUI3_NM"))
						getBUNRUI4_NM = quoteChg(Request.Form("inpBUNRUI4_NM"))
						getBUNRUI5_NM = quoteChg(Request.Form("inpBUNRUI5_NM"))
						getIBUTSU_CH_NM = quoteChg(Request.Form("inpIBUTSU_CH_NM"))
						getIB_SYOZO_NM = quoteChg(Request.Form("inpIB_SYOZO_NM"))
						getSOUI_NM = quoteChg(Request.Form("inpSOUI_NM"))
						getIB_JIKI1_NM = quoteChg(Request.Form("inpIB_JIKI1_NM"))
						getIB_JIKI2_NM = quoteChg(Request.Form("inpIB_JIKI2_NM"))


						'エリア名（完全一致）
						If getAREA_NM <> "99" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND AREA_NM = '"& getAREA_NM & "'"
							Else
								strWhere = "AREA_NM = '"& getAREA_NM & "'"
							End If
						End If

						'getSHI_KBN3
						'資料区分３（完全一致）
						If getSHI_KBN3 <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND SHI_KBN3 = '"& getSHI_KBN3 & "'"
							Else
								strWhere = "SHI_KBN3 = '"& getSHI_KBN3 & "'"
							End If
						End If

						'getBUNRUI1_NM
						'分類１（完全一致）
						If getBUNRUI1_NM <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND BUNRUI1_NM = '"& getBUNRUI1_NM & "'"
							Else
								strWhere = "BUNRUI1_NM = '"& getBUNRUI1_NM & "'"
							End If
						End If

						'getBUNRUI3_NM
						'分類３（完全一致）
						If getBUNRUI3_NM <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND BUNRUI3_NM = '"& getBUNRUI3_NM & "'"
							Else
								strWhere = "BUNRUI3_NM = '"& getBUNRUI3_NM & "'"
							End If
						End If

						'getBUNRUI4_NM
						'分類４（完全一致）
						If getBUNRUI4_NM <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND BUNRUI4_NM = '"& getBUNRUI4_NM & "'"
							Else
								strWhere = "BUNRUI4_NM = '"& getBUNRUI4_NM & "'"
							End If
						End If

						'getSOUI_NM
						'層位（完全一致）
						If getSOUI_NM <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND SOUI_NM = '"& getSOUI_NM & "'"
							Else
								strWhere = "SOUI_NM = '"& getSOUI_NM & "'"
							End If
						End If

						'getIB_JIKI1_NM
						'遺物の時期１（完全一致）
						If getIB_JIKI1_NM <> "99" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND IB_JIKI1_NM = '"& getIB_JIKI1_NM & "'"
							Else
								strWhere = "IB_JIKI1_NM = '"& getIB_JIKI1_NM & "'"
							End If
						End If

						'getIB_JIKI2_NM
						'遺物の時期２（完全一致）
						If getIB_JIKI2_NM <> "99" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND IB_JIKI2_NM = '"& getIB_JIKI2_NM & "'"
							Else
								strWhere = "IB_JIKI2_NM = '"& getIB_JIKI2_NM & "'"
							End If
						End If



						'遺跡名（中間一致）
						If getISEKI_CH_NM <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND ISEKI_CH_NM LIKE '%"& getISEKI_CH_NM & "%'"
							Else
								strWhere = "ISEKI_CH_NM LIKE '%"& getISEKI_CH_NM & "%'"
							End If
						End If

						'getBUNRUI2_NM
						'分類２（中間一致）
						If getBUNRUI2_NM <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND BUNRUI2_NM LIKE '%"& getBUNRUI2_NM & "%'"
							Else
								strWhere = "BUNRUI2_NM LIKE '%"& getBUNRUI2_NM & "%'"
							End If
						End If

						'getBUNRUI5_NM
						'分類５（中間一致）
						If getBUNRUI5_NM <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND BUNRUI5_NM LIKE '%"& getBUNRUI5_NM & "%'"
							Else
								strWhere = "BUNRUI5_NM LIKE '%"& getBUNRUI5_NM & "%'"
							End If
						End If
			
						'getIBUTSU_CH_NM
						'遺物の名称（中間一致）
						If getIBUTSU_CH_NM <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND IBUTSU_CH_NM LIKE '%"& getIBUTSU_CH_NM & "%'"
							Else
								strWhere = "IBUTSU_CH_NM LIKE '%"& getIBUTSU_CH_NM & "%'"
							End If
						End If
			
						'getIB_SYOZO_NM
						'遺物所蔵者（中間一致）
						If getIB_SYOZO_NM <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND IB_SYOZO_NM LIKE '%"& getIB_SYOZO_NM & "%'"
							Else
								strWhere = "IB_SYOZO_NM LIKE '%"& getIB_SYOZO_NM & "%'"
							End If
						End If
			
			
			
			
						If strWhere <> "" Then
							strSQL = strSQL & " WHERE " & strWhere
						End If
			
						strSQL = strSQL & " ORDER BY IBUTU_CH_ID"
			
			
					Case "ZENBUN"	'全文検索
						getTmp = Request.Form("inpKEYWORD")
						Session("ZENBUN_KEYWORD") = getTmp
						getTmp = quoteChg(getTmp)
						Call RegKeywordA(getTmp)
						getTmp = iMuse.ReplaceString(CStr(getTmp),"　"," ")
						getKWD = Split(getTmp," ")
						COUNT_KWD = UBound(getKWD)
			
						strSQL = "SELECT KBN,ID,NAME FROM ZENBUN"
						strWhere = ""
						
						For i = 0 to COUNT_KWD
							If strWhere <> "" Then
								strWhere = strWhere & " AND CONTENTS LIKE '%"& getKWD(i) & "%'"
							Else
								strWhere = "CONTENTS LIKE '%"& getKWD(i) & "%'"
							End If
						Next
						
						If strWhere <> "" Then
							strSQL = strSQL & " WHERE " & strWhere
						End If
			
						strSQL = strSQL & " ORDER BY KBN,ID"

				End Select















		Case "C"	'上級
		
			Select Case Session("SEARCH_TYPE")
					Case "ISEKI"	'遺跡（項目検索）
						Dim SOpt

						SOpt = CStr(Request.Form("SearchOpt"))

						getISEKI_CH_ID = quoteChg(Request.Form("inpISEKI_CH_ID"))
						getISEKI_CH_NM = quoteChg(Request.Form("inpISEKI_CH_NM"))
						getISK_GN_NM = quoteChg(Request.Form("inpISK_GN_NM"))
						getSYOZAI_TDF = quoteChg(Request.Form("inpSYOZAI_TDF"))
						getSYOZAI_CITY_NM = quoteChg(Request.Form("inpSYOZAI_CITY_NM"))
						getSYOZAI_OAZA = quoteChg(Request.Form("inpSYOZAI_OAZA"))
						getHYOKO_EN = quoteChg(Request.Form("inpHYOKO_EN"))
						getCHIKEI = quoteChg(Request.Form("inpCHIKEI"))
						getSYUBETSU = quoteChg(Request.Form("inpSYUBETSU"))
						getSEKKI = quoteChg(Request.Form("inpSEKKI"))
						getJOUMON = quoteChg(Request.Form("inpJOUMON"))
						getYAYOI = quoteChg(Request.Form("inpYAYOI"))
						getKOFUN = quoteChg(Request.Form("inpKOFUN"))
						getKODAI = quoteChg(Request.Form("inpKODAI"))
						getTYUSEI = quoteChg(Request.Form("inpTYUSEI"))
						getKINSEI = quoteChg(Request.Form("inpKINSEI"))
						getKINDAI = quoteChg(Request.Form("inpKINDAI"))
						getGENDAI = quoteChg(Request.Form("inpGENDAI"))
						getISK_MAIN_JIKI = quoteChg(Request.Form("inpISK_MAIN_JIKI"))
						getMAIN_KENS_IKH = quoteChg(Request.Form("inpMAIN_KENS_IKH"))
						getMAIN_SYUT_IBT = quoteChg(Request.Form("inpMAIN_SYUT_IBT"))

						'遺構項目
						getIK_SBT_NM = quoteChg(Request.Form("inpIK_SBT_NM"))
						getIK_SYU_NM = quoteChg(Request.Form("inpIK_SYU_NM"))
						getIK_PLAN_NM = quoteChg(Request.Form("inpIK_PLAN_NM"))
						getIK_BUN_NM = quoteChg(Request.Form("inpIK_BUN_NM"))

						'遺物項目
						getBUNRUI1_NM = quoteChg(Request.Form("inpBUNRUI1_NM"))
						getBUNRUI2_NM = quoteChg(Request.Form("inpBUNRUI2_NM"))
						getBUNRUI3_NM = quoteChg(Request.Form("inpBUNRUI3_NM"))
						getBUNRUI4_NM = quoteChg(Request.Form("inpBUNRUI4_NM"))
						getBUNRUI5_NM = quoteChg(Request.Form("inpBUNRUI5_NM"))


						strSQL = "SELECT ISEKI_CH_ID,ISEKI_CH_NM FROM K_ISEKI"
						strWhere = ""


						'遺跡コード（完全一致）
						If getISEKI_CH_ID <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND ISEKI_CH_ID = '"& getISEKI_CH_ID & "'"
							Else
								strWhere = "ISEKI_CH_ID = '"& getISEKI_CH_ID & "'"
							End If
						End If

						'遺跡名（中間一致）
						If getISEKI_CH_NM <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND ISEKI_CH_NM LIKE '%"& getISEKI_CH_NM & "%'"
							Else
								strWhere = "ISEKI_CH_NM LIKE '%"& getISEKI_CH_NM & "%'"
							End If
						End If

						'遺跡群名（中間一致）
						If getISK_GN_NM <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND ISK_GN_NM LIKE '%"& getISK_GN_NM & "%'"
							Else
								strWhere = "ISK_GN_NM LIKE '%"& getISK_GN_NM & "%'"
							End If
						End If

						'所在地市区町村名（中間一致）
						If getSYOZAI_CITY_NM <> "99" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND SYOZAI_CITY_NM LIKE '%"& getSYOZAI_CITY_NM & "%'"
							Else
								strWhere = "SYOZAI_CITY_NM LIKE '%"& getSYOZAI_CITY_NM & "%'"
							End If
						End If

						'所在地街区大字名（中間一致）
						If getSYOZAI_OAZA <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND SYOZAI_OAZA LIKE '%"& getSYOZAI_OAZA & "%'"
							Else
								strWhere = "SYOZAI_OAZA LIKE '%"& getSYOZAI_OAZA & "%'"
							End If
						End If

						'標高（範囲指定）
						If getHYOKO_EN <> "99" Then
							Select Case getHYOKO_EN
								Case "0"
									If strWhere <> "" Then
										strWhere = strWhere & " AND HYOKO_EN < 0"
									Else
										strWhere = "HYOKO_EN < 0"
									End If
								Case "1"
									If strWhere <> "" Then
										strWhere = strWhere & " AND (HYOKO_EN >= 1 AND HYOKO_EN <= 100)"
									Else
										strWhere = "(HYOKO_EN >= 1 AND HYOKO_EN <= 100)"
									End If
								Case "2"
									If strWhere <> "" Then
										strWhere = strWhere & " AND (HYOKO_EN >= 101 AND HYOKO_EN <= 200)"
									Else
										strWhere = "(HYOKO_EN >= 101 AND HYOKO_EN <= 200)"
									End If
								Case "3"
									If strWhere <> "" Then
										strWhere = strWhere & " AND (HYOKO_EN >= 201 AND HYOKO_EN <= 300)"
									Else
										strWhere = "(HYOKO_EN >= 201 AND HYOKO_EN <= 300)"
									End If
								Case "4"
									If strWhere <> "" Then
										strWhere = strWhere & " AND (HYOKO_EN >= 301 AND HYOKO_EN <= 400)"
									Else
										strWhere = "(HYOKO_EN >= 301 AND HYOKO_EN <= 400)"
									End If
								Case "5"
									If strWhere <> "" Then
										strWhere = strWhere & " AND (HYOKO_EN >= 401 AND HYOKO_EN <= 500)"
									Else
										strWhere = "(HYOKO_EN >= 401 AND HYOKO_EN <= 500)"
									End If
								Case "6"
									If strWhere <> "" Then
										strWhere = strWhere & " AND (HYOKO_EN >= 501 AND HYOKO_EN <= 600)"
									Else
										strWhere = "(HYOKO_EN >= 501 AND HYOKO_EN <= 600)"
									End If
								Case "7"
									If strWhere <> "" Then
										strWhere = strWhere & " AND (HYOKO_EN >= 601 AND HYOKO_EN <= 700)"
									Else
										strWhere = "(HYOKO_EN >= 601 AND HYOKO_EN <= 700)"
									End If
								Case "8"
									If strWhere <> "" Then
										strWhere = strWhere & " AND (HYOKO_EN >= 701 AND HYOKO_EN <= 800)"
									Else
										strWhere = "(HYOKO_EN >= 701 AND HYOKO_EN <= 800)"
									End If
								Case "9"
									If strWhere <> "" Then
										strWhere = strWhere & " AND (HYOKO_EN >= 801 AND HYOKO_EN <= 900)"
									Else
										strWhere = "(HYOKO_EN >= 801 AND HYOKO_EN <= 900)"
									End If
								Case "10"
									If strWhere <> "" Then
										strWhere = strWhere & " AND (HYOKO_EN >= 901 AND HYOKO_EN <= 1000)"
									Else
										strWhere = "(HYOKO_EN >= 901 AND HYOKO_EN <= 1000)"
									End If
								Case "11"
									If strWhere <> "" Then
										strWhere = strWhere & " AND HYOKO_EN >= 1001"
									Else
										strWhere = "HYOKO_EN >= 1001"
									End If
							End Select
						End If

						'地形（完全一致）
						If getCHIKEI <> "99" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND CHIKEI = '"& getCHIKEI & "'"
							Else
								strWhere = "CHIKEI = '"& getCHIKEI & "'"
							End If
						End If

						'種別（完全一致）
						If getSYUBETSU <> "99" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND SYUBETSU = '"& getSYUBETSU & "'"
							Else
								strWhere = "SYUBETSU = '"& getSYUBETSU & "'"
							End If
						End If

						'旧石器（完全一致）
						If getSEKKI <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND SEKKI = '"& getSEKKI & "'"
							Else
								strWhere = "SEKKI = '"& getSEKKI & "'"
							End If
						End If

						'縄文（完全一致）
						If getJOUMON <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND JOUMON = '"& getJOUMON & "'"
							Else
								strWhere = "JOUMON = '"& getJOUMON & "'"
							End If
						End If

						'弥生（完全一致）
						If getYAYOI <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND YAYOI = '"& getYAYOI & "'"
							Else
								strWhere = "YAYOI = '"& getYAYOI & "'"
							End If
						End If

						'古墳（完全一致）
						If getKOFUN <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND KOFUN = '"& getKOFUN & "'"
							Else
								strWhere = "KOFUN = '"& getKOFUN & "'"
							End If
						End If

						'古代（完全一致）
						If getKODAI <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND KODAI = '"& getKODAI & "'"
							Else
								strWhere = "KODAI = '"& getKODAI & "'"
							End If
						End If

						'中世（完全一致）
						If getTYUSEI <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND TYUSEI = '"& getTYUSEI & "'"
							Else
								strWhere = "TYUSEI = '"& getTYUSEI & "'"
							End If
						End If

						'近世（完全一致）
						If getKINSEI <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND KINSEI = '"& getKINSEI & "'"
							Else
								strWhere = "KINSEI = '"& getKINSEI & "'"
							End If
						End If

						'近代（完全一致）
						If getKINDAI <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND KINDAI = '"& getKINDAI & "'"
							Else
								strWhere = "KINDAI = '"& getKINDAI & "'"
							End If
						End If

						'現代（完全一致）
						If getGENDAI <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND GENDAI = '"& getGENDAI & "'"
							Else
								strWhere = "GENDAI = '"& getGENDAI & "'"
							End If
						End If

						'遺跡の主な時期（中間一致）
						If getISK_MAIN_JIKI <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND ISK_MAIN_JIKI LIKE '%"& getISK_MAIN_JIKI & "%'"
							Else
								strWhere = "ISK_MAIN_JIKI LIKE '%"& getISK_MAIN_JIKI & "%'"
							End If
						End If

						'主な検出遺構（中間一致）
						If getMAIN_KENS_IKH <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND MAIN_KENS_IKH LIKE '%"& getMAIN_KENS_IKH & "%'"
							Else
								strWhere = "MAIN_KENS_IKH LIKE '%"& getMAIN_KENS_IKH & "%'"
							End If
						End If

						'主な出土遺物（中間一致）
						If getMAIN_SYUT_IBT <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND MAIN_SYUT_IBT LIKE '%"& getMAIN_SYUT_IBT & "%'"
							Else
								strWhere = "MAIN_SYUT_IBT LIKE '%"& getMAIN_SYUT_IBT & "%'"
							End If
						End If




						'従属項目
						
						strWhere2 = ""
						
						Select case SOpt
							Case "0"	'遺跡項目のみ
							Case "1"	'遺跡項目と遺構項目
							'SELECT COUNT(*) FROM K_ISEKI WHERE ISEKI_CH_ID IN (SELECT ISEKI_CH_ID FROM K_IKHOU WHERE IKHOU_CH_ID LIKE 'ABCD%' GROUP BY ISEKI_CH_ID);

								'遺構の種別（完全一致）
								If getIK_SBT_NM <> "" Then
									If strWhere2 <> "" Then
										strWhere2 = strWhere2 & " AND IK_SBT_NM = '"& getIK_SBT_NM & "'"
									Else
										strWhere2 = "IK_SBT_NM = '"& getIK_SBT_NM & "'"
									End If
								End If
		
								'遺構の種類（完全一致）
								If getIK_SYU_NM <> "" Then
									If strWhere2 <> "" Then
										strWhere2 = strWhere2 & " AND IK_SYU_NM = '"& getIK_SYU_NM & "'"
									Else
										strWhere2 = "IK_SYU_NM = '"& getIK_SYU_NM & "'"
									End If
								End If
		
								'遺構のプラン（完全一致）
								If getIK_PLAN_NM <> "" Then
									If strWhere2 <> "" Then
										strWhere2 = strWhere2 & " AND IK_PLAN_NM = '"& getIK_PLAN_NM & "'"
									Else
										strWhere2 = "IK_PLAN_NM = '"& getIK_PLAN_NM & "'"
									End If
								End If
		
								'遺構の分類（完全一致）
								If getIK_BUN_NM <> "" Then
									If strWhere2 <> "" Then
										strWhere2 = strWhere2 & " AND IK_BUN_NM = '"& getIK_BUN_NM & "'"
									Else
										strWhere2 = "IK_BUN_NM = '"& getIK_BUN_NM & "'"
									End If
								End If

								If strWhere2 <> "" Then
									strWhere2 = "(SELECT ISEKI_CH_ID FROM K_IKHOU WHERE " & strWhere2 & ")"
								End If

							Case "2"	'遺跡項目と遺物項目

								'分類１（完全一致）
								If getBUNRUI1_NM <> "" Then
									If strWhere2 <> "" Then
										strWhere2 = strWhere2 & " AND BUNRUI1_NM = '"& getBUNRUI1_NM & "'"
									Else
										strWhere2 = "BUNRUI1_NM = '"& getBUNRUI1_NM & "'"
									End If
								End If

								'分類２（完全一致）
								If getBUNRUI2_NM <> "" Then
									If strWhere2 <> "" Then
										strWhere2 = strWhere2 & " AND BUNRUI2_NM = '"& getBUNRUI2_NM & "'"
									Else
										strWhere2 = "BUNRUI2_NM = '"& getBUNRUI2_NM & "'"
									End If
								End If

								'分類３（完全一致）
								If getBUNRUI3_NM <> "" Then
									If strWhere2 <> "" Then
										strWhere2 = strWhere2 & " AND BUNRUI3_NM = '"& getBUNRUI3_NM & "'"
									Else
										strWhere2 = "BUNRUI3_NM = '"& getBUNRUI3_NM & "'"
									End If
								End If

								'分類４（完全一致）
								If getBUNRUI4_NM <> "" Then
									If strWhere2 <> "" Then
										strWhere2 = strWhere2 & " AND BUNRUI4_NM = '"& getBUNRUI4_NM & "'"
									Else
										strWhere2 = "BUNRUI4_NM = '"& getBUNRUI4_NM & "'"
									End If
								End If

								'分類５（完全一致）
								If getBUNRUI5_NM <> "" Then
									If strWhere2 <> "" Then
										strWhere2 = strWhere2 & " AND BUNRUI5_NM = '"& getBUNRUI5_NM & "'"
									Else
										strWhere2 = "BUNRUI5_NM = '"& getBUNRUI5_NM & "'"
									End If
								End If

								If strWhere2 <> "" Then
									strWhere2 = "(SELECT ISEKI_CH_ID FROM K_IBUTU WHERE " & strWhere2 & ")"
								End If

						End Select

						If strWhere <> "" AND strWhere2 = "" Then
							strSQL = strSQL & " WHERE " & strWhere
						ElseIf strWhere <> "" AND strWhere2 <> "" Then
							strSQL = strSQL & " WHERE " & strWhere & " AND ISEKI_CH_ID IN " & strWhere2
						ElseIf strWhere = "" AND strWhere2 <> "" Then
							strSQL = strSQL & " WHERE ISEKI_CH_ID IN " & strWhere2
						End If

						strSQL = strSQL & " ORDER BY ISEKI_CH_ID"















					Case "IKHOU"	'遺構（項目検索）
						getISEKI_CH_NM = quoteChg(Request.Form("inpISEKI_CH_NM"))
						getAREA_NM = quoteChg(Request.Form("inpAREA_NM"))
						getIKHOU_CH_ID = quoteChg(Request.Form("inpIKHOU_CH_ID"))
						getSEKKI = quoteChg(Request.Form("inpSEKKI"))
						getJOUMON = quoteChg(Request.Form("inpJOUMON"))
						getYAYOI = quoteChg(Request.Form("inpYAYOI"))
						getKOFUN = quoteChg(Request.Form("inpKOFUN"))
						getKODAI = quoteChg(Request.Form("inpKODAI"))
						getTYUSEI = quoteChg(Request.Form("inpTYUSEI"))
						getKINSEI = quoteChg(Request.Form("inpKINSEI"))
						getKINDAI = quoteChg(Request.Form("inpKINDAI"))
						getGENDAI = quoteChg(Request.Form("inpGENDAI"))
						getIKHOU_SHIST = quoteChg(Request.Form("inpIKHOU_SHIST"))
						getKEN_SOUI_NM = quoteChg(Request.Form("inpKEN_SOUI_NM"))
						getMAIDO = quoteChg(Request.Form("inpMAIDO"))
						getKYOHAN_IB = quoteChg(Request.Form("inpKYOHAN_IB"))
						getIK_MN_JIKI_NM = quoteChg(Request.Form("inpIK_MN_JIKI_NM"))
						getIK_SBT_NM = quoteChg(Request.Form("inpIK_SBT_NM"))
						getIK_SYU_NM = quoteChg(Request.Form("inpIK_SYU_NM"))
						getIK_PLAN_NM = quoteChg(Request.Form("inpIK_PLAN_NM"))
						getIK_BUN_NM = quoteChg(Request.Form("inpIK_BUN_NM"))

						strSQL = "SELECT IKHOU_CH_ID,IKHOU_CH_NM,ISEKI_CH_NM FROM V_K_IKHOU"
						strWhere = ""

						'エリア名（完全一致）
						If getAREA_NM <> "99" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND AREA_NM = '"& getAREA_NM & "'"
							Else
								strWhere = "AREA_NM = '"& getAREA_NM & "'"
							End If
						End If

						'管理コード（完全一致）
						If getIKHOU_CH_ID <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND IKHOU_CH_ID = '"& getIKHOU_CH_ID & "'"
							Else
								strWhere = "IKHOU_CH_ID = '"& getIKHOU_CH_ID & "'"
							End If
						End If

						'旧石器（完全一致）
						If getSEKKI <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND J_SEKKI = '"& getSEKKI & "'"
							Else
								strWhere = "J_SEKKI = '"& getSEKKI & "'"
							End If
						End If

						'縄文（完全一致）
						If getJOUMON <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND J_JYOMON = '"& getJOUMON & "'"
							Else
								strWhere = "J_JYOMON = '"& getJOUMON & "'"
							End If
						End If

						'弥生（完全一致）
						If getYAYOI <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND J_YAYOI = '"& getYAYOI & "'"
							Else
								strWhere = "J_YAYOI = '"& getYAYOI & "'"
							End If
						End If

						'古墳（完全一致）
						If getKOFUN <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND J_KOFUN = '"& getKOFUN & "'"
							Else
								strWhere = "J_KOFUN = '"& getKOFUN & "'"
							End If
						End If

						'古代（完全一致）
						If getKODAI <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND J_KODAI = '"& getKODAI & "'"
							Else
								strWhere = "J_KODAI = '"& getKODAI & "'"
							End If
						End If

						'中世（完全一致）
						If getTYUSEI <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND J_TYUSEI = '"& getTYUSEI & "'"
							Else
								strWhere = "J_TYUSEI = '"& getTYUSEI & "'"
							End If
						End If

						'近世（完全一致）
						If getKINSEI <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND J_KINSEI = '"& getKINSEI & "'"
							Else
								strWhere = "J_KINSEI = '"& getKINSEI & "'"
							End If
						End If

						'近代（完全一致）
						If getKINDAI <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND J_KINDAI = '"& getKINDAI & "'"
							Else
								strWhere = "J_KINDAI = '"& getKINDAI & "'"
							End If
						End If

						'現代（完全一致）
						If getGENDAI <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND J_GENDAI = '"& getGENDAI & "'"
							Else
								strWhere = "J_GENDAI = '"& getGENDAI & "'"
							End If
						End If

						'遺構の種別（完全一致）
						If getIK_SBT_NM <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND IK_SBT_NM = '"& getIK_SBT_NM & "'"
							Else
								strWhere = "IK_SBT_NM = '"& getIK_SBT_NM & "'"
							End If
						End If

						'遺構の種類（完全一致）
						If getIK_SYU_NM <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND IK_SYU_NM = '"& getIK_SYU_NM & "'"
							Else
								strWhere = "IK_SYU_NM = '"& getIK_SYU_NM & "'"
							End If
						End If

						'遺構のプラン（完全一致）
						If getIK_PLAN_NM <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND IK_PLAN_NM = '"& getIK_PLAN_NM & "'"
							Else
								strWhere = "IK_PLAN_NM = '"& getIK_PLAN_NM & "'"
							End If
						End If

						'遺構の分類（完全一致）
						If getIK_BUN_NM <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND IK_BUN_NM = '"& getIK_BUN_NM & "'"
							Else
								strWhere = "IK_BUN_NM = '"& getIK_BUN_NM & "'"
							End If
						End If

						'遺跡名（中間一致）
						If getISEKI_CH_NM <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND ISEKI_CH_NM LIKE '%"& getISEKI_CH_NM & "%'"
							Else
								strWhere = "ISEKI_CH_NM LIKE '%"& getISEKI_CH_NM & "%'"
							End If
						End If

						'遺構内施設等（中間一致）
						If getIKHOU_SHIST <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND IKHOU_SHIST LIKE '%"& getIKHOU_SHIST & "%'"
							Else
								strWhere = "IKHOU_SHIST LIKE '%"& getIKHOU_SHIST & "%'"
							End If
						End If

						'検出層位（中間一致）
						If getKEN_SOUI_NM <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND KEN_SOUI_NM LIKE '%"& getKEN_SOUI_NM & "%'"
							Else
								strWhere = "KEN_SOUI_NM LIKE '%"& getKEN_SOUI_NM & "%'"
							End If
						End If

						'埋土（中間一致）
						If getMAIDO <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND MAIDO LIKE '%"& getMAIDO & "%'"
							Else
								strWhere = "MAIDO LIKE '%"& getMAIDO & "%'"
							End If
						End If

						'共伴遺物（中間一致）
						If getKYOHAN_IB <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND KYOHAN_IB LIKE '%"& getKYOHAN_IB & "%'"
							Else
								strWhere = "KYOHAN_IB LIKE '%"& getKYOHAN_IB & "%'"
							End If
						End If

						'遺構の主な時期（中間一致）
						If getIK_MN_JIKI_NM <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND IK_MN_JIKI_NM LIKE '%"& getIK_MN_JIKI_NM & "%'"
							Else
								strWhere = "IK_MN_JIKI_NM LIKE '%"& getIK_MN_JIKI_NM & "%'"
							End If
						End If

						If strWhere <> "" Then
							strSQL = strSQL & " WHERE " & strWhere
						End If

						strSQL = strSQL & " ORDER BY IKHOU_CH_ID"

					Case "IBUTSU"	'遺物（項目検索）
						strSQL = "SELECT IBUTU_CH_ID,ISEKI_CH_NM,IBUTSU_CH_NM FROM V_K_IBUTU"
						strWhere = ""

						getISEKI_CH_NM = quoteChg(Request.Form("inpISEKI_CH_NM"))
						getAREA_NM = quoteChg(Request.Form("inpAREA_NM"))
						getIBUTU_CH_ID = quoteChg(Request.Form("inpIBUTU_CH_ID"))
						getSHI_KBN3 = quoteChg(Request.Form("inpSHI_KBN3"))
						getBUNRUI1_NM = quoteChg(Request.Form("inpBUNRUI1_NM"))
						getBUNRUI2_NM = quoteChg(Request.Form("inpBUNRUI2_NM"))
						getBUNRUI3_NM = quoteChg(Request.Form("inpBUNRUI3_NM"))
						getBUNRUI4_NM = quoteChg(Request.Form("inpBUNRUI4_NM"))
						getBUNRUI5_NM = quoteChg(Request.Form("inpBUNRUI5_NM"))
						getIB_SYOZO_NM = quoteChg(Request.Form("inpIB_SYOZO_NM"))
						getBUI_PLACE = quoteChg(Request.Form("inpBUI_PLACE"))
						getSOUI_NM = quoteChg(Request.Form("inpSOUI_NM"))
						getIB_JIKI1_NM = quoteChg(Request.Form("inpIB_JIKI1_NM"))
						getIB_JIKI2_NM = quoteChg(Request.Form("inpIB_JIKI2_NM"))


						'エリア名（完全一致）
						If getAREA_NM <> "99" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND AREA_NM = '"& getAREA_NM & "'"
							Else
								strWhere = "AREA_NM = '"& getAREA_NM & "'"
							End If
						End If

						'管理コード（完全一致）
						If getIBUTU_CH_ID <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND IBUTU_CH_ID = '"& getIBUTU_CH_ID & "'"
							Else
								strWhere = "IBUTU_CH_ID = '"& getIBUTU_CH_ID & "'"
							End If
						End If

						'資料区分３（完全一致）
						If getSHI_KBN3 <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND SHI_KBN3 = '"& getSHI_KBN3 & "'"
							Else
								strWhere = "SHI_KBN3 = '"& getSHI_KBN3 & "'"
							End If
						End If

						'分類１（完全一致）
						If getBUNRUI1_NM <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND BUNRUI1_NM = '"& getBUNRUI1_NM & "'"
							Else
								strWhere = "BUNRUI1_NM = '"& getBUNRUI1_NM & "'"
							End If
						End If

						'分類３（完全一致）
						If getBUNRUI3_NM <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND BUNRUI3_NM = '"& getBUNRUI3_NM & "'"
							Else
								strWhere = "BUNRUI3_NM = '"& getBUNRUI3_NM & "'"
							End If
						End If

						'分類４（完全一致）
						If getBUNRUI4_NM <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND BUNRUI4_NM = '"& getBUNRUI4_NM & "'"
							Else
								strWhere = "BUNRUI4_NM = '"& getBUNRUI4_NM & "'"
							End If
						End If

						'部位・場所（完全一致）
						If getBUI_PLACE <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND BUI_PLACE = '"& getBUI_PLACE & "'"
							Else
								strWhere = "BUI_PLACE = '"& getBUI_PLACE & "'"
							End If
						End If

						'層位（完全一致）
						If getSOUI_NM <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND SOUI_NM = '"& getSOUI_NM & "'"
							Else
								strWhere = "SOUI_NM = '"& getSOUI_NM & "'"
							End If
						End If

						'遺物の時期１（完全一致）
						If getIB_JIKI1_NM <> "99" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND IB_JIKI1_NM = '"& getIB_JIKI1_NM & "'"
							Else
								strWhere = "IB_JIKI1_NM = '"& getIB_JIKI1_NM & "'"
							End If
						End If

						'遺物の時期２（完全一致）
						If getIB_JIKI2_NM <> "99" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND IB_JIKI2_NM = '"& getIB_JIKI2_NM & "'"
							Else
								strWhere = "IB_JIKI2_NM = '"& getIB_JIKI2_NM & "'"
							End If
						End If

						'遺跡名（中間一致）
						If getISEKI_CH_NM <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND ISEKI_CH_NM LIKE '%"& getISEKI_CH_NM & "%'"
							Else
								strWhere = "ISEKI_CH_NM LIKE '%"& getISEKI_CH_NM & "%'"
							End If
						End If

						'分類２（中間一致）
						If getBUNRUI2_NM <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND BUNRUI2_NM LIKE '%"& getBUNRUI2_NM & "%'"
							Else
								strWhere = "BUNRUI2_NM LIKE '%"& getBUNRUI2_NM & "%'"
							End If
						End If

						'分類５（中間一致）
						If getBUNRUI5_NM <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND BUNRUI5_NM LIKE '%"& getBUNRUI5_NM & "%'"
							Else
								strWhere = "BUNRUI5_NM LIKE '%"& getBUNRUI5_NM & "%'"
							End If
						End If

						'遺物所蔵者（中間一致）
						If getIB_SYOZO_NM <> "" Then
							If strWhere <> "" Then
								strWhere = strWhere & " AND IB_SYOZO_NM LIKE '%"& getIB_SYOZO_NM & "%'"
							Else
								strWhere = "IB_SYOZO_NM LIKE '%"& getIB_SYOZO_NM & "%'"
							End If
						End If


						If strWhere <> "" Then
							strSQL = strSQL & " WHERE " & strWhere
						End If
			
						strSQL = strSQL & " ORDER BY IBUTU_CH_ID"

					Case "ZENBUN"	'全文検索
						getTmp = Request.Form("inpKEYWORD")
						Session("ZENBUN_KEYWORD") = getTmp
						getTmp = quoteChg(getTmp)
						Call RegKeywordB(getTmp)
						getTmp = iMuse.ReplaceString(CStr(getTmp),"　"," ")
						getKWD = Split(getTmp," ")
						COUNT_KWD = UBound(getKWD)
			
						strSQL = "SELECT KBN,ID,NAME FROM ZENBUN"
						strWhere = ""
						
						For i = 0 to COUNT_KWD
							If strWhere <> "" Then
								strWhere = strWhere & " AND CONTENTS LIKE '%"& getKWD(i) & "%'"
							Else
								strWhere = "CONTENTS LIKE '%"& getKWD(i) & "%'"
							End If
						Next
						
						If strWhere <> "" Then
							strSQL = strSQL & " WHERE " & strWhere
						End If
			
						strSQL = strSQL & " ORDER BY KBN,ID"

			End Select




	End Select


	Session("SEARCH_SQL") = strSQL
	Response.Redirect "wait.asp?1"
	'Response.Write strSQL
	'Response.Write Session("MDB_A")
	'Response.Write "<BR>"
	'Response.Write Session("MDB_B")

%>