ASPmySmartUpload + If sætning inden i!!

Hej eksperter jeg har et script til at lave en nyhed.. Det skulle gerne være sådan at man kan vælge et billede der allerede er uploadet ellers også bare uploade et nyt..
Jeg har koden som jeg har rodet lidt med, men den uploader hverken eller noget som heltst:


<%


'Variables
Dim mySmartUpload, file
       
'Object creation
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
On Error Resume Next

'Upload
mySmartUpload.Upload

if mySmartUpload.Form("billed") = "" then

    Const adOpenKeyset = 1
    Const adLockOptimistic = 3
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../em.mdb") & ";UID=admin;PWD=;"

    'Tilføjer brugeren til databasen
    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "Select * From news"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic


    'Tilføjer brugeren til databasen og sender ham/hende til login siden
    rs.AddNew
    rs("navn") = mySmartUpload.Form("navn")
    rs("posted") = mySmartUpload.Form("posted")
    rs("news") = mySmartUpload.Form("news")
    rs("info") = mySmartUpload.Form("info")
    rs("kategori") = mySmartUpload.Form("kategori")
'    rs("billed") = mySmartUpload.files.item(1).FileName
    rs("Dato") = Now
    rs("billed1") = mySmartUpload.Form("billed1")
    rs.update
    response.redirect "../default.asp"
   
    else

'Only if the file exist
If not mySmartUpload.files.item(1).IsMissing Then
       
    'sample with a physical path
    mySmartUpload.files.item(1).SaveAs("../images/" & mySmartUpload.files.item(1).FileName)

    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../em.mdb") & ";UID=admin;PWD=;"

    'Tilføjer brugeren til databasen
    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "Select * From news"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
   
    'Display the properties of the current file
response.write "Din nyhed er du oprettet!"




 


    'Tilføjer brugeren til databasen og sender ham/hende til login siden
    rs.AddNew
    rs("navn") = mySmartUpload.Form("navn")
    rs("posted") = Session("Gamernick")
    rs("news") = mySmartUpload.Form("news")
    rs("info") = mySmartUpload.Form("info")
    rs("kategori") = mySmartUpload.Form("kategori")
    rs("billed") = mySmartUpload.files.item(1).FileName
    rs("Dato") = Now
    rs.update


    rs.Close
    Set rs = Nothing
    Conn.Close
    Set Conn = Nothing

Else
    Response.Write("Du har ikke valgt et billede!")
End If

Err.Clear
Set mySmartUpload = Nothing
end if
%>

/Mjall0w-