<%@LANGUAGE="VBSCRIPT"%>
<%Response.buffer = true%>
Ingreso institucion nueva
<% 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")
response.end
end if
dim sqltext
dim idi
sqltext = "Select * from institucional"
rst.open sqltext,cnn,3,3
if rst.eof and rst.bof then
'response.write("Escoga un rubro para empezar"+id_rub)
end if
%>
<%
if session("acceso_dir") = "0" then
response.write ("Usted no puede ingresar a esta opcion!!!")
response.end
end if
rst.addnew
rst("sigla")="ESCRIBA LOS DATOS"
rst("rubro")="1"
rst("entidad")="Jurídica"
rst.update()
rst.close
set rst = nothing
set rst = Server.CreateObject("ADODB.Recordset")
sqltext = "Select * from institucional Where [sigla] = 'ESCRIBA LOS DATOS' "
rst.open sqltext,cnn,3,3
if rst.eof and rst.bof then
'response.write("Escoga un rubro para empezar"+id_rub)
end if
idi = rst("id")
%>
