01/09/2008, 14:26
|
 | Colaborador | | Fecha de Ingreso: diciembre-2006
Mensajes: 4.671
Antigüedad: 18 años, 1 mes Puntos: 126 | |
| Respuesta: menu y submenú
Hola
Necesitas usar replace Cita: Function Reemplaza(limpia,caso)
cadena = trim(limpia)
Select Case caso
Case 0:
cadena = replace(cadena,"¿","¿")
cadena = replace(cadena,"¡","¡")
cadena = replace(cadena,"ñ","ñ")
cadena = replace(cadena,"Ñ","Ñ")
cadena = replace(cadena,"á","á")
cadena = replace(cadena,"Á","Á")
cadena = replace(cadena,"é","é")
cadena = replace(cadena,"É","É")
cadena = replace(cadena,"í","í")
cadena = replace(cadena,"Í","Í")
cadena = replace(cadena,"ó","ó")
cadena = replace(cadena,"Ó","Ó")
cadena = replace(cadena,"ú","ú")
cadena = replace(cadena,"Ú","Ú")
Case Else
cadena = limpia
End Select
Reemplaza = cadena
End Function Uso
Reemplaza(campo,0)
EDITO: Si quieres usar javascript para el replace
Suerte
__________________
Los formularios se envían/validan con un botón Submit
<input type="submit" value="Enviar" style="background-color:#0B5795; font:bold 10px verdana; color:#FFF;" />
Última edición por Adler; 01/09/2008 a las 14:37 |