Från w3 upload till AspUpload = hjälp

Har lite problem med ett script som jag nu måste få att fungera med komponenten AspUpload.
Undrar om något kan ge mig lite tips vad som kan vara fel?
För jag vill att bilden som laddas ska få ett specifikt IDnr (actualName).

Min kod:

<%
'Set upload = Server.CreateObject("w3.upload")
Set upload = Server.CreateObject("Persits.Upload.1")

'Här får jag det specifika IDnumret
actualName = upload.Form("name")

Set fileName = upload.Form("thefile")

'if fileName.IsFile then

If Not fileName Is Nothing Then
fileName.SaveToFile( Request.ServerVariables( "APPL_PHYSICAL_PATH" ) & "\images\lagervagnar\" & actualName & ".jpg")
End if

Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM Inkop WHERE ID = " & actualName
RecSet.Open Addera, DB, adOpenStatic, adLockOptimistic

RecSet("Bild") = actualName
RecSet.Update
RecSet.Close
Set RecSet = nothing

%>
Blir glad om någon kan hjälpa mig
/Annette