Letterine alla Befana

<% ' Inizializzo il numero di pagina, settando il valore di default n_pagina_ric = Request.QueryString("n_pagina") If n_pagina_ric="" Then n_pagina_ric=1 End If Dim rs_lettere_attive conta=0 call sLettereAttive(connDB, 25, rs_lettere_attive) 'Salvo il numero totale di pagine presenti n_totale_pagine=rs_lettere_attive.PageCount If n_totale_pagine<>1 Then %>
<% For i=1 to n_totale_pagine If Clng(i)=Clng(n_pagina_ric) Then %> <%=i%><% Else %> <%=i%><% End If Next %>

<% End If do while conta 0 Then colore="#EDEAEA" Else colore="#FFFFFF" End If %>
<%=data%> <%=nome%> <%=cognome%> <%=oggetto_domanda%>
<% rs_lettere_attive.MoveNext conta=conta+1 loop rs_lettere_attive.Close Set rs_lettere_attive=Nothing If conta=0 Then %>
La Befana non ha ancora ricevuto nessuna letterina

<% End If connDB.Close Set connDB=Nothing %>