<% set DB = server.CreateObject("ADODB.connection") set rs = server.CreateObject("ADODB.Recordset") DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("../../db/_spmdb.mdb")) SQL = "select * from atletas" rs.open SQL,DB,3,3 while not rs.eof response.Write(rs.fields("atleta") & " " & rs.fields("status") & "
") rs.movenext wend rs.close %>