<%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) %>           " target="_blank"> <%if (objPagingRS("home") <> "") then response.write(objPagingRS("home")) end if%> " title="scrivi all'autore"><%=objPagingRS("Nick")%>

<% 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%> <% End If%>

<% if iPageCount > 0 then %> Page <%= iPageCurrent %> of <%= iPageCount %> <%end if%>

<%If iPageCurrent < iPageCount Then %> <%End If%>