<% 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 = '遺跡'" case "ikhou" strSQL = "SELECT * FROM K_RPTZH WHERE ISKBS_CH_ID = '"& strKey(1) &"' AND DBSE_CH_KBN = '遺構'" case "ibutsu" strSQL = "SELECT * FROM K_RPTZH WHERE ISKBS_CH_ID = '"& strKey(1) &"' AND DBSE_CH_KBN = '遺物'" 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 %> <% t=0 Response.Write "" Do Until rs.EOF t=t+1 If t=4 OR t=7 OR t=10 OR t=13 OR t=16 Then Response.Write "" Response.Write "" End If Response.Write "" t=t+1 Response.Write "" t=t+1 Response.Write "" Loop %> " If rs.EOF = False Then Response.Write "" Response.Write "" Response.Write "" Response.Write " " Response.Write ImageTitle(rs.Fields("TITLE_EN")) Response.Write " " Response.Write " " rs.MoveNext End If Response.Write " " If rs.EOF = False Then Response.Write "" Response.Write "" Response.Write "" Response.Write " " Response.Write ImageTitle(rs.Fields("TITLE_EN")) Response.Write " " Response.Write " " rs.MoveNext End If Response.Write " " If rs.EOF = False Then Response.Write "" Response.Write "" Response.Write "" Response.Write " " Response.Write ImageTitle(rs.Fields("TITLE_EN")) Response.Write " " Response.Write " " rs.MoveNext End If Response.Write "