30/12/2004, 04:38
|
 | | | Fecha de Ingreso: febrero-2003 Ubicación: Chacabuco - Buenos Aires
Mensajes: 214
Antigüedad: 22 años, 2 meses Puntos: 1 | |
Fijate si esto te sirve.
Código:
Dim cadena
Dim arrayCadena
Dim I
cadena = "<img scr=""images/imagen1.jpg"" alt=""imagen del mundo"">"
arrayCadena = Split(cadena, chr(34))
For I = 0 to Ubound(arrayCadena)
If InStr(arrayCadena(I), ".jpg") then
Response.write(arrayCadena(I))
end if
Next
Saludos |