asp subir archivos o foto

[haga41]

Y este el de registraficha.asp

Código asp:

<!--#include file="includes/xelupload.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;")
              cadena = replace(cadena,"'","'")
          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 = Remplaza(up.form("titulo"),0)      
        director = Remplaza(up.form("director"),0)
        anio = up.form("anio")
        min = up.form("min") 
        genero = Remplaza(up.form("genero"),0)
        pais = Remplaza(up.form("pais"),0)
        argumento = Remplaza(up.form("argumento"),0)
        interpretes = Remplaza(up.form("interpretes"),0)
        
        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") = argumento
        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    
        %>  
        Ficha actualizada. <a href="Adminfichas.asp">Continuar</a>.