<% dim cRS,cnt
if len(request("news"))>1 then
SQLstr="SELECT NE_NEWS.* FROM NE_NEWS WHERE NE_KEY=" & request("news") &";"
else
SQLstr="SELECT NE_NEWS.* FROM NE_NEWS WHERE NE_SHOW_DATE<= #" & date &"# AND NE_EXPIRE_DATE>= #" & date &"# AND NE_PUBLISHED IS NOT NULL ORDER BY NE_PUBLISHED DESC;"
end if
tCmd.CommandText=sqlStr
tCmd.CommandType=adCmdText
set cRS= Server.CreateObject("ADODB.RecordSet")
cRS.Open tCmd,,adOpenKeyset,adLockReadOnly
%>
<%do while not cRS.EOF
cnt=cnt+1%>
<% If cnt>1 then %>
<% End If %>
<%=cRS("NE_TITLE")%>
<%=cRS("NE_SYNOPSIS")%>
<%if len(cRS("NE_BODY"))>0 and len(request("NEWS"))<1 then 'extra info, link%>
">More Info
<%else%>
<%=cRS("NE_BODY")%>
<%end if%>
<% cRS.Movenext
loop
cRS.Close
Set cRS = Nothing
%>
|
