24/06/2004, 21:28
|
 | | | Fecha de Ingreso: diciembre-2002 Ubicación: ...
Mensajes: 117
Antigüedad: 22 años, 5 meses Puntos: 0 | |
| Ahhh pos refácil mi amigo:
For i=1 to Len(strCadena)
varPuente = Mid(strCadena, i, 1)
for j=1 to 47
Do while Instr(1, varPuente, chr(j), 1) = 0
if Instr(1, varPuente, chr(j), 1) > 0 then
varPuente = ""
end if
loop
next
strRecursiva = strRecursiva + varPuente
next
response.write strRecursiva
Ojalá te sirva!
__________________
" El hombre es una invención de Dios o Dios es una invención del hombre..." |