<% Dim rs, cn, sql sql = "SELECT * FROM Login" Set rs = Server.CreateObject("ADODB.Recordset") Set cn = Server.CreateObject("ADODB.Connection") cn.Open "AccessoAsp" 'Set rs.ActiveConnection = cn rs.Open sql, cn Do While not rs.EOF ' Specificare qui il nome della tabella dove cercare i campi contenuti Response.Write rs("Username") & "
" Rs.MoveNext Loop rs.Close Set rs = Nothing cn.Close Set cn = Nothing %>