<%@ Language=VBScript %> <% Option Explicit Dim Rs,Cn,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" %>

	<% Rs.Open "SELECT * FROM acvTBL ORDER BY id DESC",Cn,1,3 i=0 Do Until Rs.EOF %> > <% If i=0 Then i=1 Else i=0 Rs.MoveNext Loop %> <%=Rs("title")%> <%=replace(Rs("body"),vbCrLf," ")%>