Ver Mensaje Individual
  #1 (permalink)  
Antiguo 28/06/2007, 01:52
Beav
 
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?