Recuperare Id del record inserito [uploadBaol]

[Giubass]

Ciao Ragazzi, sto utilizzando l'upload di baol, funziona tutto bene però avrei l'esigenza di recuperare l'id del record inserito. Altre volte ho recuperato tranquillamente tale record ma non ho utilizzato l'upload.

Questo è il codice che utilizzo in altri script per recuperare l'id:

' stringa di connessione 
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\miosito.it\db\dati.mdb;"
Set objConn = Server.CreateObject("ADODB.Connection") 
objConn.Open strConn 
  
'Richiamo l'ID del record inserito
strSQL = "select @@identity FROM Tabella" 
	
' Valorizziamo un recordset 
Set objRs = Server.createObject("ADODB.recordset") 

' Eseguiamo la query.  
objRs.open strSQL, objConn, 1, 3 

' Se la query restituisce un valore 
If Not objRs.Eof Then 

' valorizza la variabile 
idrecordinserito = objRs(0) 

End If 

Session("NumeroProgressivo") = idrecordinserito  

objRs.Close 
Set objRs = nothing 	
objConn.Close 
set objConn = Nothing

Mentre questo è lo script per upload:

<% 
Conferma = Request.Querystring("conferma")
If Conferma <> "Ok" Then
   Response.Write("<script language=""JavaScript"">history.go(-1)</script>")
End If
%>

<% 
Dim oUpload, arrayCaratteri(18,1)

arrayCaratteri(0,0) = "à"
arrayCaratteri(0,1) = "&agrave;"
arrayCaratteri(1,0) = "è"
arrayCaratteri(1,1) = "&egrave;"
arrayCaratteri(2,0) = "é"
arrayCaratteri(2,1) = "&eacute;"
arrayCaratteri(3,0) = "ì"
arrayCaratteri(3,1) = "&igrave;"
arrayCaratteri(4,0) = "ò"
arrayCaratteri(4,1) = "&ograve;"
arrayCaratteri(5,0) = "ù"
arrayCaratteri(5,1) = "&ugrave;"
arrayCaratteri(6,0) = " < "
arrayCaratteri(6,1) = " &lt; "
arrayCaratteri(7,0) = " > "
arrayCaratteri(7,1) = " &gt; "
arrayCaratteri(8,0) = "ç"
arrayCaratteri(8,1) = "&ccedil;"
arrayCaratteri(9,0) = "°"
arrayCaratteri(9,1) = "&deg;"
arrayCaratteri(10,0) = "£"
arrayCaratteri(10,1) = "&pound;"
arrayCaratteri(11,0) = "€"
arrayCaratteri(11,1) = "&euro;"
arrayCaratteri(12,0) = "["
arrayCaratteri(12,1) = " &lt; "
arrayCaratteri(13,0) = "]"
arrayCaratteri(13,1) = " &gt; "
arrayCaratteri(14,0) = "URL="
arrayCaratteri(14,1) = "a href="
arrayCaratteri(15,0) = "/URL"
arrayCaratteri(15,1) = "/a"
arrayCaratteri(16,0) = "EMAIL"
arrayCaratteri(16,1) = "a href=mailto:"
arrayCaratteri(17,0) = "/EMAIL"
arrayCaratteri(17,1) = "/a"
arrayCaratteri(18,0) = "'"
arrayCaratteri(18,1) = "''"

Set oUpload= new cUpload
With oUpload
' stringa di connessione 
.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\miosito.it\db\dati.mdb;", "SELECT Top 1 * FROM Tabella"
.EnabledAspUpload	= False
.EnabledImageSize	= False 'Se impostata a true , vengono calcolate le dimensioni delle immagini.
.EnabledLog 		= False
.AutoRename 		= False
.Overwrite		    = True
.SetPath "/public"
.Load
.UploadOnly "Images"

