
<%
Set wsnpRs = Server.CreateObject("ADODB.Recordset")
wstrSQL = "SELECT NEWS.* FROM NEWS"
wstrSQL = wstrSQL & " WHERE NEWS.status = 1"
wstrSQL = wstrSQL & " ORDER BY NEWS.news_code DESC"
wsnpRs.Open wstrSql, gadoCon, adOpenStatic, adLockReadOnly, adCmdText
If not wsnpRs.EOF Then
Do until wsnpRs.EOF
If InStr(gfNz(wsnpRs("news"),""),"href") > 0 Then
wstrNews = gfNz(wsnpRs("news"),"")
Else
wstrNews = gfAutoLink(gfNz(wsnpRs("news"),""))
End If
%>
- <%=gfNz(wsnpRs("newsday"),"")%>
- <%=wstrNews%>
<%
wsnpRs.MoveNext
Loop
End If
wsnpRs.Close
Set wsnpRs = Nothing
%>