<% Dim cn Dim rs Dim SQL Dim connectionstring connectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("_databasemiriam/miriam.mdb") SQL = "SELECT dati, hotel FROM tabella1 WHERE hotel = 'miriam.pietra.ligure'" Set cn = CreateObject("ADODB.Connection") set rs = CreateObject("ADODB.RecordSet") cn.Open connectionString rs.ActiveConnection = cn rs.Open SQL WHILE NOT rs.EOF %> <%=rs("dati")%> <%rs.MoveNext Wend rs.close cn.close%>