<% Dim DB, SQL, rs Set DB = Server.CreateObject("ADODB.Connection") set rs=Server.CreateObject("ADODB.Recordset") DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=C:\Inetpub\vhosts\sportstime.com.mx\httpdocs\db\" & DB_) %> <% SQL = "SELECT * FROM boxeo where status = 'A'" rs.open SQL, DB, 3, 3 while not rs.eof %> " />
<%= rs.fields("pie") %>
<%= rs.fields("titulo") %>
<%= rs.fields("introduccion") %>
<%= rs.fields("nota") %>
<% rs.movenext wend rs.close DB.close %>