File upload med aspsmartupload

Hej...

Jeg har skal oploade 3 billeder til 3 forskellige mapper, men er ikke helt sikker på hvordan jeg gør det.
samtidig skal jeg have det ene filnavn, samt en valgt kategori gemt i en accessdatabase:

filerne:
strlille
str800x600
str1024x768

strkat  <-- kategorien

Jeg havde tænkt noget i den retning, men der kan jeg ikke se om jeg kan gemme filerne i hver deres mappe...:

<%
If request.querystring("add") <> "" then
    strError = ""   
    strlille = Trim(Request.Form("lille"))
    str800x600 = Trim(Request.Form("800x600"))
    str1024x768 = Trim(Request.Form("1024x768"))
    strkat = Trim(Request.Form("kat"))
    next
    If Len(strlille) = 0 Then
        strError = 1
    Elseif Len(str800x600) = 0 Then
        strError = 2
    Elseif Len(str1024x768) = 0 Then
        strError = 3
    Elseif Len(strkat) = 0 Then
        strError = 4
    End If
        If Len(strError) = 0 Then

'  Variables
'  *********
  Dim mySmartUpload
  Dim intCount
       
'  Object creation
'  ***************
  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

'  Only allow txt or htm files
'  ***************************
  mySmartUpload.AllowedFilesList = "jpeg,jpg,gif"
  mySmartUpload.DeniedFilesList = "exe,bat,asp,php,htm,html,com"

'  Only allow files smaller than 50000 bytes
'  *****************************************
  mySmartUpload.MaxFileSize = 50000

'  Upload
'  ******
  mySmartUpload.Upload


'  Trap errors
'  ***********
  If Err Then
    response.redirect("../?side=media&bag=tilfoj&fejl" & strerror)
  End If

  for each file in mySmartUpload.files
    If not file.IsMissing Then
   
    'Connecte til db:
    Set conn = Server.CreateObject("ADODB.Connection")
    Set rs = Server.CreateObject("ADODB.Recordset")
    connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & Server.Mappath("../../db/media.mdb")
    Conn.Open connstr

    rs.Open "SELECT * FROM download WHERE (id = 0)", conn, 1,3
    rs.add
 
    rs("navn") = file.FileName
    rs.Update

    file.SaveAs "/bg_image." & file.Fileext

   
    rs("navn") = file.name
    rs.Update
    rs.Close
    Conn.Close
    end if
next
    Response.Redirect("../?side=media")
else
    response.redirect("../?side=media&bag=tilfoj&fejl" & strerror)

%>