asp subir archivos o foto

[haga41]

Hola Adler,

Muchas gracias por tu ayuda,

He intentado usar los métodos que me has dicho adaptandolos a la forma en que tenía yo el archivo y creo que para varias me he complicado la vida, el caso es que tal y como está parece que funciona en modo local pero no se porque los acentos se ven bien en Firefox y en Explorer, los acentos y eñes que he metido directamente desde Access se ven bien en los 2. En cambio cuando lo he subido al servidor ni siquiera se me ve bien en Firefox después de editar y he subido exactamente el mismo archivo no se que puede fallar.

Código asp:

<% Public Function Remplaza(limpia,caso)    
      Dim cadena
          cadena = trim(limpia)
          Select Case caso
          Case 0:
              cadena = replace(cadena,"'","'")
              cadena = replace(cadena,"¿","&iquest;")
              cadena = replace(cadena,"¡","&iexcl;")
              cadena = replace(cadena,"ñ","&ntilde;")
              cadena = replace(cadena,"Ñ","&Ntilde;")
              cadena = replace(cadena,"á","&aacute;")
              cadena = replace(cadena,"Á","&Aacute;")
              cadena = replace(cadena,"é","&eacute;")
              cadena = replace(cadena,"É","&Eacute;")
              cadena = replace(cadena,"í","&iacute;")
              cadena = replace(cadena,"Í","&Iacute;")
              cadena = replace(cadena,"ó","&oacute;")
              cadena = replace(cadena,"Ó","&Oacute;")
              cadena = replace(cadena,"ú","&uacute;")
              cadena = replace(cadena,"Ú","&Uacute;")
          Case Else
              cadena = limpia
          End Select
          Remplaza = cadena
      End Function
%>
     <%
        id = session("id")
        Dim up, objFich1, objFich2
        set up = new xelUpload
        up.Upload()
          
      if vartype(up.Ficheros("fichero"))<>0 then
      set objFich1 = up.Ficheros("fichero")
      objFich1.ListFolderContents(Server.MapPath("caratulas/"))
      nombreFoto=objFich1.nombre
      end if
 
      if vartype(up.Ficheros("fichero2"))<>0 then
      set objFich2 = up.Ficheros("fichero2")
      objFich2.ListFolderContents(Server.MapPath("miniaturas/"))
      nombreFoto2=objFich2.nombre
      end if
%> 
         
       
       
       <!--#include file="includes/AbrirBD.asp" -->
       <%                           
        titulo = up.form("titulo")      
        director = up.form("director")
        anio = up.form("anio")
        min = up.form("min") 
        genero = up.form("genero") 
        pais = up.form("pais")
        arg = escape(up.form("argumento"))
        arg2 = unescape(arg)
        interpretes = up.form("interpretes")
        
        sql= "Select * from PELICULAS where Id =" & id
        tabla.open sql,conexion,1,3
        
        tabla.fields("Titulo") = titulo
        tabla.fields("Director") = director
        tabla.fields("Anio") = anio
        tabla.fields("Min") = min
        tabla.fields("Genero") = genero
        tabla.fields("Pais") = pais
        tabla.fields("Argumento") = arg2
        tabla.fields("Interpretes") = interpretes
        
        if (len(nombreFoto) > 0) then
            tabla.fields("Foto") = nombreFoto
        end if
        
       if (len(nombreFoto2) > 0) then
       tabla.fields("Miniatura") = nombreFoto2
       end if
                
        tabla.update
        tabla.close        
        conexion.close
        set up = nothing
        Set tabla = Nothing
        Set conexion = Nothing    
%>