04/09/2008, 06:06
|
 | Colaborador | | Fecha de Ingreso: diciembre-2006
Mensajes: 4.671
Antigüedad: 18 años, 4 meses Puntos: 126 | |
| Respuesta: Aspemail X en vez de acentos en subject
Hola
Usa 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 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;" /> |