<%@ Language=VBScript %> <% Option Explicit dim conexion, registros dim sql, id_var if session("login_afiliado")="" then Response.Redirect("default.asp") End if 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 - Control de Cambios - Extranet
<% sql = "select * from ciec_cambio where id='" & request("id_var") &"'" registros.open sql,conexion,1 %>

 Click para imprimir

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

<%=registros("fecha")%> - Artículo proporcionado por la CIEC
<% registros.close set registros = Nothing conexion.close set conexion = Nothing %>