Contare quanti caratteri ci sono

[semolino]

Sto facendo una funzione che mi conta quanto è lunga una stringa di testo:

Function ContaCratteri(testo, num)
 If testo < num Then testo = "[...]"
End Function

e la richiamo con

txt = ContaCaratteri(objRS("Testo"), 44)

Se testo mi dice tipo non corrispondente ContaCaratteri!!!
Cosa vuol dire?
La funzione è scritta in modo errato?

[Roby_72]

Già esiste nativa una funzione di VBscript, è la len()

pippo = "Questa è una frase"
response.write ("La frase è lunga "& len(pippo) &" caratteri.")

Roby

[semolino]

E come mai allora non va neanche cosi?
Function ContaCratteri(testo, num)
If len(testo) > num Then testo = "[...]"
End Function

la richiamo con:

" & ContaCaratteri(campo_testo), 44) & "

Vorrei fare in modo che mettendo io un numero dopo la , la funzione campisca il numero e lo eguaglia a num.
Cosi è scritta sbagliata :master:

L'errore è sempre tipo non corrispondente

[asdfgasdfg]

ContaCaratteri(campo_testo), 44)

ContaCaratteri(campo_testo, 44)

[semolino]

Si avevo sbagliato a scriverla io... quella parentesi non c'è quindi ilproblema rimane. Ora ho provato a scrivere la funzione cosi:

Function ContaCaratteri(testo, sTrue, sFalse)
If len (testo) Then ContaCaratteri = sTrue Else ContaCaratteri =sFalse
End Function

testo = objRS("Testo" )
puntini = ContaCaratteri(testo>44 , testo &"[...]" , testo)

e poi vado ad inserire

& puntini &

Mi da: Tipo non corrispondente: '[string: "d"]'

[weppos]

puntini = ContaCaratteri(testo>44 , testo &"[...]" , testo)

che è la cosa evidenziata?