Titoli lunghi

[Swinub]

Salve.
Volevo porvi un quesito: se estraggo un campo testuale da un database, ed è lungo oltre i 30 caratteri, come faccio a stampare a video solo i primi 30 caratteri seguiti da ... (tre puntini) ?
Ossia, ad esempio:
"Ciao che bella giornata non ti pare? Anche se un po' di vento non ci starebbe male"
scrivere:
"Ciao bella giornata non ti pare..."
Come si può fare?

Grazie

[99eros9]

Dim strTesto
strTesto = request.form("cmpTesto")
if len(strTesto) > 30 Then
strTesto = Left(strTest,30) & "..."
End If
Response.Write(strTesto)

[Swinub]

Originariamente inviato da 99eros9

Dim strTesto
strTesto = request.form("cmpTesto")
if len(strTesto) > 30 Then
strTesto = Left(strTest,30) & "..."
End If
Response.Write(strTesto)

Ma non lo estraggo da form, ma da database

[99eros9]

Dim strTesto
strTesto = objRs("cmpTesto") 
if len(strTesto) > 30 Then
strTesto = Left(strTest,30) & "..."
End If
Response.Write(strTesto)

sempre che l'istanza la indichi con objRs!