Ciao
Questa funzione mi serve per abbreviare un testo facendolo diventare di 260 caratteri:

Function AccNovita(Novita)
Novita = Rs("Testo")
If Len(Novita) >= 260 Then
Novita = Mid(Novita, 1, 260) & "..."
End If
Response.Write(Novita)
End Function

Come è possibile rendere variabile il n° 260 volta per volta che uso questa funzione?