<%
set db = new database
db.procname = "spGetNewsandViews"
set oRS = db.execute()
dim desc, i, thisdescription, mycount
do until oRS.EOF
thisdescription=""
desc = split(unstripInput(orS("description"))," ")
if ubound(desc) > 50 then
mycount = 50
else
mycount = ubound(desc)
end if
for i = 1 to mycount
thisdescription = thisdescription & " " & desc(i)
next
%>
<% if ors("image") = "" or isnull(ors("image")) then %>
<%=unstripInput(oRS("headline"))%>
<%=thisdescription%>
" class="morelink">More..
|
 |
<% else %>
"> " border="0">
|
<%=unstripInput(oRS("headline"))%>
<%=thisdescription%>
" class="morelink">More..
|
|
 |
<% end if %>
<% ors.movenext
loop
set ors = nothing
set db = nothing
%>