<%@ LANGUAGE="VBSCRIPT" %>
<%Response.Buffer=TRUE%>
<%
Set rsSettings = Server.CreateObject("ADODB.Recordset")
strSettingsSQL = "SELECT shownum,contentbgcolor,infobgcolor,infotextcolor,bordercolor,headbgcolor FROM tblsettings"
rsSettings.Open strSettingsSQL, adoCon
Set rsViewNews = Server.CreateObject("ADODB.Recordset")
strViewSQL = "SELECT TOP " & rsSettings("shownum") & " heading, [ID], [Timestamp], postedby, content FROM tblnews ORDER BY [ID] DESC"
rsViewNews.Open strViewSQL, adoCon
Do While NOT rsViewNews.EOF
%>
style='border-collapse:collapse;'> style='font-family:verdana;font-weight:bold;font-size:8pt;'>
<%Response.Write (rsViewNews("heading"))%>
|
| >
<%Response.Write (rsViewNews("content"))%>
|
| >>
<%Response.Write (rsViewNews("timestamp"))%>
| >>Posted by
<%Response.Write (rsViewNews("postedby"))%>
 |
<%
rsViewNews.MoveNext
Loop
Set rsViweNews = Nothing
Set rsSettings = Nothing
Set adoCon = Nothing
%>