 Jue Oct 23, 2008 12:56 am
|
 |
madrazo2008
Perlero Nuevo
|
Registrado: 23 Oct 2008
Mensajes: 1
|
|
| Duda con función JavaScript para eliminar acentos |
 |
|
¡¡¡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
| HTML: | <!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()
| HTML: | <%@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. |
|
|
|
|
Jue Oct 23, 2008 10:27 am
|
|
AgeValed
Perlero Nuevo
|
Registrado: 19 Sep 2008
Mensajes: 22
|
|
|
|
|
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 -> Ú
á á
é é
í í
ó ó
ú ú
Á Á
É É
Í Í
Ó Ó
Ú Ú |
Si no es eso, ¡no tengo ni idea!  |
|
|
Jue Oct 23, 2008 12:34 pm
|
|
explorer
Moderador
|
Registrado: 24 Jul 2005
Mensajes: 4239
Ubicación: Valladolid, España
|
|
|
|
|
| Hay una línea repetida: <script language="javascript"> |
|
Powered by phpBB © 2001, 2005 phpBB Group
|
