<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> Enzo Santambrogio - Homepage
     
 

 
     
 
<%'numero di news da visualizzare numerello = 80 Dim Conna Set Conna = Server.CreateObject("ADODB.Connection") conna.Open conn_news Dim rs3 Set rs3 = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM news where archivio='si' and ok='si' order by data DESC" rs3.Open sql, conna i=0 Do While i < numerello And Not RS3.EOF %> <%if rs3("imm_01") <> "-" and rs3("imm_01") <> " " then %> <%end if %>
<% response.write "" %>

<% response.write "" & rs3("data") &" - " & rs3("titolo")&"
" %>
<% response.write rs3("descrizione")%>
<% rs3.movenext loop rs3.close set rs3=nothing conna.close set conna=nothing %>