<% if (SESSION("email") = "") and (SESSION("clave") = "") then %>

Buscar

Ingresar | Registrarse

<% else persona = SESSION("email") sql2 = "SELECT * FROM tusuarios WHERE email = '"& persona &"'" set ro = oCo.Execute(sql2) if (ro.EOF) then %> <% if (SESSION("email") <> "") and (SESSION("clave") <> "") then persona2 = SESSION("email") sql3 = "SELECT * FROM usuario WHERE usuario = '"& persona2 &"'" set r = oC.Execute(sql3) nombre_usuario= r("nombre") apellido= r("apellido") id= r("id") %>

Buscar Usuario: <%=nombre_usuario%> <%=apellido%>

|   Salir

<% r.Close oC.Close Set r = Nothing Set oC = Nothing end if %> <% else nombre = ro("nombre") email = ro("email") id = ro("id") %>

Buscar Usuario: <%=nombre%>

|   Salir

<% ro.Close oCo.Close Set ro = Nothing Set oCo = Nothing end if end if %>

	Enlaces de Interés
	Preguntas Frecuentes
	Mapa del Sitio
	Conocer al IBCE
	Contáctenos

:: IBCEm@il Acerca del IBCEm@il Suscribirse Invitar a un amigo Temáticas del IBCEm@il Contacto para Publicidad