<%@ LANGUAGE = VBScript %> <% Response.Write("") Dim adoCon, RS, strCon, strSql Set adoCon = Server.CreateObject("ADODB.Connection") set RS = Server.CreateObject("ADODB.Recordset") strCon = "DRIVER={Microsoft Access Driver (*.mdb)};" strCon = strCon & "DBQ=" & Server.MapPath("sanf.mdb") strSql= "SELECT TOP 8 * FROM tblSANF order by fullvolume desc" adoCon.open strCon, 3,3 RS.Open strSQL, strCon While Not RS.EOF %>

<% Response.Write("" & rs("Title") & "") %>	<% Response.Write(" - " & rs("fullvolume") & "") %>
<% IF rs("author") <> vbnullstring Then Response.Write(" - by " & rs("Author") & " ") End If asa = rs("body") a = Split(asa," ") Response.Write(a(0)) %>

<% RS.MoveNext Wend set RS=nothing 'strCon.close %>