<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("../news/pdtblnws.mdb"))
'create the recordset
Set objRec=Server.CreateObject("ADODB.Recordset")
strSQL="SELECT fID, fTitle, fStory, fText, fLink, fPath, fSQ, fCJ, fAsia FROM news ORDER BY fID Desc"
On Error Resume Next
objRec.Open strSql, conn, adOpenDynamic, adLockOptimistic, adCmdText
%>
<%objRec.MoveFirst
While Not objRec.EOF %>
<%If objRec("fSQ")= True Then%>
<%Response.Write objRec("fTitle")%>
<%Response.Write objRec("fStory")%>
<%If objRec("fLink") <> "" Then%>
">
<%Response.Write objRec("fLink")%>
<%else%>
<%End if%>
<%End If%>
<%objRec.MoveNext
Wend%>
<%
objRec.Close
Conn.Close
%>