<%@ 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
%>
