<% ' Get the Product ID NewsID = Request( "NewsID" ) ' Aggiorna Contatorare sqlString="UPDATE news SET news_conta=news_conta+1 WHERE news_ID=" & NewsID Con.Execute( sqlString ) ' Open the Recordset Set RS = Server.CreateObject( "ADODB.Recordset" ) RS.ActiveConnection = Con RS.CursorType = 3 RS.Open "SELECT * FROM News WHERE news_ID=" & newsID %> .: Camesasca :.


DETTAGLIO NEWS/PROMOZIONI

<%=Day(RS("news_data"))%> <%=MonthName(Month(RS("news_data")))%> <%=year(RS("news_data"))%> Back
 
<%=RS("news_titolo")%> <% IF RS("news_imgs")<>"?????" THEN %> " rel="lightbox">" border="0" style="border:1px solid #9f9e9d;"> <% END IF %> <% IF RS("news_img1s")<>"?????" THEN %> " rel="lightbox">" border="0" style="border:1px solid #9f9e9d;"> <% END IF %> <% IF RS("news_img2s")<>"?????" THEN %> " rel="lightbox">" border="0" style="border:1px solid #9f9e9d;"> <% END IF %> <% IF RS("news_img3s")<>"?????" THEN %> " rel="lightbox">" border="0" style="border:1px solid #9f9e9d;"> <% END IF %>

<% IF RS("News_allegato1")<>"?????" THEN %> " target="_blank">Scarica l'Allegato
<% End If %>

<%=RS("news_desc")%>

<% RS.Close SET RS=Nothing %>