<% ' 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 %>
<% End If do while conta
La Befana non ha ancora ricevuto nessuna letterina <% End If connDB.Close Set connDB=Nothing %> |