Lettere a Cupido
Festeggia San Valentino: grida al mondo il tuo amore, chiedi a cupido il suo prezioso aiuto
<%
' 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 %>
<%=CStr(i+1)%><%
Else %>
<%=CStr(i+1)%><%
End If
Next
%>
|
<% End If %>
|
|