• Publicidad

Duda con función JavaScript para eliminar acentos

Discute todo acerca de JavaScript así como DHTML o la tecnología AJAX.

Duda con función JavaScript para eliminar acentos

Notapor madrazo2008 » 2008-10-23 01:56 @122

¡¡¡Hola!!!
Estoy tratando de usar la función quitaacentos() en una página de envío de formulario y me da error.
La página que envía el form
Sintáxis: [ Descargar ] [ Ocultar ]
  1. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> 
  2. <html xmlns="http://www.w3.org/1999/xhtml"> 
  3. <head> 
  4. <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> 
  5. <title>Documento sin t&iacute;tulo</title> 
  6. <script language="javascript"> 
  7. function quitaacentos(t){ 
  8. á="a";é="e";í="i";ó="o";ú="u"; 
  9. acentos=/[áéíóú]/g; 
  10. return t.replace(acentos, 
  11. function($1){ 
  12. return eval($1) 
  13. ); 
  14. }</script> 
  15. </head> 
  16.  
  17. <form action="envio.asp" method="post"> 
  18. Contenido del mensaje: 
  19. <input name="ibody" type="text" value="" /> 
  20.  
  21. <label> 
  22. <input type="submit" name="button" id="button" value="Enviar" /> 
  23. </label> 
  24. </form> 
  25. </body> 
  26. </html> 


... y ésta la página que recibe y envía por correo los datos. Olvidarse de la parte del envío de correo, lo que me interesa es el error de la línea de la función elimina_acentos()

Sintáxis: [ Descargar ] [ Ocultar ]
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> 
  2. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> 
  3. <html xmlns="http://www.w3.org/1999/xhtml"> 
  4. <script language="javascript"> 
  5. <script language="javascript"> 
  6. function quitaacentos(t){ 
  7. á="a";é="e";í="i";ó="o";ú="u"; 
  8. acentos=/[áéíóú]/g; 
  9. return t.replace(acentos, 
  10. function($1){ 
  11. return eval($1) 
  12. ); 
  13. </script> 
  14. <head> 
  15. <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> 
  16. <title>Documento sin t&iacute;tulo</title> 
  17. </head> 
  18. <body> 
  19. <% 
  20. Dim cbody, n, p1 
  21. cbody = Request("ibody") 
  22. response.write(cbody) 
  23. cbody = quitaacentos(cbody) //Aqui esta el error. Linea 65 
  24. response.write(cbody) 
  25.  
  26. For Each n In Request.Form 
  27. cBody = cBody & n & ": " & Request.Form(n) & chr(13) 
  28. Next 
  29.  
  30. Set oCDO = Server.CreateObject("CDONTS.NewMail") 
  31.  
  32. 'Asignamos las propiedades al objeto 
  33. oCDO.From = "[email protected]
  34. oCDO.To = "[email protected]
  35. oCDO.Subject = "mensaje de prueba" 
  36. oCDO.Body = cBody 
  37. 'oCDO.Cc = "[email protected];[email protected]
  38. 'oCDO.Bcc = "[email protected]
  39. 'oCDO.MailFormat = 0 
  40.  
  41. oCDO.Send 
  42.  
  43. Set oCDO = Nothing 'Liberar... 
  44. 'Mostramos mensaje de que seenvió con éxito. 
  45. Response.Write "¡Se envió Ok, qué fácil!!" 
  46.  
  47. %> 
  48. </body> 
  49. </html> 

El error que da es este:
Código: Seleccionar todo
Error de Microsoft VBScript en tiempo de ejecución (0x800A000D)
No coinciden los tipos: 'Elimina_acentos'
linea 65


Salu2 a todos y agradecido de antemano.
Madrazo.
madrazo2008
Perlero nuevo
Perlero nuevo
 
Mensajes: 1
Registrado: 2008-10-23 01:42 @112

Publicidad

Notapor AgeValed » 2008-10-23 11:27 @519

La verdad que mucho no sé pero lo único que se me puede ocurrir es que no reconozca los acentos como á sino de otra forma, por ejemplo...

Código: Seleccionar todo
\00e1 -> á
\00e9 -> é
\00ed -> í
\00f3 -> ó
\00fa -> ú

\00c1 -> Á
\00c9 -> É
\00cd -> Í
\00d3 -> Ó
\00da -> Ú


&aacute;      á
&eacute;      é
&iacute;       í
&oacute;      ó
&uacute;      ú

&Aacute;      Á
&Eacute;      É
&Iacute;       Í
&Oacute;     Ó
&Uacute;     Ú


Si no es eso, ¡no tengo ni idea! :(
AgeValed
Perlero nuevo
Perlero nuevo
 
Mensajes: 33
Registrado: 2008-09-19 09:35 @441

Notapor explorer » 2008-10-23 13:34 @607

Hay una línea repetida: <script language="javascript">
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14475
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España


Volver a JavaScript

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado

cron