Quitar acentos

[Beav]

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?

[Marsterlure]

Lo de las mayúsculas yo lo haría:
<%
APELLIDOS=Ucase(APELLIDOS)
%>

[tammander]

Y para la eliminacion de acentos yo usaria expresiones regulares:

Código:

Function reemplaza(texto, patrn, replStr)    
        Dim regEx
        Set regEx = New RegExp            ' Crea una expresión regular.    
        regEx.Pattern = patrn            ' Establece el modelo.    
        regEx.IgnoreCase = True            ' Hace distinción entre mayúsculas y minúsculas.   
        reemplaza = regEx.Replace(texto, replStr)   ' Realiza el reemplazo. 
        set regEx = nothing
End Function

Su uso:

Código:

function EliminarAcentos(APELLIDOS)
dim texto
texto = APELLIDOS
if len(texto) <> 0 then
      texto = reemplaza(texto,"[ÀÁÄáàä]","A")
      texto = reemplaza(texto,"[ÈÉËèéë]","E")
      texto = reemplaza(texto,"[ÌÍÏìíï]","I")
      texto = reemplaza(texto,"[ÒÓÖòóö]","O")
      texto = reemplaza(texto,"[ÙÚÜùúü]","U")
end if
  EliminarAcentos = texto
  End Function

Un saludo

[Beav]

muchas gracias!!! voy a probarlo