Ciao ho un problema in questo file di Upload e modifica dei Dati.
il tutto funziona correttamente, ma vorrei avere un aiuto sulla parte di Upload.
Praticamente vengono compilati i campi del form, allegando un file e cliccando sul Button i dati vengono modificati.
L'unica cosa e che ogni volta che clicco sul button, se io non allego nulla per esempio mi stampa un file vuoto.
Vorrei mettere un controllo, che se vede che è gia presente un file non mi esegua la modifica mettendomi un allegato vuoto

codice:
<head>
	<title>INSERISCI DOCUMENTO</title>
	<link href="stile.css" rel="stylesheet" type="text/css">
	<script type="text/javascript" src="js/jquery.js"></script>
	<script type="text/javascript" src="js/interface.js"></script>
	<link href="stylemenu.css" rel="stylesheet" type="text/css" />	
    
</head>




<%

Dim oUpload
Dim oFile 
Dim sFileName
Dim oFSO
Dim sPath        'percorso del file
Dim sNewData
Dim nLength
Dim bytBinaryData
Dim Tipo         'campo TIPOLOGIA del form
Dim Destinatario 
Dim Mittente     'campo PERSONA del form

Const nForReading = 1
Const nForWriting = 2
Const nForAppending = 8

Dim anno, mese, giorno, ore, minuti, secondi
Dim Differenza3


   ' Funzione DataInNum a cui passo una data
   ' Preleva dalla data l'anno
   anno = Year(date)
   ' Preleva dalla data il mese 
   mese = Month(date)
   ' Preleva dalla data il giorno 
   giorno = Day(date)
   ' Concatena i valori in un unico numero
   solodata = giorno & "/" & mese & "/" & anno

   data = giorno & mese & anno
   
   ore = hour(time)
   minuti = minute(time)
   secondi = second(time)
   
   Orax = ore & minuti & secondi


' grab the uploaded file data
Set oUpload = New clsUpload1

Tipo = oUpload.ValueOf(1)' il numero contrassegnato nella parentesi sta a indicare il numero del campo (in quest caso corrisponde al primo campo) '
Data_ricevimento = oUpload.ValueOf(2)
Mittente = oUpload.ValueOf(3)
Ritirato_da = oUpload.ValueOf(5)
Data_ritiro = oUpload.ValueOf(6)
Destinatario = oUpload.ValueOf(4)
Priorita = oUpload.ValueOf(7)
Mail = oUpload.ValueOf(8)
Note = oUpload.ValueOf(9)
Allegato = oUpload.ValueOf(10)
StatoPosta = oUpload.ValueOf(11)


Set oFile = oUpload("File1")

' parse the file name

sFileName = oFile.FileName
If Not InStr(sFileName, "\") = 0 Then
	sFileName = Mid(sFileName, InStrRev(sFileName, "\") + 1)
End If

' Convert the binary data to Ascii
bytBinaryData = oFile.BinaryData
nLength = LenB(bytBinaryData)
For nIndex = 1 To nLength
	sNewData = sNewData & Chr(AscB(MidB(bytBinaryData, nIndex, 1)))
Next

' Salviamo Il Documento nella Cartella Allegati e scriviamo ORA E DATA COME NOME DEL FILE
sPath = Server.MapPath("MODIFICATI") & "/"
Set oFSO = Server.CreateObject("Scripting.FileSystemObject")
	sFileName = data & Orax & "-" & sFileName
	sFileName = replace(sFileName, " ", "_")
oFSO.OpenTextFile(sPath & sFileName, nForWriting, True).Write sNewData
Set oFSO = Nothing

Set oFile = Nothing
Set oUpload = Nothing

dataP =  Data_ricevimento

dim conn, rs, rs2, rs4, rs5, sql

' --- costruzione stringa di connessione al db ---
	Set Conn = Server.CreateObject("ADODB.Connection")
	Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" &_
	"DBQ="& Server.MapPath("Posta.mdb")


ID = session("ID")

'connessione al database
	Set Conn = Server.CreateObject("ADODB.Connection")
	Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" &_
	"DBQ="& Server.MapPath("Posta.mdb")

sql = "SELECT * FROM T_Posta WHERE ID = " & ID


set rs = CreateObject("ADODB.Recordset")

rs.Open sql, conn, 1, 3

rs("Tipo") = Tipo
rs("Data_ricevimento") = Data_ricevimento
rs("Mittente") = Mittente
rs("Destinatario") = Destinatario
rs("Ritirato_da") = Ritirato_da
rs("Data_ritiro") = Data_ritiro
rs("Priorita") = Priorita
rs("Mail") = Mail
rs("Note") = Note
rs("Allegato") = sFileName
rs("StatoPosta") = StatoPosta
rs.update



rs.close 
set rs = nothing

conn.close
set conn = nothing


'response.redirect "visualizza.asp"
%>
</html>