| Coop. News |
more... |
<%
sql = " select top 3 * from news where newsType=0 order by newspx,newsDate desc"
rs.Open sql,Conn,3
if rs.eof then
%>
|
<%
else
for i=1 to 3
if rs.eof then
newsId = ""
newsdate = ""
newsbody= ""
else
title = rs("newsTitle")
strlen = 14
newsId = rs("newsId")
newsType= rs("newsType")
newsbody= setStrLong(rs("newsbody"),220)
newsdate = rs("newsdate")
rs.movenext
end if
%>
<% if newsId="" then %>
<% else %>
<% if (date() - newsDate <15 ) then
strLen = 50
%>
<% end if
if len(title)>strLen then
title = left(title,strLen-2)+"..."
end if
%>
<%=title%>
<% end if %>
|
<%=newsDate%> |
<%=replace(newsBody,chr(13),"
")%> |
 |
|
|
<% next
end if
rs.close
%>
|
|
|
|
|
<%
sql = " select top 1 * from news where newsType=2 order by newspx,newsDate desc"
rs.Open sql,Conn,3
for i=1 to 1
if rs.eof then
newsId = ""
newsdate = ""
newsbody= ""
else
title = rs("newsTitle")
strlen = 14
newsId = rs("newsId")
newsType= rs("newsType")
newsbody= setStrLong(rs("newsbody"),80)
newsdate = rs("newsdate")
rs.movenext
end if
%>
 |
|
<%=replace(newsBody,chr(13),"
")%> |
<% next
rs.close
%>
|
|
|
|
|
<%
sql = " select top 3 * from news where newsType=3 order by newspx,newsDate desc"
rs.Open sql,Conn,3
for i=1 to 3
if rs.eof then
newsId = ""
newsdate = ""
newsbody= ""
else
title = rs("newsTitle")
strlen = 35
newsId = rs("newsId")
newsType= rs("newsType")
'newsbody= setStrLong(rs("newsbody"),220)
newsdate = rs("newsdate")
rs.movenext
end if
%>
|
<% if newsId="" then %>
<% else %>
<% if (date() - newsDate <15 ) then
strLen = 50
%>
<% end if
if len(title)>strLen then
title = left(title,strLen-2)+"..."
end if
%>
<%=title%>
<% end if %>
|
<%
next
rs.close
%>
|
|
|
|
 |
|
|
