codice:
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!