Upload File con aspSmartUpload.dll e rinonima dei file

[ondes_giaco]

Salve
devo caricare immagini su un server con aspSmartUpload; in pratica ho una rubrica multi utenza e ogni utente può caricare un'immagine di un contatto. Questo è il form che utilizzo per la scelta del file:

<FORM METHOD="Post" enctype="multipart/form-data" ACTION="upload.asp">
<INPUT TYPE="file" NAME="file">
<INPUT TYPE="submit" NAME="Enter" value="Upload">
</FORM>

questa è la pagina upload.asp

<%
On Error Resume Next
Dim objUpl
Set objUpl = Server.CreateObject("aspSmartUpload.SmartUpload")
objUpl.AllowedFilesList = "jpg,gif,jpeg"
objUpl.MaxFileSize = 1000000
objUpl.Upload
objUpl.Save("/Stagista/Sito/upload")
Set objUpl = Nothing
If Err.Number = 0 Then
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Stagista\Sito\Database\Rubrica.accdb;Per sist Security Info=False; "
Conn.Open strConn
dim idRubrica
dim nomefile
idRubrica = session("idcontatto")
sql = "SELECT IDRUBRICA,PERCORSOIMM FROM Immagini WHERE IDRUBRICA = " & idRubrica & " "
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql,Conn,1
if rs.eof then
sql = "SELECT * FROM Immagini "
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql,Conn,3,3
' Preparazione e scrittura nuovo record
rs.addnew
rs("IDRUBRICA") = idRubrica
nomefile = request.form("file")
rs("PERCORSOIMM") = nomefile
rs.update
end if
Response.Write "Upload eseguito con successo!"
Else
Response.Write "Errore in fase di upload, riprova!"
End If
%>


Il problema è che qualsiasi file io voglia caricare, mi compare sempre la schermata di errore "Errore in fase di upload,riprova!"

Inoltre vorrei che il nome del file da caricare corrispondesse con l'id del contatto che corrisponde a un campo della tabella del database. è possibile rinominare il file prima di caricarlo sul server?