problema cortando texto

[dobled]

tengo esta funcion que me funciona super bien con un recorset normal,

Código:

	nomcli = Rs("nombre_cliente")
             if len(""&nomcli&"")>13 then
	nomcli = mid(""&nomcli&"",1,13)&".."
	else
	nomcli = nomcli
	end if

la coloque en un nuevo codigo que hice con getrows y me da problemas
Error de Microsoft VBScript en tiempo de ejecución error '800a000d'
No coinciden los tipos: 'cliente'

/v2/control_de_precios.asp, line 125

Código:

	If len(nxtabla(cliente,i)) > 20 Then   <------ linea 125
	cliente = mid(nxtabla(cliente,i),1,20)&".."
	Else
	cliente	=	nxtabla(cliente,i)
	End If

por que da problemas, sera por que cambie al metodo de paginacion getrows.

[Myakire]

Si cliente no tiene valores numéricos, el lógico que te marque ese error.

recuerda que una matriz requiere de los índices de las dimensiones.

[dobled]

pero entonces como lo soluciono para cortar el texto?

[Myakire]

A ver, el problema principal es pasar tu rutina de arriba a una arreglo en lugar de trabajar con el objeto Fields, ¿verdad?

Bueno, sería algo así:

...
vector=rs.GetRows
NumCampo = 0 ' 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
Next

Saludos

[dobled]

Mya, no hay caso, no funciona ... se podra?

[Myakire]

Dejame lo hago aquí para verificar, wait me, 10 minutes, please

[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

[dobled]

Gracias Mya...
ahora si enkiu