<% Else %> There are no <%= articletype %> from section: <%= articlecategory %> under subcategory: <%= articlesubcategory %>. Please try another combination.
<% End If %>
<% If Not objRSselector.EOF Then objRSselector.MoveFirst End If Dim currentrecord prevbutton = False if pageno > 1 Then prevbutton = True prevpageno = pageno - 1 recordsshown = pageno * pagesize recordsshown = recordsshown - pagesize currentrecord = 0 Do While currentrecord < recordsshown currentrecord = currentrecord + 1 objRSselector.Movenext Loop End if totalcount = 0 Do While Not objRSselector.EOF and totalcount <= pagesize %> "> > <%= Shorten(trim(objRSselector.Fields("articletitle")),280) %> <% newsid = trim(objRSselector.Fields("newsdate")) If newsid <> "" Then %> <%= objRSselector.Fields("newsdate") %> <% End if %>
<% totalcount = totalcount + 1 objRSselector.MoveNext Loop If pageno > 1 Then prevpageno = pageno - 1 prevbutton = True Else prevbutton = False End if If not objRSselector.EOF Then pageno = pageno + 1 nextbutton = True Else nextbutton = False End if objRSselector.Close Set objRSselector = Nothing Set cnnFormToDBselector = Nothing %>
<% objRS.MoveNext Loop objRS.Close Set objRS = Nothing Set cnnFormToDB = Nothing %>
<% objRSread.MoveNext Loop objRSread.Close Set objRSread = Nothing Set cnnFormToDBread = Nothing %>