<% 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 strGet Dim strKey Dim objBasp Dim iMuse Dim rs2 Dim strImg strGet = Request.ServerVariables("QUERY_STRING") strKey = Split(strGet,",") strSQL = "SELECT * FROM IS_TY_REKI WHERE ISEKI_CH_ID = '"& strKey(0) &"'" strSQL = strSQL & " AND SEQ = "& strKey(1) &"" 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 'BASP21 Set objBasp = Server.CreateObject("BASP21") 'iMuse Set iMuse = Server.CreateObject("iMuse.Functions") 'Response.Write strSQL %>

<% If RecCount > 0 Then %> <% Else %> データが見つかりません。 <% End If %> 種別 <% =NullRepWSP(rs.Fields("SYUBETSU")) %> 種類 <% =NullRepWSP(rs.Fields("SYURUI")) %> 調査主体１ <% =NullRepWSP(rs.Fields("TY_SYUTAI1")) %> 調査主体２ <% =NullRepWSP(rs.Fields("TY_SYUTAI2")) %> 調査主体３ <% =NullRepWSP(rs.Fields("TY_SYUTAI3")) %> 調査年 <% =NullRepWSP(rs.Fields("TY_YEAR")) %> 調査原因 <% =NullRepWSP(rs.Fields("TY_GENIN")) %> 調査面積 <% =NullRepWSP(rs.Fields("TY_MENSEKI")) %>