<%@ Language=VBScript %> <% Option Explicit dim conexion, registros dim sql, id_var set conexion = Server.CreateObject ("ADODB.connection") %><% conexion.CursorLocation = 3 conexion.open set registros = Server.CreateObject ("ADODB.RECORDSET") registros.CursorLocation = 2 registros.CursorType = 2 registros.LockType = 3 %> CIEC - Comunicado - Centro de Prensa
<% sql = "select * from ciec_comunicados where id='" & request("id_var") &"'" registros.open sql,conexion,1 %>

 Click para imprimir

<%=registros("titulo")%> 

<%=registros("contenido")%> 

<% response.write(datepart("d",registros("fecha"))) dim mes mes=datepart("m",registros("fecha")) select case mes case 1 mes="enero" case 2 mes="febrero" case 3 mes="marzo" case 4 mes="abril" case 5 mes="mayo" case 6 mes="junio" case 7 mes="julio" case 8 mes="agosto" case 9 mes="septiembre" case 10 mes="octubre" case 11 mes="noviembre" case 12 mes="diciembre" end select response.write(" de "+mes+" de ") response.write(datepart("yyyy",registros("fecha"))) %> - Artículo proporcionado por la CIEC
<% registros.close set registros = Nothing conexion.close set conexion = Nothing %>