- BODAS, BAUTIZOS y COMUNIONES -

<% strconn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("admin/private/dades.mdb") set baseDB = server.createobject("adodb.connection") baseDB.open strconn 'Set objRS = Server.CreateObject("ADODB.Recordset") 'strSQL = "SELECT id, pregunta FROM [noticias]" catego="Helados" sql = "SELECT * FROM bbc" set objRS = baseDB.Execute(sql) %> <% Do Until objRS.EOF %> <% if not(objRS.EOF) then objRS.Movenext %> <% Loop %>

 
<% objRs.Close Set objRs = Nothing baseDB.Close set baseDB = Nothing %>