problema cortando texto

[Myakire]

Esto ejemplo funciona como quieres:

Código:

<!-- #INCLUDE File="adovbs.inc" -->
<script runat=server LANGUAGE="VBSCRIPT">
  Dim oConn1,oRs1
  Set oConn1 = Server.CreateObject("ADODB.Connection")
  Set oRS1 = Server.createobject("ADODB.Recordset")

oConn1.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("prueba.mdb")
oRS1.Open "select top 20 * from nombres a",oConn1,adopenstatic,adcmdtext
vector = oRs1.GetRows
oRs1.Close

NumCampo = 1 ' La posición del campo que corresponda con "nombre_cliente"
For contador=0 to Ubound(vector,2)
  nomcli = vector(NumCampo, contador)
  if len(nomcli)>13 then
     nomcli = mid(nomcli,1,13)&".."
  end if
	response.write vector(NumCampo, contador) & ": " & nomcli & "<br>"
Next	
	
'	while not oRs1.EOF
'	  response.write oRs1(1)&"<br>"
'	  oRs1.MoveNext
'	Wend
</script>

Saludos