<%
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
%>
<%=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 %>
<%
end if
RS.MOVENEXT
Next
rs.Close
Set rs = Nothing
'Conn.Close
%>
Copyright(C)2007 Uonuma public library.All rights reserverd.