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 %>
san valentino
<% do while conta 0 Then colore="#EDEAEA" Else colore="#FFFFFF" End If %>
san valentino <%=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 %>
Cupido non ha ancora ricevuto nessuna letterina

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