CIEC- Titular - Centro de prensa

<%@ Language=VBScript %> <% Option Explicit dim conexion, registros dim sql 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 sql = "select * from ciec_titulareshistorial where id='"&request("clave")&"'" registros.open sql,conexion,1 %> CIEC- Titular - Centro de prensa

Fuente:

<%=registros("fuente")%>

','','height=220,width=300,scrollbars=no,top=200,left=200')"> Enviar Imprimir

Fecha:

<%=registros("fecha")%>

Periodista:

<%=registros("periodista")%>

Dirigido a <%=registros("dirigido")%>

Artículo:

<%=registros("antetitulo")%>
<%=registros("titulo")%>

<% dim texto_var dim i,largo dim caracter texto_var=registros("contenido") largo=len(texto_var) for i=1 to largo caracter=mid(texto_var,i,1) Response.Write(caracter) if asc(caracter)=13 then Response.Write("
") end if next %>

" method="post" name="form_encuesta" id="form_encuesta">

¿Cuan útil fue este artículo?:
	1	2	3	4
Poco útil					Muy útil

<% registros.close set registros = Nothing conexion.close set conexion = Nothing %>