<% 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 'iMuse Set iMuse = Server.CreateObject("iMuse.Functions") PID = Request.ServerVariables("QUERY_STRING") strKey = PID '報告書 strSQL = "SELECT * FROM RH_KANREN_FL WHERE REPOT_CH_ID = '" & strKey & "'" 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 MaxRec = rs.RecordCount ReDim RecArray(MaxRec,3) i=0 t=0 z=0 For i=1 To MaxRec z = z + 1 RecArray(z,0)=rs.Fields("FILE_NM") RecArray(z,1)=rs.Fields("NAIYOU") RecArray(z,2)=rs.Fields("DATA_KIKAKU") rs.MoveNext Next %>

<% 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 cn.Close %>