Ver Tema - Duda con función JavaScript para eliminar acentos

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

Syntax: [ Download ] [ Hide ]

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Documento sin título</title>
<script language="javascript">
function quitaacentos(t){
á="a";é="e";í="i";ó="o";ú="u";
acentos=/[áéíóú]/g;
return t.replace(acentos,
function($1){
return eval($1)
}
);
}</script>
</head>
<form action="envio.asp" method="post">
Contenido del mensaje:
<input name="ibody" type="text" value="" />
<label>
<input type="submit" name="button" id="button" value="Enviar" />
</label>
</form>
</body>
</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()

Syntax: [ Download ] [ Hide ]

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<script language="javascript">
<script language="javascript">
function quitaacentos(t){
á="a";é="e";í="i";ó="o";ú="u";
acentos=/[áéíóú]/g;
return t.replace(acentos,
function($1){
return eval($1)
}
);
}
</script>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Documento sin título</title>
</head>
<body>
<%
Dim cbody, n, p1
cbody = Request("ibody")
response.write(cbody)
cbody = quitaacentos(cbody) //Aqui esta el error. Linea 65
response.write(cbody)
For Each n In Request.Form
cBody = cBody & n & ": " & Request.Form(n) & chr(13)
Next
Set oCDO = Server.CreateObject("CDONTS.NewMail")
'Asignamos las propiedades al objeto
oCDO.From = "amadrazo2006@gmail.com"
oCDO.To = "amadrazo2006@gmail.com"
oCDO.Subject = "mensaje de prueba"
oCDO.Body = cBody
'oCDO.Cc = "resal@tudominio.com;webmaster@tudominio.com"
'oCDO.Bcc = "quinqui@tudominio.com"
'oCDO.MailFormat = 0
oCDO.Send
Set oCDO = Nothing 'Liberar...
'Mostramos mensaje de que seenvió con éxito.
Response.Write "¡Se envió Ok, qué fácil!!"
%>
</body>
</html>

El error que da es este:

Código:

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.

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:

\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!

explorer · 2008-10-23 13:34 @607

Hay una línea repetida: <script language="javascript">

Publicidad

Socializa