<% 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 RecCount Dim PID Dim pi Dim t Dim strYear Dim strNM PID = Request.ServerVariables("QUERY_STRING") strSQL = "SELECT * FROM IS_TY_REKI WHERE ISEKI_CH_ID = '" & PID & "'" 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 RecCount = rs.RecordCount %>

<% Response.Write "" Response.Write "" Response.Write RecCount Response.Write " 件該当しました。" Response.Write "" Response.Write "" Response.Write " " If rs.PageCount > 0 Then %> <% Do Until rs.EOF i = i + 1 Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" rs.MoveNext Loop %> 項番 調査年 調査主体 " Response.Write "" Response.Write i Response.Write "" Response.Write " " Response.Write "" strYear = "" strYear = rs.Fields("TY_YEAR") 'If Len(strYear) > 12 Then ' strYear = Mid(strYear, 1, 12) & "..." 'End If Response.Write NullRepWSP(strYear) Response.Write "" Response.Write " " 'Response.Write "" strNM = "" If rs.Fields("TY_SYUTAI1") <> "" Then strNM = rs.Fields("TY_SYUTAI1") End If If rs.Fields("TY_SYUTAI2") <> "" Then If strNM <> "" Then strNM = strNM & "， " & rs.Fields("TY_SYUTAI2") Else strNM = rs.Fields("TY_SYUTAI2") End If End If If rs.Fields("TY_SYUTAI3") <> "" Then If strNM <> "" Then strNM = strNM & "， " & rs.Fields("TY_SYUTAI3") Else strNM = rs.Fields("TY_SYUTAI3") End If End If 'If Len(strNM) > 24 Then ' strNM = Mid(strNM, 1, 24) & "..." 'End If Response.Write NullRepWSP(strNM) 'Response.Write "" Response.Write " <% Else Response.Write " " Response.Write " " Response.Write " " Response.Write " " Response.Write " " Response.Write " " End If '破棄 cn.Close Set rs = Nothing %> 　 ">