L'upload l'ho già usato per la pagina (add.asp)

<%


On Error Resume Next

If Request("id") = "" Then
uId = 1
else
uId = Request("id")
End If

sAction = Request("_act")
dim rs
Dim conn
Open_Conn(sPath)

Set RS = Server.CreateObject("ADODB.RecordSet")
Request.QueryString("id") = "add"
Dim Uploader, File
Set Uploader = New FileUploader
Dim pathfile

Uploader.Upload()
If Uploader.Files.Count = 0 Then
' Nessun file inserito
pathfile = ""
Else
Uploader.Files("pathfile").SaveToDisk Server.MapPath("foto")
pathfile = "foto/" & Uploader.Files("pathfile").FileName
End if
sql = "select A.* from Categorie A Where A.idCategoria =" & uId

RS.Open sql, Conn, 1,1

If RS.EOF Then
Response.Redirect("Error.asp?rmes=Id+invalide")
End If
str = ""

RS.close
sql = "select A.* from dati A Where A.idcategoria =" & uId

If (sAction = "add") Then
RS.Open sql, Conn, 3,3
rs.AddNew
If Err.Number > 0 Then
str = str & "
Err0 : " & Err.Number & " - " & Err.Description
End If

rs.Fields("immagine").Value = pathfile

rs.Update
________________________

Solo che questo script l'ho trascritto bello e fatto e non ho idea di come importarlo nel file di modifica... Mi potresti aiutare?