ti metto il codice intero...

codice:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>BackOffice UNASCI</title>
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<body>



<%
'AGGIUNTO QUI I PERCORSI:
'ATTENTO QUA VA SETTATA SUI TUOI PERCORSI TENENDO PRESENTE CHE VA COME INCLUDE VIRTUAL
cartella_logo="/public/logo/"

'#############################################FUNZIONI#######################################
Function CancellaFile(quale_file)
	Set objFSO = Server.CreateObject("Scripting.FileSystemObject") 
	'cancella solo se trova file
	if objFSO.fileexists (Server.MapPath(quale_file)) then 	objFSO.DeleteFile Server.MapPath(quale_file)
	Set objFSO = Nothing 
End Function
'##########################################FINE FUNZIONI############################################
'CONNESSIOONE
Set myconn = Server.CreateObject("ADODB.Connection")
'###############   CORREGGI LA STRINGA con percorso
myconn.Open  "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/database/unasci.mdb")
'########
Set oUpload = new cUpload
oUpload.AutoRename=False'Disabilito l'autoRename
oUpload.OverWrite=False'Imposto l'overwrite
oUpload.Upload 'Carico i dati
oUpload.MoveFirst 'Posizionamento sul primo record
oUpload.SetPath cartella_logo

select case left(oUpload.Form("func"),1)
case "E"
'if left(oUpload.Form("Submit"),1)="E" then ' se si è premuto il pulsante Elimina nota che comincia con la E
	sql = "SELECT * FROM affiliate WHERE id="&oUpload.Form("idAffiliata")
	set rs = Server.CreateObject("ADODB.Recordset")
	rs.Open sql, myconn,3,3
	'prende il nome dei file
	file1 = rs("logo") 
	'cancella il record dalla tabella documenti
	rs.delete
	rs.close
	Set rs = Nothing
	myconn.Close

	Set myconn = Nothing
	'cancella i files eventuali presenti
	'########CORREGGERE PERCORSI
	if len(file1)>1 then a=cancellaFile(cartella_logo& file1)
		
case else 'ENTRA QUI SOTTO E FA UPDATE O INSERT nel caso contrario
	'##############ANDREA
	'leggo i campi del form tra cui anche i vecchi attach e cover
	'##########AGGINGI QUELLI CHE MANCANO
	idAffiliata=oUpload.Form("idAffiliata")
	nome=oUpload.Form("nome")
	anno=oUpload.Form("anno")
	regione=oUpload.Form("regione")
	citta=oUpload.Form("citta")
	presidente=oUpload.Form("presidente")
	sede=oUpload.Form("sede")
	telefono=oUpload.Form("telefono")
	fax=oUpload.Form("fax")
	email=oUpload.Form("email")
	URL=oUpload.Form("URL")
	impianti=oUpload.Form("impianti")
	soci=oUpload.Form("soci")
	tesserati=oUpload.Form("tesserati")
	affiliato=oUpload.Form("affiliato")
	colori=oUpload.Form("colori")
	discipline=oUpload.Form("discipline")
	storia=oUpload.Form("ta")
	logo=oUpload.Form("valore_attuale_logo")
	'cover=oUpload.Form("valore_attuale_cover")
	
	if Not IsNull(nome) then titolo = replace(nome,"'","''")
	if Not IsNull(storia) then descrizione= replace(storia,"'","''")
	'if Not IsNull(autore) then autore = replace(autore,"'","''")
	
  'adesso faccio l'upload eventuale
    While Not oUpload.Eof
        fatto=false
       
        quale_campo=oUpload.Files("InputName") 'qui legge quale campo del db è stato aggiornato
        nome_file=oUpload.GetFileName

        if quale_campo="logo" then
            a=cancellaFile(cartella_logo& logo)
            logo=nome_file
        end if
        oUpload.Save
        '#####SPOSTA IL FILE COVER perché la classe di Baol non può cambiare path una volta chiamata
       if (logo<>"" and fatto )then
            set fso=server.createobject("Scripting.FileSystemObject")
            if fso.FileExists(Server.MapPath(cartella_logo& logo)) then
               fso.movefile Server.MapPath(cartella_logo& logo), Server.MapPath(cartella_cover& cover)
            end if 
        end if 
        oUpload.MoveNext
     Wend
	Set oUpload = Nothing
	'adesso spariamo nel db l'update del documento
	'qui si sceglie se fare UPDATE o INSERT a seconda della pagina di provenienza
	if (instr(request.ServerVariables("HTTP_REFERER"),"edit_affiliata.asp")>1) then 
		'STRINGA SQL: alla fine uno spazio vuoto OCCHIO
		sql = "UPDATE affiliate SET "
		if nome<>"" then sql=sql&"nome='"&nome&"', "
		'if autore<>"" then sql=sql&"autore='"&autore&"', "
		'if URL<>"" then sql=sql&"URL='"&URL&"', "
		'sql=sql&"data='"&data&"', "
		sql=sql&"logo='"&logo&"', "
		
		'sql=sql&"data=#"&Data&"#, "
		'sql=sql&"descrizione='"&descrizione&"' "
		sql=sql&"WHERE id="& idAffiliata &""
	else 'allora nuovo record
		sql = "INSERT INTO affiliate (nome, anno, regione, citta, presidente, sede, telefono, fax, email, url, impianti, soci, tesserati, affiliato, colori, discipline, logo) VALUES "
		sql=sql&" ( '"&nome&"', '"&anno&"', '"&regione&"', '"&citta&"', '"&presidente&"', '"&sede&"' , '"&telefono&"', '"&fax&"', '"&email&"', '"&url&"', '"&impianti&"', '"&soci&"', '"&tesserati&"', '"&affiliato&"', '"&colori&"', '"&discipline&"', '" &logo&"')"
end if
    set rec = myconn.execute(sql)
    sql="update [Upgrade] set [data]= #"& date() &"#"
    myconn.execute(sql)
    set rec = nothing
    myconn.close
    set myconn = nothing
end select
%> 
%> 
<% Response.redirect("/admin/affiliate.asp")%>
</p>
</body>
</html>