<% set rs = server.CreateObject("ADODB.recordset") set DB = server.CreateObject("ADODB.Connection") DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=C:\Inetpub\vhosts\sportstime.com.mx\httpdocs\db\audio.mdb") SQL = "SELECT * FROM audioNotas WHERE zstatus = 'A' ORDER BY id DESC;" rs.open SQL, DB, 3, 3 Response.ContentType="text/xml" XML = "" XML = XML & "" while not rs.eof XML = XML & "" rs.movenext wend XML = XML & "" rs.close DB.close response.Write(XML) %>