Cita: 19.- Como muestro las primeras 20 palabras deuna cadena y despues le pongo puntos suspensivos:
Cadena="1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22"
Cadena=Split(cadena," ")
For i =0 to 20
Response.Write Cadena(i)& " "
Next
lo intente de la siguiente manera:
Cadena= rs.fields("descripcion")
Cadena=Split(cadena," ")
For i =0 to 20
cadenapunto= cadenapunto + Cadena(i)& " "
Next
y en el cuerpo de mi html puse dentro de una tabla:
<td width="80%" align="center"><font face=arial size=2><%=cadenapunto%> </font></td>
sin embargo me esta dando el siguiente error en el Explorador:
Error Type:
Microsoft VBScript runtime (0x800A0009)
Subscript out of range: 'i'
/webnts/soporte/topcritbus.asp, line 190
Alguien tiene idea de que puede ser????, estoy apurado con el asunto... gracias por todo.
Zero.