<% order = "" page = Request.QueryString("page") iPageSize = 5 ' You could easily allow users to change this StrConn = conn strSql = "select * from Entries ORDER by id DESC" NameOfFile = Request.ServerVariables("Script_Name") %>


 

<%if nofound = true then response.write("" & noMessage & "")%> <% ' ---------------------- LOOPING ----------------------------- ' ' Start output with a page x of n line iRecordsShown = 0 Do While iRecordsShown < iPageSize And Not objPagingRS.EOF%>
<% if IsNull(objPagingRS("date")) then %> <% else %> <%=objPagingRS("date")%> <% end if %> - <%=objPagingRS("time")%>
 
<% messaggio = objPagingRS("message") ' sostituzione dei caratteri asci con le emoticons messaggio = replace(messaggio,symb1,symb1_) messaggio = replace(messaggio,symb2,symb2_) messaggio = replace(messaggio,symb3,symb3_) messaggio = replace(messaggio,symb4,symb4_) messaggio = replace(messaggio,symb5,symb5_) messaggio = replace(messaggio,symb6,symb6_) messaggio = replace(messaggio,symb7,symb7_) messaggio = replace(messaggio,symb8,symb8_) messaggio = replace(messaggio,symb9,symb9_) messaggio = replace(messaggio,symb10,symb10_) messaggio = replace(messaggio,symb11,symb11_) messaggio = replace(messaggio,symb12,symb12_) response.write(messaggio) %> 		 
     

<% iRecordsShown = iRecordsShown + 1 ' Increment the number of records we've shown objPagingRS.MoveNext Loop ' Close DB objects and free variables objPagingRS.Close Set objPagingRS = Nothing ' ----------------------- END LOOPING -------------------------------------%>
<%If iPageCurrent <> 1 Then%> prev <% End If%> <% if iPageCount > 0 then %>
Page <%= iPageCurrent %> of <%= iPageCount %>
<%end if%>
<%If iPageCurrent < iPageCount Then %> next <%End If%>