<%
DIM conn
set conn=NEW clsBaseDeDatos
DIM cursor
set cursor=NEW clsCursor
DIM descripcion
DIM titulo
DIM id
id=cint(request("id"))
if id=0 then id=cint(request("articulo"))
session("description")="Listado de los articulos publicados en SoloPostres.com, relacionados con la elaboración de postres y gastronomia en general"
session("title")="Articulos informativos en SoloPostres.com"
%>
<%
BloqueLinks468x60()
%>
|
Artículos informativos en SoloPostres.com
Listado de los articulos publicados en SoloPostres.com, relacionados con la elaboración de postres y gastronomia en general
|
<%
conn.abrir K_CONNECTION_STRING_MAIN
reg=1 'Nº de registro en el que estoy
cursor.abrir conn, "SELECT A.id, A.titulo, left(A.texto," & K_CANT_CARACTERES_TEXTO_FICHITA & ") as texto, A.accesos FROM Articulos A ORDER BY id DESC ", adOpenForwardOnly
while not cursor.eof
if reg mod 3=1 then response.write ""
%>
|
<%
FichitaArticulo cursor.campo("id"),cursor.campo("titulo"), cursor.campo("texto")
%>
|
<%
cursor.movenext
reg = reg +1 'Siguiente registro
if reg mod 3=1 then response.write "
"
wend
cursor.cerrar
set cursor=nothing
conn.cerrar
set conn=nothing
%>
[ Volver ]