<% 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 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 'iMuse Set iMuse = Server.CreateObject("iMuse.Functions") Select Case Session("LEVEL") Case "A" '初級 Case "B" '中級 Select Case Session("SEARCH_TYPE") Case "ISEKI" '遺跡（項目検索） getISEKI_NM_EG = quoteChg(Request.Form("inpISEKI_NM_EG")) getSYOZAI_CITY_EN = quoteChg(Request.Form("inpSYOZAI_CITY_EN")) getHYOKO_EN = quoteChg(Request.Form("inpHYOKO_EN")) getSYUBETSU_EN = quoteChg(Request.Form("inpSYUBETSU_EN")) 'Response.Write getSYUBETSU_EN 'Response.Write "
" 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_EN = quoteChg(Request.Form("inpISK_MAIN_JIKI_EN")) getMAIN_KENS_IKH_EN = quoteChg(Request.Form("inpMAIN_KENS_IKH_EN")) getMAIN_SYUT_IBT_EN = quoteChg(Request.Form("inpMAIN_SYUT_IBT_EN")) strSQL = "SELECT ISEKI_CH_ID,ISEKI_NM_EG FROM K_ISEKI" strWhere = "" '種別(英)（完全一致） If getSYUBETSU_EN <> "99" Then getSYUBETSU_EN = iMuse.ReplaceString(Cstr(getSYUBETSU_EN),"'","''") If strWhere <> "" Then strWhere = strWhere & " AND SYUBETSU_EN = '"& getSYUBETSU_EN & "'" Else strWhere = "SYUBETSU_EN = '"& getSYUBETSU_EN & "'" 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_EN <> "" Then getISK_MAIN_JIKI_EN = iMuse.ReplaceString(Cstr(getISK_MAIN_JIKI_EN),"'","''") If strWhere <> "" Then strWhere = strWhere & " AND ISK_MAIN_JIKI_EN LIKE '%"& getISK_MAIN_JIKI_EN & "%'" Else strWhere = "ISK_MAIN_JIKI_EN LIKE '%"& getISK_MAIN_JIKI_EN & "%'" End If End If '主な検出遺構(英)（中間一致） If getMAIN_KENS_IKH_EN <> "" Then getMAIN_KENS_IKH_EN = iMuse.ReplaceString(Cstr(getMAIN_KENS_IKH_EN),"'","''") If strWhere <> "" Then strWhere = strWhere & " AND MAIN_KENS_IKH_EN LIKE '%"& getMAIN_KENS_IKH_EN & "%'" Else strWhere = "MAIN_KENS_IKH_EN LIKE '%"& getMAIN_KENS_IKH_EN & "%'" End If End If '主な出土遺物(英)（中間一致） If getMAIN_SYUT_IBT_EN <> "" Then getMAIN_SYUT_IBT_EN = iMuse.ReplaceString(Cstr(getMAIN_SYUT_IBT_EN),"'","''") If strWhere <> "" Then strWhere = strWhere & " AND MAIN_SYUT_IBT_EN LIKE '%"& getMAIN_SYUT_IBT_EN & "%'" Else strWhere = "MAIN_SYUT_IBT_EN LIKE '%"& getMAIN_SYUT_IBT_EN & "%'" End If End If '遺跡名(英)（中間一致） If getISEKI_NM_EG <> "" Then getISEKI_NM_EG = iMuse.ReplaceString(Cstr(getISEKI_NM_EG),"'","''") If strWhere <> "" Then strWhere = strWhere & " AND ISEKI_NM_EG LIKE '%"& getISEKI_NM_EG & "%'" 'strWhere = strWhere & " AND ISEKI_NM_EG LIKE " & STRTOSQLSTR("%" & Cstr(getISEKI_NM_EG) & "%") Else strWhere = "ISEKI_NM_EG LIKE '%"& getISEKI_NM_EG & "%'" End If End If '所在地市区町村名(英)（中間一致） If getSYOZAI_CITY_EN <> "" Then getSYOZAI_CITY_EN = iMuse.ReplaceString(Cstr(getSYOZAI_CITY_EN),"'","''") If strWhere <> "" Then strWhere = strWhere & " AND SYOZAI_CITY_EN LIKE '%"& getSYOZAI_CITY_EN & "%'" Else strWhere = "SYOZAI_CITY_EN LIKE '%"& getSYOZAI_CITY_EN & "%'" 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 strWhere <> "" Then strSQL = strSQL & " WHERE " & strWhere End If strSQL = strSQL & " ORDER BY ISEKI_CH_ID" Case "IKHOU" '遺構（項目検索） getISEKI_NM_EG = quoteChg(Request.Form("inpISEKI_NM_EG")) 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_EN = quoteChg(Request.Form("inpIKHOU_SHIST_EN")) getKEN_SOUI_EN = quoteChg(Request.Form("inpKEN_SOUI_EN")) getKYOHAN_IB_EN = quoteChg(Request.Form("inpKYOHAN_IB_EN")) getIK_MN_JIKI_EN = quoteChg(Request.Form("inpIK_MN_JIKI_EN")) getIK_SBT_EN = quoteChg(Request.Form("inpIK_SBT_EN")) getIK_SYU_EN = quoteChg(Request.Form("inpIK_SYU_EN")) getIK_PLAN_EN = quoteChg(Request.Form("inpIK_PLAN_EN")) getIK_BUN_EN = quoteChg(Request.Form("inpIK_BUN_EN")) getIKHOU_CH_EN = quoteChg(Request.Form("inpIKHOU_CH_EN")) strSQL = "SELECT IKHOU_CH_ID,IKHOU_CH_EN,ISEKI_NM_EG FROM V_K_IKHOU" strWhere = "" '旧石器（完全一致） 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_EN <> "" Then getIK_SBT_EN = iMuse.ReplaceString(Cstr(getIK_SBT_EN),"'","''") If strWhere <> "" Then strWhere = strWhere & " AND IK_SBT_EN = '"& getIK_SBT_EN & "'" Else strWhere = "IK_SBT_EN = '"& getIK_SBT_EN & "'" End If End If '遺構の種類(英)（完全一致） If getIK_SYU_EN <> "" Then getIK_SYU_EN = iMuse.ReplaceString(Cstr(getIK_SYU_EN),"'","''") If strWhere <> "" Then strWhere = strWhere & " AND IK_SYU_EN = '"& getIK_SYU_EN & "'" Else strWhere = "IK_SYU_EN = '"& getIK_SYU_EN & "'" End If End If '遺構のプラン(英)（完全一致） If getIK_PLAN_EN <> "" Then getIK_PLAN_EN = iMuse.ReplaceString(Cstr(getIK_PLAN_EN),"'","''") If strWhere <> "" Then strWhere = strWhere & " AND IK_PLAN_EN = '"& getIK_PLAN_EN & "'" Else strWhere = "IK_PLAN_EN = '"& getIK_PLAN_EN & "'" End If End If '遺構の分類(英)（完全一致） If getIK_BUN_EN <> "" Then getIK_BUN_EN = iMuse.ReplaceString(Cstr(getIK_BUN_EN),"'","''") If strWhere <> "" Then strWhere = strWhere & " AND IK_BUN_EN = '"& getIK_BUN_EN & "'" Else strWhere = "IK_BUN_EN = '"& getIK_BUN_EN & "'" End If End If '遺構内施設等(英)（中間一致） If getIKHOU_SHIST_EN <> "" Then getIKHOU_SHIST_EN = iMuse.ReplaceString(Cstr(getIKHOU_SHIST_EN),"'","''") If strWhere <> "" Then strWhere = strWhere & " AND IKHOU_SHIST_EN LIKE '%"& getIKHOU_SHIST_EN & "%'" Else strWhere = "IKHOU_SHIST_EN LIKE '%"& getIKHOU_SHIST_EN & "%'" End If End If '検出層位(英)（中間一致） If getKEN_SOUI_EN <> "" Then getKEN_SOUI_EN = iMuse.ReplaceString(Cstr(getKEN_SOUI_EN),"'","''") If strWhere <> "" Then strWhere = strWhere & " AND KEN_SOUI_EN LIKE '%"& getKEN_SOUI_EN & "%'" Else strWhere = "KEN_SOUI_EN LIKE '%"& getKEN_SOUI_EN & "%'" End If End If '共伴遺物(英)（中間一致） If getKYOHAN_IB_EN <> "" Then getKYOHAN_IB_EN = iMuse.ReplaceString(Cstr(getKYOHAN_IB_EN),"'","''") If strWhere <> "" Then strWhere = strWhere & " AND KYOHAN_IB_EN LIKE '%"& getKYOHAN_IB_EN & "%'" Else strWhere = "KYOHAN_IB_EN LIKE '%"& getKYOHAN_IB_EN & "%'" End If End If '遺構の主な時期(英)（中間一致） If getIK_MN_JIKI_EN <> "" Then getIK_MN_JIKI_EN = iMuse.ReplaceString(Cstr(getIK_MN_JIKI_EN),"'","''") If strWhere <> "" Then strWhere = strWhere & " AND IK_MN_JIKI_EN LIKE '%"& getIK_MN_JIKI_EN & "%'" Else strWhere = "IK_MN_JIKI_EN LIKE '%"& getIK_MN_JIKI_EN & "%'" End If End If '遺跡名(英)（中間一致） If getISEKI_NM_EG <> "" Then getISEKI_NM_EG = iMuse.ReplaceString(Cstr(getISEKI_NM_EG),"'","''") If strWhere <> "" Then strWhere = strWhere & " AND ISEKI_NM_EG LIKE '%"& getISEKI_NM_EG & "%'" Else strWhere = "ISEKI_NM_EG LIKE '%"& getISEKI_NM_EG & "%'" End If End If '遺構の名称(英)（中間一致） If getIKHOU_CH_EN <> "" Then getIKHOU_CH_EN = iMuse.ReplaceString(Cstr(getIKHOU_CH_EN),"'","''") If strWhere <> "" Then strWhere = strWhere & " AND IKHOU_CH_EN LIKE '%"& getIKHOU_CH_EN & "%'" Else strWhere = "IKHOU_CH_EN LIKE '%"& getIKHOU_CH_EN & "%'" 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_NM_EG,IBUTSU_CH_EN FROM V_K_IBUTU" strWhere = "" getISEKI_NM_EG = quoteChg(Request.Form("inpISEKI_NM_EG")) getSHI_KBN_EN = quoteChg(Request.Form("inpSHI_KBN_EN")) getBUNRUI1_EN = quoteChg(Request.Form("inpBUNRUI1_EN")) getBUNRUI2_EN = quoteChg(Request.Form("inpBUNRUI2_EN")) getBUNRUI3_EN = quoteChg(Request.Form("inpBUNRUI3_EN")) getBUNRUI4_EN = quoteChg(Request.Form("inpBUNRUI4_EN")) getBUNRUI5_EN = quoteChg(Request.Form("inpBUNRUI5_EN")) getIBUTSU_CH_EN = quoteChg(Request.Form("inpIBUTSU_CH_EN")) getSOUI_EN = quoteChg(Request.Form("inpSOUI_EN")) getIB_JIKI1_EN = quoteChg(Request.Form("inpIB_JIKI1_EN")) getIB_JIKI2_EN = quoteChg(Request.Form("inpIB_JIKI2_EN")) '資料区分３(英)（完全一致） If getSHI_KBN_EN <> "" Then getSHI_KBN_EN = iMuse.ReplaceString(Cstr(getSHI_KBN_EN),"'","''") If strWhere <> "" Then strWhere = strWhere & " AND SHI_KBN_EN = '"& getSHI_KBN_EN & "'" Else strWhere = "SHI_KBN_EN = '"& getSHI_KBN_EN & "'" End If End If '分類１(英)（完全一致） If getBUNRUI1_EN <> "" Then getBUNRUI1_EN = iMuse.ReplaceString(Cstr(getBUNRUI1_EN),"'","''") If strWhere <> "" Then strWhere = strWhere & " AND BUNRUI1_EN = '"& getBUNRUI1_EN & "'" Else strWhere = "BUNRUI1_EN = '"& getBUNRUI1_EN & "'" End If End If '分類３(英)（完全一致） If getBUNRUI3_EN <> "" Then getBUNRUI3_EN = iMuse.ReplaceString(Cstr(getBUNRUI3_EN),"'","''") If strWhere <> "" Then strWhere = strWhere & " AND BUNRUI3_EN = '"& getBUNRUI3_EN & "'" Else strWhere = "BUNRUI3_EN = '"& getBUNRUI3_EN & "'" End If End If '分類４(英)（完全一致） If getBUNRUI4_EN <> "" Then getBUNRUI4_EN = iMuse.ReplaceString(Cstr(getBUNRUI4_EN),"'","''") If strWhere <> "" Then strWhere = strWhere & " AND BUNRUI4_EN = '"& getBUNRUI4_EN & "'" Else strWhere = "BUNRUI4_EN = '"& getBUNRUI4_EN & "'" End If End If '層位(英)（完全一致） If getSOUI_EN <> "" Then getSOUI_EN = iMuse.ReplaceString(Cstr(getSOUI_EN),"'","''") If strWhere <> "" Then strWhere = strWhere & " AND SOUI_EN = '"& getSOUI_EN & "'" Else strWhere = "SOUI_EN = '"& getSOUI_EN & "'" End If End If '遺物の時期１(英)（完全一致） If getIB_JIKI1_EN <> "99" Then getIB_JIKI1_EN = iMuse.ReplaceString(Cstr(getIB_JIKI1_EN),"'","''") If strWhere <> "" Then strWhere = strWhere & " AND IB_JIKI1_EN = '"& getIB_JIKI1_EN & "'" Else strWhere = "IB_JIKI1_EN = '"& getIB_JIKI1_EN & "'" End If End If '遺物の時期２(英)（完全一致） If getIB_JIKI2_EN <> "99" Then getIB_JIKI2_EN = iMuse.ReplaceString(Cstr(getIB_JIKI2_EN),"'","''") If strWhere <> "" Then strWhere = strWhere & " AND IB_JIKI2_EN = '"& getIB_JIKI2_EN & "'" Else strWhere = "IB_JIKI2_EN = '"& getIB_JIKI2_EN & "'" End If End If '遺跡名(英)（中間一致） If getISEKI_NM_EG <> "" Then getISEKI_NM_EG = iMuse.ReplaceString(Cstr(getISEKI_NM_EG),"'","''") If strWhere <> "" Then strWhere = strWhere & " AND ISEKI_NM_EG LIKE '%"& getISEKI_NM_EG & "%'" Else strWhere = "ISEKI_NM_EG LIKE '%"& getISEKI_NM_EG & "%'" End If End If '分類２(英)（中間一致） If getBUNRUI2_EN <> "" Then getBUNRUI2_EN = iMuse.ReplaceString(Cstr(getBUNRUI2_EN),"'","''") If strWhere <> "" Then strWhere = strWhere & " AND BUNRUI2_EN LIKE '%"& getBUNRUI2_EN & "%'" Else strWhere = "BUNRUI2_EN LIKE '%"& getBUNRUI2_EN & "%'" End If End If '分類５(英)（中間一致） If getBUNRUI5_EN <> "" Then getBUNRUI5_EN = iMuse.ReplaceString(Cstr(getBUNRUI5_EN),"'","''") If strWhere <> "" Then strWhere = strWhere & " AND BUNRUI5_EN LIKE '%"& getBUNRUI5_EN & "%'" Else strWhere = "BUNRUI5_EN LIKE '%"& getBUNRUI5_EN & "%'" End If End If '遺物の名称(英)（中間一致） If getIBUTSU_CH_EN <> "" Then getIBUTSU_CH_EN = iMuse.ReplaceString(Cstr(getIBUTSU_CH_EN),"'","''") If strWhere <> "" Then strWhere = strWhere & " AND IBUTSU_CH_EN LIKE '%"& getIBUTSU_CH_EN & "%'" Else strWhere = "IBUTSU_CH_EN LIKE '%"& getIBUTSU_CH_EN & "%'" End If End If If strWhere <> "" Then strSQL = strSQL & " WHERE " & strWhere End If strSQL = strSQL & " ORDER BY IBUTU_CH_ID" End Select Case "C" '上級 End Select Session("SEARCH_SQL") = strSQL Response.Redirect "wait.asp?1" 'Response.Write strSQL 'Response.Write Session("MDB_A") 'Response.Write "
" 'Response.Write Session("MDB_B") %>