Proposte/Eventi

<% ' dichiaro la variabile Conn di connessione Dim Conn ' eseguo la connessione con password Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.Mappath("areanewsext/dbdata/db_gest.mdb") & ";PWD=sxloptex" %> <% ' dichiaro la variabile che conterr l'oggetto Recordset Dim rs 'creo l'oggetto Recordset Set rs = Server.CreateObject("ADODB.Recordset") 'Eseguo la query SQL SELECT rs.Open "SELECT * FROM news", Conn %> <% Do While not rs.EOF %>


<% rs.MoveNext Loop %>


l'agrifoglio - Località Montesasso - Cavallasca (CO) - Tel. 031.536.532