Como Adaptar Esta Função Do Vb Para Asp

[hicarocastro]

Preciso adaptar essa função para o asp, ela é uma função vb que funciona muito bem separando a primeira palavra de um texto, alguém poderia me ajudar ou me passar um outro código para eu fazer este procedimento?

Function CapturaPrimeiraPalavra(expr As String)
   'Esta função retira a primeira palavra de uma expressão
    Dim Temp, P As Integer
    Temp = Trim(expr)
    P = InStr(Temp, " ")
    If P = 0 Then
        CapturaPrimeiraPalavra = Temp
    Else
        CapturaPrimeiraPalavra = Left(Temp, P - 1)
    End If
End Function

[halakaluf]

Man e quase a mesma coisa...

Function CapturaPrimeiraPalavra(expr)
  'Esta função retira a primeira palavra de uma expressão
   Dim Temp, P 
   Temp = Trim(expr)
   P = InStr(Temp, " ")
   If P = 0 Then
       CapturaPrimeiraPalavra = Temp
   Else
       CapturaPrimeiraPalavra = Left(Temp, P - 1)
   End If
End Function

Espero ter ajudado!!!

[hicarocastro]

Deu certo...

valeu

[ursolouco]

Deu certo...

valeu

OK, só não esqueça de solicitar o fechamento do tópico