|
<%
set objConn=server.CreateObject ("ADODB.Connection")
set objRS=server.CreateObject ("ADODB.Recordset")
objConn.Open SQLCS
strsql="SELECT * FROM news WHERE ishot=0 ORDER BY news_datetime DESC"
objRS.Open strsql,objConn
counter=0
while not objRS.EOF
counter=counter+1
if counter>8 then
datetime=objRS("news_datetime")
news_link=URL_news_pages&"news_"&objRS("news_id")&".htm"
%>
ยป <%=objRS("news_title")%>
<%
end if
objRS.MoveNext
wend
objRS.close
objConn.close
set objRS=nothing
set objConn=nothing
%> |
