<%
on error resume next
sql = "select Subject, PID, CatID from tblPost where CatID = 3 and PID < 32 and onLine = 'Y' Order by pOrder desc "
set rs = server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 1
if not rs.EOF then
i = 1
Do Until rs.EOF
%>