<% 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")
%>
Usuario: <%=nombre_usuario%> <%=apellido%>
<%
r.Close
oC.Close
Set r = Nothing
Set oC = Nothing
end if
%>
<% else
nombre = ro("nombre")
email = ro("email")
id = ro("id")
%>
Usuario: <%=nombre%>
<%
ro.Close
oCo.Close
Set ro = Nothing
Set oCo = Nothing
end if
end if %>
