<% 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 cn, rs, i, strSQL Dim rs2 Dim RecCount1 Dim RecCount2 Dim MaxRec Dim PID Dim strKey Dim pi Dim t Dim z Dim strYear Dim strNM Dim iMuse Dim RecArray Dim tt Dim q Dim objBasp 'iMuse Set iMuse = Server.CreateObject("iMuse.Functions") 'objBasp Set objBasp = Server.CreateObject("BASP21") PID = Request.ServerVariables("QUERY_STRING") strKey = Split(PID,",") Select Case strKey(0) Case "A" '遺跡 strSQL = "SELECT * FROM K_RPTZH WHERE ISKBS_CH_ID = '" & strKey(1) & "' AND DBSE_CH_KBN = '遺跡'" Case "B" '遺構 strSQL = "SELECT * FROM K_RPTZH WHERE ISKBS_CH_ID = '" & strKey(1) & "' AND DBSE_CH_KBN = '遺構'" Case "C" '遺物 strSQL = "SELECT * FROM K_RPTZH WHERE ISKBS_CH_ID = '" & strKey(1) & "' AND DBSE_CH_KBN = '遺物'" End Select Set cn = Server.CreateObject("ADODB.Connection") cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Session("MDB_B") & ";" Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open strSQL, cn, 1, 1 tt=0 For q=1 To rs.RecordCount If iMuse.NullToSp(rs.Fields("KANREN_FILE")) <> "" Then tt=tt+1 End If Next RecCount1 = tt Select Case strKey(0) Case "A" '遺跡 strSQL = "SELECT * FROM IS_KANREN_FL WHERE ISEKI_CH_ID = '" & strKey(1) & "'" Case "B" '遺構 strSQL = "SELECT * FROM IK_KANREN_FL WHERE IKHOU_CH_ID = '" & strKey(1) & "'" Case "C" '遺物 strSQL = "SELECT * FROM IB_KANREN_FL WHERE IBUTU_CH_ID = '" & strKey(1) & "'" End Select Set rs2 = Server.CreateObject("ADODB.RecordSet") rs2.Open strSQL, cn, 1, 1 tt=0 For q=1 To rs2.RecordCount If iMuse.NullToSp(rs2.Fields("FILE_NM")) <> "" Then tt=tt+1 End If Next RecCount2 = tt MaxRec = RecCount1 + RecCount2 ReDim RecArray(MaxRec,3) i=0 t=0 z=0 If RecCount1 > 0 Then For i=1 To RecCount1 z = z + 1 RecArray(z,0)=rs.Fields("KANREN_FILE") RecArray(z,1)=rs.Fields("NAIYOU") RecArray(z,2)=rs.Fields("DATA_KIKAKU") rs.MoveNext Next End If If RecCount2 > 0 Then For t=1 To RecCount2 z = z + 1 RecArray(z,0)=rs2.Fields("FILE_NM") RecArray(z,1)=rs2.Fields("NAIYOU") RecArray(z,2)=rs2.Fields("DATA_KIKAKU") rs2.MoveNext Next End If %>

<% Response.Write "" Response.Write "" Response.Write MaxRec Response.Write " 件該当しました。" Response.Write "" Response.Write "" Response.Write " " If MaxRec > 0 Then %> <% i = 0 For i = 1 To MaxRec Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Next %> 項番 内容 データ規格等 ファイル名 " Response.Write "" Response.Write i Response.Write "" Response.Write " " Response.Write NullRepWSP(RecArray(i,1)) Response.Write " " Response.Write NullRepWSP(RecArray(i,2)) Response.Write " " Response.Write "" Response.Write iMuse.PathFromFileName(CStr(RecArray(i,0)),"\") Response.Write "" Response.Write " <% Else Response.Write " " Response.Write " " Response.Write " " Response.Write " " Response.Write " " Response.Write " " End If '破棄 Set rs = Nothing Set rs2 = Nothing cn.Close %> 　 ">