<%
SQL = "SELECT NewsID, Date, Title, News, picture, link FROM tblNews WHERE ((Not (deleted)=True)) ORDER BY nOrder DESC, Date DESC "
Set Recordset = connection.execute (SQL)
do while not Recordset.eof
response.Write "
<%
'close the connection and recordset objects freeing up resources
Recordset.Close
Set Recordset=nothing
Connection.Close
Set Connection=nothing
%>
"
response.Write (vbnewline)
response.Write ""
response.Write (vbnewline)
response.Write "
" end if response.Write "
"
response.Write (vbnewline)
response.Write (vbtab)
Recordset.MoveNext
loop
%>
" & left(monthname(month(Recordset("Date"))),3) & " " & day(Recordset("Date")) & " - " & Recordset("Title") & "
"
response.Write (vbnewline)
response.write ""
response.Write (vbnewline)
if recordset("picture") <> "" then
if recordset("link") <> "" then
response.Write ""
response.Write (vbnewline)
response.Write ""
response.Write "![](thumber.php?img=images/blog/" & recordset("picture") & "&w=200&h=272)
"
response.Write (vbnewline)
response.Write "
"
response.Write (vbnewline)
else
response.Write ""
response.Write (vbnewline)
response.Write ""
response.Write (vbnewline)
response.Write "
"
response.Write (vbnewline)
end if
end if
if recordset("news") <> "" then
response.Write ""
response.Write (vbnewline)
response.Write Recordset("News") & "
" response.Write "
"
response.Write (vbnewline)
else
'response.Write "" response.Write "
" end if response.Write "