Passare un parametro ad una Function

[vanex]

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?

[vaargard]

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

ad una funzione puoi passare n parametri ... anche se non capisco la tua ... novità è un parametro in ingresso ergo il suo valore viene assegnato all'esterno della funzione e poi lavorato all'interno quindi perchè c'è questo?>>>>Novita = Rs("Testo")


ed inoltre una funzione, al contrario di una sub, è fatta per restituire un valore quindi non respons.write(novita) ma nomefunzione=novita

altrimenti ciò di cui hai bisogno è una sub ....

[vanex]

Ho seguito le dritte che mi hai dato:

Function AccNovita(Novita, Lunghezza)
If Len(Novita) >= Lunghezza Then
Novita = Mid(Novita, 1, Lunghezza) & "..."
End If
AccNovita=Novita
End Function

<%=AccNovita(Rs("Testo"),100)%>

E funziona alla grande!

[vaargard]

bene, son contento!!!