Hej. Önskar lite hjälp med filhantering.

Har nedanstående script för att ladda upp filer till servern och samtidigt läggs filnamnet i databasen.
Fungerar bra om jag kör upp 4 bilder men i bland har jag bara 1-3 bilder som skall skickas upp och det är då det inte fungerar för mig. Behöver antagligen få in IF-satser

<%
Set Upload = Server.CreateObject("Persits.Upload")

Upload.SetMaxSize 1048576 ' Limit files to 1MB
Count = Upload.SaveVirtual ("../beg_bilder/begagnat/")

' Obtain file object
Set File = Upload.Files("bild")
Set File2 = Upload.Files("bild2")
Set File3 = Upload.Files("bild3")
Set File4 = Upload.Files("bild4")


%>




<%
Set Connect=Server.CreateObject("ADODB.Connection")
Connect.Open "domain.se_databas"

Set RS = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT objekt, ar, motor, utrustning, ovrigt, pris, finans, bild, bild2, bild3, bild4 FROM tabell"

RS.Open Addera, Connect, adOpenStatic, adLockOptimistic


RS.AddNew

RS("bild") = File.ExtractFileName (IF-Sats? )
RS("bild2") = File2.ExtractFileName
RS("bild3") = File3.ExtractFileName
RS("bild4") = File4.ExtractFileName


RS("objekt") = Upload.Form("objekt")
RS("ar") = Upload.Form("ar")
RS("motor") = Upload.Form("motor")
RS("utrustning") = Upload.Form("utrustning")
RS("ovrigt") = Upload.Form("ovrigt")
RS("pris") = Upload.Form("pris")
RS("finans") = Upload.Form("finans")

RS.Update
RS.Close
Connect.Close
Response.Redirect("begagnat.asp")
%>


Tack på förhand!

Hej,

Ser databasenstabell ut ungefär så här:

<code>
tblImages
imageId | bild1 | bild2 | bild3 | bild4
</code>

Strukturen känns lite skum isåfall.

Japp. Tabellen är uppbyggd ungefär så. //Fredrik

Har lagt in hela koden! // Fredrik

Fick faktiskt hjälp på ett annat forum - Lägger ut lösningen här om det kan hjälpa någon annan.
Tackar för mig!

RS.AddNew

RS("bild") = File.ExtractFileName

If Not File2 Is Nothing Then
RS("bild2") = File2.ExtractFileName
End If

If Not File3 Is Nothing Then
RS("bild3") = File3.ExtractFileName
End If

If Not File4 Is Nothing Then
RS("bild4") = File4.ExtractFileName
End If