<% ' Get the Current Page pg = TRIM( Request( "pg" ) ) IF pg = "" THEN pg = 1 %> .: Camesasca :.

NEWS/PROMOZIONI

<% sqlString = "SELECT * FROM news WHERE news_status=1 ORDER BY news_data DESC" Set RS = Server.CreateObject( "ADODB.Recordset" ) RS.ActiveConnection = Con RS.CursorType = 3 RS.PageSize = 10 RS.Open sqlString IF NOT RS.EOF THEN RS.AbsolutePage = pg %> <% IF RS.PageCount > 1 THEN %>
Pagina:  <% FOR i = 1 to RS.PageCount IF i <> cINT( pg ) THEN %> <%=i%>  <% ELSE %> <%=i%>  <% END IF %> <% NEXT %>
<% END IF %> <% WHILE NOT RS.EOF AND rowCount < RS.PageSize rowCount = rowCount + 1 %> <% RS.MoveNext WEND RS.Close SET RS=Nothing %>
<% IF RS("news_imgs")<>"?????" THEN %> " align="right" border="0" style="border:1px solid #9f9e9d;"> <% END IF %> <%=Day(RS("news_data"))%> <%=MonthName(Month(RS("news_data")))%> <%=year(RS("news_data"))%>
<%=RS("news_titolo")%>
" class="testoexpl">[ dettagli ]