<% 
Dim oUpload, strNick 
Set oUpload = new cUpload 
  oUpload.AutoRename = True 
  oUpload.Overwrite = False 
  oUpload.SetPath "\upload" 'Impostazione del percorso 
  oUpload.Load 
  oUpload.UploadOnly "Images" 
   
strNick = oUpload.Form("nickName") 
 
'VERIFICO SE IL NICK DEL FORM COINCIDE CON IL NICK DELLA SESSION 
'IN CASO CONTRARIO DISCONNETTO 
if (strNick<>strUser) then 
  response.Redirect(linkhome & "?disc=1") 
end if 
 
if (strNick<>"") then 
 
  'RICERCA DEL FILE DA MODIFICARE NEL RECORD DELLA TABELLA ATTIVITA' 
  Set Conn=Server.CreateObject("ADODB.Connection") 
           
  Conn.Open (strConn) 
 
  dim strSql 
    strSql = "SELECT * FROM users WHERE userName='" & strUser & "'" 
  Set rs = Server.CreateObject("ADODB.Recordset") 
 
    rs.Open strSql, Conn ,3,3 
    strNomeFile=rs("immagine") 
    rs.Close 
  set rs = Nothing 
  Conn.Close  
  set Conn = Nothing 
   
  'TROVATO IL NOME DEL FILE LO VADO A CANCELLARE DAL SERVER 
  if (strNomeFile<>"") then 
    dim fso, fileDaCancellare 
    Set fso = Server.CreateObject("Scripting.FileSystemObject")  
      fileDaCancellare = strPathUploadCv & strNomeFile 
      fso.DeleteFile(fileDaCancellare)  
    Set fso = Nothing 
  end if 
   
  'CANCELLATO IL FILE DAL SERVER ESEGUO L'UPLOAD DEL NUOVO FILE 
  dim fileName 
   
  While Not oUpload.EOF 
    oUpload.Save() 
    fileName = oUpload.GetFileName() 
    oUpload.MoveNext 
  Wend   
   
  'DOPO L'UPLOAD DEL FILE ESEGUO L'UPDATE NELLA TABELLA 
  Set Conn=Server.CreateObject("ADODB.Connection") 
     
  Conn.Open (strConn) 
   
  Set rs = Server.CreateObject("ADODB.Recordset") 
    rs.Open strSql, conn ,3,3 
     
    rs("immagine")=fileName  
    rs.update 
    rs.Close 
     
  Set rs = Nothing 
  Conn.Close 
  Set Conn=Nothing   
  Set oUpload = Nothing 
   
  linkFileAllegato = "profilo.asp?azione=editAvatar&esito=corretto" 
  response.Redirect(linkFileAllegato) 
else 
  linkFileAllegato = "profilo.asp?azione=editAvatar&esito=negativo" 
  response.Redirect(linkFileAllegato) 
end if 
%>