<% Dim cnn,rst set cnn = Server.CreateObject("ADODB.Connection") set rst = Server.CreateObject("ADODB.Recordset") cnn.open "DSN=Directorio;UserId=web;Password=odaliska$$$;UID=web" if session("usuario_dir")="none" OR session("usuario_dir")="" then session("usuario_dir")="none" response.write ("Usted no esta registrado, por favor regístrese") ''SERVER.TRANSFER("DEFAULT.ASP") response.end end if '' if session("acceso_dir") = "0" then '' response.write ("Usted no puede ingresar a esta ''opcion!!!") ''' response.redirect "personal_alfabetico.asp"' '' end if dim sqltext dim id_rub id_rub = request.querystring("id") ''id_rub="1" '' sqltext = "Select * from institucional Where [id_rubro] = '"&id_rub&"'" sqltext = "Select * from institucional Where [rubro] = '"&id_rub&"' and entidad='Natural' ORDER BY SIGLA" rst.open sqltext,cnn,3,3,1 if rst.eof and rst.bof then 'response.write("Escoga un rubro para empezar"+id_rub)%> <% else 'response.write("Escoga el rubro que prefiera") end if %>

<%while not rst.eof %> <% rst.movenext wend rst.close cnn.close %>

Apellidos	Nombre Responsable	Dirección	Tel. 1	Tel 2	Celular
target="_parent"><%=rst("sigla")%>	target="_parent"><%=rst("nom_resp1")%>	<%=rst("direccion1")%>	<%=rst("tele1")%>	<%=rst("tele2")%>	<%=rst("celular1")%>