%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% 'Character score generated by Victor W. Chen - 9.16.2008 - V.1.12 dim chars, counter set newsrelease = Server.CreateObject("ADODB.Recordset") newsrelease.ActiveConnection = CONNECTION_STRING newsrelease.Source = "SELECT top 5 headline, url_link, thumbnail FROM News ORDER BY date DESC" newsrelease.CursorType = 1 newsrelease.CursorLocation = 2 newsrelease.LockType = 3 newsrelease.Open() newsrelease_numRows = 0 %>
Top Stories
|
<% If Len(newsrelease.Fields.Item("thumbnail").Value) > 0 AND chars < 400 then %>
<% counter = counter + 1 %>
<% chars = chars + 146 %>
<% End If %> <% chars = chars + (cInt(Len((newsrelease.Fields.Item("headline").Value))) + 60) %> " class="story_items_db" target="_blank"><%=(newsrelease.Fields.Item("headline").Value)%> <% If chars < 500 AND counter < 5 then %> <% End If %> <% 'response.write chars %> |