<%@LANGUAGE="VBSCRIPT"%> <%Response.buffer = true%> Ingreso de personal nuevo <% 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")="Natural" 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") %>

Rubro:
Entidad: Tipo:
Apellidos: " class="cristhian"> Nombre : " class="cristhian"> Cumpleaños:
Cargo: " class="cristhian"> Compañia: " class="cristhian">

Dia: Mes:

Dirección:
Cod. Postal: " size="8" maxlength="200" class="cristhian">
Ciudad: " size="15" maxlength="200" class="cristhian"> País: " size="15" maxlength="200" class="cristhian">  Celular 1:   " size="15" maxlength="200" class="cristhian">
Teléfono 1: " size="15" maxlength="200" class="cristhian"> Teléfono 2: " size="15" maxlength="200" class="cristhian">    
Email 1: " size="20" maxlength="200" class="cristhian"> Email 2: " size="22" maxlength="200" class="cristhian"> Página Web: " size="22" maxlength="200" class="cristhian">
Eventos <%if rst("eventos")=true then%> <%else%> <%end if%> Tarjetas <%if rst("navidad")=true then%> <%else%> <%end if%> Otros: <%if rst("otros")=true then%> <%else%> <%end if%>