<%@ Language=VBScript %> <% Option Explicit if session("login_afiliado")="" then Response.Redirect("default.asp") End if 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 sql="select * from ciec_afiliado where login='" &session("login_afiliado") &"' and password='" &session("password_afiliado") &"'" registros.open sql,conexion,1 dim representante representante=registros("representante") registros.close %> CIEC - Circulares - Extranet
 

<% sql = "select * from ciec_comunicados where clase=0 order by id desc" registros.open sql,conexion,1 if not registros.bof and not registros.eof then do while not registros.eof %> <% registros.movenext loop end if registros.close %> <%if representante="1" then%> <% sql = "select * from ciec_comunicados where clase=2 order by id desc" registros.open sql,conexion,1 if not registros.bof and not registros.eof then do while not registros.eof %> <% registros.movenext loop end if registros.close end if %>
· " style="text-decoration:none"> <%=registros("titulo")%>
· " style="text-decoration:none"> <%=registros("titulo")%>
 
 
 
<% sql = "select * from ciec_comunicados where id='" & request("id_var") &"'" registros.open sql,conexion,1 %>

"> Versión para imprimir

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

Publicado el: <%=registros("fecha")%> - Artículo proporcionado por la CIEC
 

Envíenos sugerencias y comentarios acerca de esta página
 
Diseño y desarrollo: Ingeniería Web, S. R. L. - IW

Capítulos | Comisiones | Directorio | Contáctenos | Principal

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