<%@ Language="VBScript"%> <%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "CEDEPAS"
if(Request.Form("C") <> "") then Recordset1__MMColParam = Request.Form("C")
%>
Directorio Alfabético - Institucional
<%
Dim cnn,rst
dim buscar
set cnn = Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.Recordset")
cnn.open "DSN=Directorio;UserId=web;Password=odaliska$$$;UID=web"
dim sqltext
dim u, p
u = trim(request.form("usua"))
p = trim(request.form("cont"))
if session("usuario_dir")="none" OR session("usuario_dir")="" then
sqltext = "Select * from usuario where Upper([usuario]) = upper('"&u&"') and Upper([contrasena]) = upper('"&p&" ') "
rst.open sqltext,cnn,2,3,1
if rst.eof and rst.bof then
session("usuario_dir")="none"
response.write ("Usted no esta registrado, por favor regístrese")
response.end
else
session("usuario_dir")=request.form("usua")
session("contrasena_dir")=request.form("cont")
session("nombre")=rst("nombre")
session("acceso_dir")=rst("acceso")
end if
rst.close
end if
response.write ("Bienvenido(a): " + session("nombre"))
set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = "DSN=Directorio;UserId=web;Password=odaliska$$$;UID=web"
buscar = request.querystring("letra")
sqltext = "SELECT id, sigla, significa, ape_resp1, nom_resp1, direccion1, tele1, tele2, celular1 FROM Institucional WHERE sigla like '"&buscar&"%' and entidad='Jurídica' order by sigla"
Recordset1.open sqltext,cnn,2,3,1
%>
-
<%=UCASE(BUSCAR)%>
-
|
Sigla
|
Significa
|
|
Apellidos
|
Dirección
|
Tel.
1
|
Tel
2
|
Celular
|
<%while not Recordset1.eof %>
| ><%=recordset1("sigla")%> |
><%=recordset1("significa")%> |
<%=recordset1("nom_resp1")%> |
<%=recordset1("ape_resp1")%> |
<%=recordset1("direccion1")%> |
<%=recordset1("tele1")%> |
<%=recordset1("tele2")%> |
<%=recordset1("celular1")%> |
<%
recordset1.movenext
wend
cnn.close
%>