<%
Response.Status="301 Moved Permanently"
Response.AddHeader "Location", " http://www.taraservice.com/articulos-ver.php?id="+request("id")
DIM conn
set conn=NEW clsBaseDeDatos
DIM rs
set rs=NEW clsCursor
DIM id
DIM articulos
set articulos = new clsListaArticulos
id=cint(request("id"))
conn.abrir K_CONNECTION_STRING_MAIN
rs.abrir conn, "select * from articulos WHERE ok='True' AND id=" & id, adOpenForwardOnly
if not rs.eof then
' Establezco titulo de la pagina
session("titulo") = rs.campo("titulo")
session("descripcion") = rs.campo("breve_resumen")
session("claves") = rs.campo("claves")
end if
%>
Los artículos de TaraService.com
<% Adsense468x60_amarillo %>
<%
if not rs.eof then
%>
"<%=rs.campo("titulo")%>"
<%=rs.campo("breve_resumen")%>
<% Adsense160x600 %>
<%=rs.campo("texto")%>
<%
' Incrementar views del articulo
conn.conn.execute "UPDATE articulos SET accesos=accesos+1 WHERE Id=" & id
else
%>
No se ha encontrado el artículo solicitado.
<%
end if
rs.cerrar
set rs=nothing
conn.cerrar
set conn=nothing
Volver
%>