<% 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, t, strSQL Dim RecCount Dim strKey Dim objBasp Dim iMuse Dim ret ret = Request.ServerVariables("QUERY_STRING") strKey = Split(ret, ",") Select Case strKey(0) case "iseki" strSQL = "SELECT * FROM K_RPTZH WHERE ISKBS_CH_ID = '"& strKey(1) &"' AND DBSE_CH_KBN = '遺跡' ORDER BY ISKB_NB_SEQ" case "ikhou" strSQL = "SELECT * FROM K_RPTZH WHERE ISKBS_CH_ID = '"& strKey(1) &"' AND DBSE_CH_KBN = '遺構' ORDER BY ISKB_NB_SEQ" case "ibutsu" strSQL = "SELECT * FROM K_RPTZH WHERE ISKBS_CH_ID = '"& strKey(1) &"' AND DBSE_CH_KBN = '遺物' ORDER BY ISKB_NB_SEQ" 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 RecCount = rs.RecordCount 'BASP21 Set objBasp = Server.CreateObject("BASP21") 'iMuse Set iMuse = Server.CreateObject("iMuse.Functions") %> <% Else %>




データが見つかりません。



<% End If %>

<% If RecCount > 0 Then %> <% Do Until rs.EOF %> <% Response.Write "" Response.Write "" Response.Write "" %> 報告書名 <% If rs.Fields("REPOT_CH_ID") <> "" Then Response.Write NullRepWSP(rs.Fields("REPORT")) Else Response.Write " " End If %> 挿図番号 <% If rs.Fields("REPOT_CH_ID") <> "" Then Response.Write NullRepWSP(rs.Fields("SOUZU_NO")) Else Response.Write " " End If %> 図番号 <% If rs.Fields("REPOT_CH_ID") <> "" Then Response.Write NullRepWSP(rs.Fields("ZHN_NO")) Else Response.Write " " End If %> <% rs.MoveNext Loop %>