お知らせ


図書室からのお知らせ

日程が決まり次第、随時更新していきます。お楽しみに!
くわしくは図書館にお問い合わせください。

<% Set rs=Server.CreateObject("ADODB.Recordset") strSQL = "select * from data" ConnStr = "Driver={Microsoft Excel Driver (*.xls)};DBQ=" & _ Server.MapPath("./お知らせ.xls") & ";" Rs.Open strSQL, ConnStr For i = 0 to 60 If RS.EOF then exit for End If If isnull(RS(1)) then exit for End If If RS(0) = 1 then %> <% end if RS.MOVENEXT Next rs.Close Set rs = Nothing 'Conn.Close %>
日時
行事名
場 所
内 容
<%=RS(1)%>
<%=RS(2)%>
<%=RS(3)%>
<%=RS(4)%>
<%=RS(5)%>
<%=RS(6)%>
<%=RS(7)%>
<%=RS(8)%> <% if not isnull(RS(9)) then %>
<%=RS(9)%> <% end if %>



Copyright(C)2007 Uonuma public library.All rights reserverd.