<% 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_A") & ";" 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 %> <% Dim strKey1 Dim strTitle1 Dim strPath1 Dim strKey2 Dim strTitle2 Dim strPath2 Dim strKey3 Dim strTitle3 Dim strPath3 t=0 Do Until rs.EOF If rs.EOF = False Then strKey1 = rs.Fields("HOU_ZUHN_ID") strPath1 = MidImagePath(rs.Fields("GAZ_CH_PATH")) strTitle1 = ImageTitle(rs.Fields("TITLE")) rs.MoveNext Else strKey1 = "" strPath1 = "" strTitle1 = "" End If If rs.EOF = False Then strKey2 = rs.Fields("HOU_ZUHN_ID") strPath2 = MidImagePath(rs.Fields("GAZ_CH_PATH")) strTitle2 = ImageTitle(rs.Fields("TITLE")) rs.MoveNext Else strKey2 = "" strPath2 = "" strTitle2 = "" End If If rs.EOF = False Then strKey3 = rs.Fields("HOU_ZUHN_ID") strPath3 = MidImagePath(rs.Fields("GAZ_CH_PATH")) strTitle3 = ImageTitle(rs.Fields("TITLE")) rs.MoveNext Else strKey3 = "" strPath3 = "" strTitle3 = "" End If %> <% If strKey1 <> "" Then %> <% Else %> <% End If %> <% If strKey2 <> "" Then %> <% Else %> <% End If %> <% If strKey3 <> "" Then %> <% Else %> <% End If %> <% If strKey1 <> "" Then %> <% Else %> <% End If %> <% If strKey2 <> "" Then %> <% Else %> <% End If %> <% If strKey3 <> "" Then %> <% Else %> <% End If %> <% Loop %> <% =strTitle1 %> <% =strTitle2 %> <% =strTitle3 %>