<%@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 %>

">
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%>

<% if session("acceso_dir")="1" then%>
<% rst.close set rst = nothing set rst = Server.CreateObject("ADODB.Recordset") sqltext = "Select * from institucional where entidad='Natural' ORDER BY SIGLA" rst.open sqltext,cnn,3,3,1 while not rst("id")=codigo rst.movenext wend if rst.bof then else rst.moveprevious end if if rst.bof then rst.movenext end if %> " class="cristhian">Anterior <% if not rst.eof then rst.movenext end if if not rst.eof then RST.MOVENEXT end if if rst.eof then rst.moveprevious end if %> " class="cristhian">Siguiente
" class="cristhian">
<% end if%>