株式会社KRC--社外活動

<%@ Language=VBScript %> <% Option Explicit 'On Error Resume Next Dim Rs,Cn,strSQL Dim pagesize:pagesize=10 Dim maxrec:maxrec=5000 Dim pagenum:pagenum=1 Dim page,i Set Cn=Server.CreateObject("ADODB.Connection") Set Rs=Server.CreateObject("ADODB.Recordset") Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\WDB\krc.mdb" strSQL="SELECT * FROM newsTBL WHERE cid=2 ORDER BY id DESC" %> 株式会社KRC--社外活動

<% Rs.Open strSQL,Cn,1,3 If Rs.EOF Then %>

現在記事はありません。

<% Else %> <% Do Until Rs.EOF %> <% Rs.MoveNext Loop Rs.MoveFirst %>

<%=right(year(Rs("postdate")),2) & "." & right("0" & month(Rs("postdate")),2) & "." & right("0" & day(Rs("postdate")),2)%>　

"><%=Rs("title")%>

<% Do Until Rs.EOF %> ">

<%=right(year(Rs("postdate")),2) & "." & right("0" & month(Rs("postdate")),2) & "." & right("0" & day(Rs("postdate")),2)%>　

<%=Rs("title")%>

<%=Replace(Rs("comment"),vbCrlf,"
")%>

　

<%If Rs("phot")<>"" Then%> &id=<%=Rs("id")%>&pn=" target="_blank">

" width="200" height="149" border="0"> <%End If%>

<%=Replace(Rs("photcomment"),vbCrLf,"
")%>

　

<%If Rs("phot2")<>"" Then%> &id=<%=Rs("id")%>&pn=2" target="_blank">

" width="200" height="149" border="0"> <%End If%>

<%=Replace(Rs("photcomment2"),vbCrLf,"
")%>

<% Rs.MoveNext Loop %>

<% End If %>

<% Rs.Close Cn.Close Set Rs=Nothing Set Cn=Nothing %>