<%@LANGUAGE="VBSCRIPT"%>
Actualizacion de datos
<%
Dim cnn,rst
set cnn = Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.Recordset")
cnn.open "DSN=Directorio;UserId=directorio;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
dim sqltext
dim idi
idi = request.querystring("id")
sqltext = "Select * from institucional Where [id] = cast (('"&idi&"') as int) 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)
end if
%>
