<% '--- Visualizzo le notizie in ordine di data '--- generando la tabella dinamicamente set conn=server.createobject("ADODB.Connection") '--- commentare questa istruzione per la versione sul server locale con ODBC conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ= " & Server.Mappath("mdb-database/NewsRisArturo.mdb") & " ; " 'conn.Open "DSN=confcommercio;UID=fad13;PWD=nilorca;" 'set session("News")=conn set dati=server.createobject("ADODB.recordset") DIM TESTO(10) TIPO="TESTATA" sql="Select * from NOTIZIE Where TIPO='" & TIPO & "' order by ORDINE" dati.Open sql,conn,3,3 'Response.write sql & "
" 'Response.flush if not dati.EOF then dati.MoveFirst I=0 while not dati.EOF if isnull(dati("TESTO")) or dati("TESTO")="" then testo(I)="" else testo(I)=dati("TESTO") end if DATI.MOVENEXT I=I+1 WEND END IF dati.Close conn.Close set conn=nothing %>