<% 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 "photo"
strSQL = "SELECT * FROM S_PHOTO WHERE SHIRYO_NO = '"& strKey(1) &"'"
case "souzu"
strSQL = "SELECT * FROM K_RPTZH WHERE HOU_ZUHN_ID = '"& strKey(1) &"'"
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")
%>
Kagoshima Prefectural Archaeological Center
<%
If RecCount > 0 Then
Response.Write " = )
"
Response.Write "
"
Response.Write "
"
If strKey(0) = "photo" Then
Response.Write rs.Fields("TITLE_EN")
Else
Response.Write rs.Fields("TITLE_EN")
End If
Response.Write "
"
If strKey(0) = "photo" Then
Response.Write rs.Fields("TSK_SYO_EN")
Else
Response.Write rs.Fields("ZHN_HANKEN_EN")
End If
%>
<%
Else
%>
データが見つかりません。
<% End If %>