If Not .EOF then


	While Not .EOF
		 Select Case lCase(oUpload.Files("InputName"))
	       Case "campo1"
	            Foto = oUpload.GetFileName()
	       Case "campo2"
	            Logo = oUpload.GetFileName()
	     End Select		
		.Save		 
	    .MoveNext
	
	Wend
	    .Database.Open()
		Professione		= Replace(.Form("Professione"), "'" , "''")
		Email_pubblica	= Replace(.Form("Email_pubblica"), "'" , "''")
		Politica		= .Form("Politica")
		Lavoro			= .Form("Lavoro")
		Famiglia		= .Form("Famiglia")
		
		If Professione = "" Then
		 	Professione="N.D."
			.Database.Fields("Professione") = Professione
		Else
		    .Database.Fields("Professione") = Professione
		End If
		 
		If Email_pubblica = "" Then
		   Email_pubblica ="N.D."
		   .Database.Fields("Email_pubblica") = Email_pubblica
		Else	   
   			If instr(Email_pubblica, "@") = 0 & Or_ & instr(Email_pubblica, ".") = 0 Then
       			'Email non valida
       			Session("error1") = "Ok"
       			Response.Redirect ("error1.asp")
  	   		Else
       'Email valida
	   	   .Database.Fields("Email_pubblica") = Email_pubblica
		    End If
	    End If 
		
		 If Politica = "" Then
		 	 Politica = "N.D."
			.Database.Fields("Politica") = Politica
		 Else
			For i = 0 To uBound(arrayCaratteri)
            	Politica = replace(Politica,arrayCaratteri(i,0),arrayCaratteri(i,1))
				Politica = replace(Politica, VbCrLf, "
")
            Next	
		 	.Database.Fields("Politica") = Politica
		 End If
		 
		 If Lavoro = "" Then
		 	 Lavoro = "N.D."
			.Database.Fields("Lavoro") = Lavoro
		 Else
			For i = 0 To uBound(arrayCaratteri)
            	Lavoro = replace(Lavoro,arrayCaratteri(i,0),arrayCaratteri(i,1))
				Lavoro = replace(Lavoro, VbCrLf, "
")
            Next	
		 	.Database.Fields("Lavoro") = Lavoro
		 End If
		 
		 If Famiglia = "" Then
		 	 Famiglia = "N.D."
			.Database.Fields("Famiglia") = Famiglia
		 Else
			For i = 0 To uBound(arrayCaratteri)
            	Famiglia = replace(Famiglia,arrayCaratteri(i,0),arrayCaratteri(i,1))
				Famiglia = replace(Famiglia, VbCrLf, "
")
            Next	
		 	.Database.Fields("Famiglia") = Famiglia
		 End If
		
		.Database.Fields("Foto") = Foto	
		.Database.Fields("Logo") = Logo
		.Database.Fields("Id_Ord") = Session("IDOrdine")
        .Database.Fields("NomeCd") = Session("NomeCd")
		.Database.Fields("CognomeCd") = Session("CognomeCd")
		.Database.Fields("ComuneCd") = Session("ComuneCd")
		.Database.Fields("Lista") = Session("Lista")
		.Database.Fields("NomeCm") = Session("NomeCm")
		.Database.Fields("CognomeCm") = Session("CognomeCm")
		.Database.Fields("ComuneCm") = Session("ComuneCm")
		.Database.Fields("IndirizzoCm") = Session("IndirizzoCm")
		.Database.Fields("RecapitoCm") = Session("RecapitoCm")
		.Database.Fields("EmailCm") = Session("EmailCm")
		.Database.Fields("Fatturazione") = Session("Fatturazione")
		.Database.Fields("Servizio7") = Session("Servizio7")
		.Database.Fields("Msg") = Session("Note")
		.Database.AddNew()
	
Response.Redirect("mail_conferma.asp?conferma=Ok")
else
 Response.write("<div align=""center"">Nessuna immagine selezionata!

Clicca per reinserire i dati</div>")
End If
.Database.Close()
End With
Set oUpload = Nothing
%>

In definitiva dovrei inglobare il codice per recuperare l'id nello script dell'upload.

Grazie