<%=smNoNews%>
<%Else With rsData sCurrentCat="" sOldCat = "" bCloseQuote = False While Not .EOF If (recordPosition > ( (iCurrentPage-1)*gcNewsPerPage )) And ( recordPosition < ( iCurrentPage*gcNewsPerPage +1 ) ) Then ' Set the new category to check if the next is the same category If IsNull(.Fields("category")) Then sCurrentCat = "" Else sCurrentCat = .Fields( "category" ) End If If sCurrentCat <> sOldCat Then If bCloseQuote Then Response.Write ""%> <%=.Fields("Category")%><%End If%> "><%=.Fields("Headline")%>" .Close End With End If If iCurrentPage >1 Then %> <%=smPrev%> | <% End If If (iCurrentPage-1.0) < (FLOOR( iNewsCount / gcNewsPerPage )) Then If (iCurrentPage+0.0) <> ( (iNewsCount / gcNewsPerPage)+0.0 ) Then %> <%=smNext%> <%End If End If ' Delete old records Randomize iNumber = Int( 10 * Rnd ) + 1 If iNumber <= 2 Then conDB.Execute "DELETE FROM News WHERE '" & Date & "' > (PublicationDate + ActiveDays) AND AutoRemovible=1" ' Returns a value even if the variable in the request is not defined Function DefaultRequest(ByVal sRequestVariable, vDefaultValue) If IsRequestDefined(sRequestVariable) Then DefaultRequest = Request(sRequestVariable) Else DefaultRequest = vDefaultValue End If End Function ' Tells if a variable was passed or not Function IsRequestDefined(sVarName) IsRequestDefined = Len(Request(sVarName)) > 0 End Function Function Floor(byval n) Dim iTmp, bErr on error resume next n = cdbl(n) if err then bErr = true on error goto 0 if bErr then Err.Raise 5000, "Floor Function", _ "Input must be convertible to a sub-type of double" 'Round() rounds up iTmp = Round(n) 'test rounded value against the non rounded value 'if greater, subtract 1 if iTmp > n then iTmp = iTmp - 1 Floor = cInt(iTmp) End Function %>
<% End If recordPosition = recordPosition + 1 sOldCat = sCurrentCat bCloseQuote = True .MoveNext Wend If bCloseQuote Then Response.Write "