<% Dim adoCon Dim rs Dim strSQL dim column column = 1 Set adoCon = Server.CreateObject("ADODB.Connection") adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("./spfreaknet.mdb") strSQL = "SELECT * FROM randomthoughts ORDER BY blognumber DESC" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open strSQL, adoCon count=1 rs.movefirst %> <% do while count < 5 response.write "" rs.movenext count = count + 1 loop %>
" & rs("blognumber") & " " & rs("title") & "
" & rs("date") & "

...more Previous Entries <% rs.close %>