 |
<%
dim strSQL
dim iTotalBytes
dim Data
dim bVisualFlag
dim objRS
dim objCon
dim strPH_T_lib_Array(10)
dim strPDF_T_lib_Array(10)
dim strNME_PH_lib_Array(10)
dim strNME_PDF_lib_Array(10)
dim strNME_LINK_lib_Array(10)
dim strLINK_ADD_lib_Array(10)
Dim strCMT_lib_Array(10)
dim iPH_Height_Array(10)
dim iPH_Width_Array(10)
dim strTitleJpeg(10)
dim strWork
Dim i
Dim j
dim Basp
dim strPageName
%>
<%
rem ---------- ここでデータベース登録
rem データベースからデータを取得
Set objCon = Server.CreateObject("ADODB.Connection")
%>
<%
Rem----- コネクションのオープン
objCon.Open
Rem----- レコードセットオブジェクトの生成
Set objRS = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM LIBRARY WHERE Kubun_lib = 3"
objRS.Open strSQL, objCon, 3
if objRS.RecordCount > 0 then
for i=1 to 4
strCMT_lib_Array(i) = ChgStrToCd( trim( objRS.Fields( "CMT"& i &"_lib").Value ))
strNME_PH_lib_Array(i) = ChgStrToCd( trim( objRS.Fields( "NME_PH"& i &"_lib").Value ))
strPH_T_lib_Array(i) = ChgStrToCd( trim( objRS.Fields( "NME_PH"& i &"_T_lib").Value ))
strNME_PDF_lib_Array(i) = ChgStrToCd( trim( objRS.Fields( "NME_PDF"& i &"_lib").Value ))
strPDF_T_lib_Array(i) = ChgStrToCd( trim( objRS.Fields( "NME_PDF"& i &"_T_lib").Value ))
strLINK_ADD_lib_Array(i) = ChgStrToCd( trim( objRS.Fields( "LINK"& i &"_ADD_lib").Value ))
strNME_LINK_lib_Array(i) = ChgStrToCd( trim( objRS.Fields( "NME_LINK"& i &"_lib").Value ))
iPH_Height_Array(i) = objRS.Fields( "PH_y"& i &"").Value
iPH_Width_Array(i) = objRS.Fields( "PH_x"& i &"").Value
next
end if
objRS.Close
Set objRS = nothing
objCon.Close
Set objCon = Nothing
rem ----- エラー処理
if err.number>0 then
server.Transfer("../../inc/ServerError.asp")
end if
On Error goto 0
%>
<% FOR i = 1 to 4 %>
|
<%=replace( strCMT_lib_Array(i), vbCrLf, "
")%>
|
<% IF strNME_PDF_lib_Array( i ) <> "" then %>
|
|
<% END IF %>
<% IF strLINK_ADD_lib_Array( i ) <> "" then %>
|
|
<% END IF %>
<% IF strNME_PH_lib_Array( i ) <> "" THEN %>
 %>)
|
|
<%=strPH_T_lib_Array( i)%>
|
<% END IF %>
<% NEXT %>
