Como resolver?

[vitorlouzada 0]

Pessoal ta dando aqui no meu novo servidor esse seguinte erro:

 

Microsoft VBScript runtime error '800a005e'

 

Invalid use of Null: 'InStrRev'

 

/classirocha/scripts4/db.asp, line 32

 

 

Abaixa as linhas de código aonde acontecem os erros:

 

CODE

<%

 

'-----------------------------

'Função para pegar somente um determinado

'numero de caracteres da manchete da noticia

'-----------------------------

'Constante: Define o número de caracteres que será exibido

'PRIVATE CONST TAMANHO = 100

'mudança para estipular o tamanho na chamada da funcao

'Função Propriamente dita

 

'Function Previa(vstrTexto, TAMANHO)

 

Function Previa(vstrTexto)

Dim strPrevia

if Len(vstrTexto) > TAMANHO Then

strPrevia = Mid(vstrTexto, 1, TAMANHO)

strPrevia = Mid(strPrevia, 1, InStrRev(strPrevia, "") - 1) & "..."

Else

strPrevia = vstrTexto

End If

Previa = strPrevia

End Function

%>

 

 

O que eu faço???

[Mário Monteiro 179]

InStrRev(strPrevia, "")

Nao tem a segunda string, precisa ter pelo menos um espaço