<%
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
if session("usuario_dir")="none" OR session("usuario_dir")="" then
sqltext = "Select * from usuario where Ucase([usuario]) = '"&request.form("usua")&"' and Ucase([contrasena]) = '"&request.form("cont")&" ' "
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
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='Natural' order by sigla"
Recordset1.open sqltext,cnn,2,3,1
%>
<% if session("acceso_dir") = "0" then
response.write ("Usted no puede ingresar a esta opcion!!!")
response.end
end if
%>
- <%=UCASE(BUSCAR)%> -
|
Apellidos
|
Nombres
|
Dirección
|
Tel.
1
|
Tel
2
|
Celular
|
| ><%=recordset1("sigla")%> | ><%=recordset1("nom_resp1")%> | <%=recordset1("direccion1")%> | <%=recordset1("tele1")%> | <%=recordset1("tele2")%> | <%=recordset1("celular1")%> |