Tratamento De Nome

[Luiz Guilherme]

fala ai pessoal....

bom... eu gostaria de saber o seguinte, na minha pagina principal, quando o cliente loga aparece uma saudação, e eu gostaria de saber como fazer para pegar o nome do cliente inteiro e extrair a penas o primeiro nome alguém sabe como posso fazer isso?????

obrigado pela atenção..... t+

[felipefrancesco]

Essa função pega a quantidade de nomes (palavras) passadas por parâmetro:

function obterNome(strNomeCompleto,pEspacos)
 dim blnEncontrado, intLength, intEspacos
 dim strRetorno, strCaracter

 intLength     = Len(strNomeCompleto)
 intEspacos    = 0
 intFor        = 0
 blnEncontrado = false

 ' :: LOOP EM TODOS OS CARACTERES DO PARÂMETRO PASSADO...
 while intFor <= intLength and not blnEncontrado

  ' ::: INCREMENTA O RETORNO...
  strRetorno = Left(strNomeCompleto, intFor)

  ' ::: OBTÉM O CARACTER ATUAL
  strCaracter = Right(strRetorno, 1)

  ' ::: SE FOR UM ESPAÇO, ENTÃO TEMOS UM NOME
  if strCaracter = " " then
   intEspacos = intEspacos + 1 ' ::: E TEMOS MAIS UM ESPAÇO
  end if

  ' ::: SE ENCONTRAMOS 2 ESPAÇOS, ENTÃO TEMOS 2 NOMES JÁ...
  if intEspacos = pEspacos then blnEncontrado = true

  ' ::: INCREMENTA O CONTADOR
  intFor = intFor + 1
 wend

 obterNome = Left(strRetorno, Len(strRetorno))
end function