
28/06/2007, 01:52
|
| | Fecha de Ingreso: abril-2007
Mensajes: 32
Antigüedad: 18 años Puntos: 0 | |
Quitar acentos El problema que tengo quizás sea sencillo pero no hay forma de que me salga. Lo he probado de muchas formas y no lo consigo.
Tengo un formulario cuyos datos se insertan en una base de datos y quiero que un campo se inserte sin tildes y en mayusculas.
Este es el campo:
<p>
<label for="APELLIDOS">Apellidos <span title="Campo obligatorio" class="obligatorio">*</span>:
<input id="APELLIDOS" type="text" name="APELLIDOS" value="<%=Server.HTMLEncode(APELLIDOS)%>" tabindex="1" size="20" maxlength="50" alt="Apellidos" title="Apellidos" />
</label>
</p>
form.APELLIDOS.value='<%=Request.Form("APELLIDOS") %>';
He probado con <%UCase()%> para las mayúsculas pero nada y con esta función para las tildes:
<%
Function EliminarAcentos(APELLIDOS)
dim i, s1, s2
s1 = "ÁÀÉÈÍÏÓÒÚÜáàèéíïóòúü"
s2 = "AAEEIIOOUUaaeeiioouu"
if len(APELLIDOS) <> 0 then
For i = 1 to Len(s1)
texto = replace(APELLIDOS,mid(s1,i,1),mid(s2,i,1))
next
end if
EliminarAcentos = APELLIDOS
End Function
%>
Quizás las ponía en el sitio equivocado, no se. Alguien podría ayudarme? |