|
<%
dim sql_cons,oRs1,clasificacion
clasificacion = request.QueryString("id")
' estructuro la sentencia sql para obtener todos los elementos a mostrar
sql_cons = "SELECT titulo,id_articulo,mensaje FROM contenidos where clasificacion = '"& clasificacion &"' and estado = true;"
' defino el objeto que almacenara los datos
Set oRs1 = Server.CreateObject("adodb.recordset")
' abro la base de datos
abre_bd("almacen01")
' ejecuto la consulta
transaccion_consulta sql_cons, oRs1, oConn
' muestro los resultados
if not oRs1.eof then
%>
| |
<% response.write oRs1("titulo") %> |
|
 |
|
| |
<% response.write oRs1("mensaje") %> |
|
<%
end if
cierra_bd()
set oRs1 = nothing
%> |
| |
|
|
 |
|
