<%
dim strUserID ,strNombre, strCorreo, strUsuario, strIPCliente
strUserID = Session("codigo")
bolOK = false
strIPCliente = Request.ServerVariables("REMOTE_ADDR")
if len(strUserID)>0 then
bolOK = true
strNombre = Session("nombre")
strCorreo = Session("usuario")
strNombreCompleto = split(strNombre," ")
if ubound(strNombreCompleto)>2 then
strUsuario = strNombreCompleto(0)&"_"&strNombreCompleto(2)
else
if ubound(strNombreCompleto)=2 then
strUsuario = strNombreCompleto(0)&"_"&strNombreCompleto(1)
else
strUsuario = strNombreCompleto(0)
end if
end if
end if
if len(strUsuario) > 1 then
strUsuario = ucase(strUsuario)
else
bolOK = false
end if
%>
