Problemer med Asp upload

Hej alle!

Jeg har en formular, hvorfra man kan uploade et billede ( bruger ASPupload )samt tekst,dato osv. - informationer bliver sendt til upload.asp - Scriptet i denne filen accepterer ikke hvis der ikke er noget billede med - og derved bliver oplysninger ikke
uploadet!

Dette vil jeg gerne undgå - således, at hvis man lader
uploadfeltet ("File1") stå tomt så uploader scriptet stadig de resterende oplysninger. Jeg har prøvet at rode med scriptet men
uden held - håber nogen kan hjælpe?!

MVH

Jimmy
<%

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

'Du sætter ScriptTimeout således:
Server.ScriptTimeout = 180


' This is needed to enable the progress indicator
Upload.ProgressID = Request.QueryString("PID")

' Capture files
Upload.Save("minbilledemappe")

' Obtain file object
Set File1 = Upload.Files("File1")

If Not File1 Is Nothing Then
  ' Build ODBC connection string
  Connect = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("mindatabase.mdb")

  ' If you use SQL Server, the connecton string must look as follows:
  ' Connect = "Driver=SQL Server;Server=MYSERVER;UID=sa;PWD=xxxxxxxxx"

  ' Build SQL INSERT statement
  SQL = "INSERT INTO news(image_blob, oversk, dato, imgstatus, file1, nyhed, jaintlink, intlink, inttxt, jawww, www, txtwww, jaemail, email, txtemail) VALUES(?, '"
  SQL = SQL & Replace(Upload.Form("oversk"), "'", "''") & "', '"
  SQL = SQL & Replace(Upload.Form("dato"), "'", "''") & "', '"
  SQL = SQL & Replace(Upload.Form("imgstatus"), "'", "''") & "', '"
  SQL = SQL & File1.Filename & "', '"
  SQL = SQL & Replace(Upload.Form("nyhed"), "'", "''") & "', '"
  SQL = SQL & Replace(Upload.Form("jaintlink"), "'", "''") & "', '"
  SQL = SQL & Replace(Upload.Form("intlink"), "'", "''") & "', '"
  SQL = SQL & Replace(Upload.Form("inttxt"), "'", "''") & "', '"
  SQL = SQL & Replace(Upload.Form("jawww"), "'", "''") & "', '"
  SQL = SQL & Replace(Upload.Form("www"), "'", "''") & "', '"
  SQL = SQL & Replace(Upload.Form("txtwww"), "'", "''") & "', '"
  SQL = SQL & Replace(Upload.Form("jaemail"), "'", "''") & "', '"
  SQL = SQL & Replace(Upload.Form("email"), "'", "''") & "', '"
  SQL = SQL & Replace(Upload.Form("txtemail"), "'", "''") & "')"

' Save to database
  File1.ToDatabase Connect, SQL
  Response.Write "Nyheden er uploadet."
Else
' Build ODBC connection string
  Connect = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("mindatabase")

  ' If you use SQL Server, the connecton string must look as follows:
  ' Connect = "Driver=SQL Server;Server=MYSERVER;UID=sa;PWD=xxxxxxxxx"

  ' Build SQL INSERT statement
  SQL = "INSERT INTO news(image_blob, oversk, dato, imgstatus, nyhed, jaintlink, intlink, inttxt, jawww, www, txtwww, jaemail, email, txtemail) VALUES(?, '"
  SQL = SQL & Replace(Upload.Form("oversk"), "'", "''") & "', '"
  SQL = SQL & Replace(Upload.Form("dato"), "'", "''") & "', '"
  SQL = SQL & Replace(Upload.Form("imgstatus"), "'", "''") & "', '"
  SQL = SQL & Replace(Upload.Form("nyhed"), "'", "''") & "', '"
  SQL = SQL & Replace(Upload.Form("jaintlink"), "'", "''") & "', '"
  SQL = SQL & Replace(Upload.Form("intlink"), "'", "''") & "', '"
  SQL = SQL & Replace(Upload.Form("inttxt"), "'", "''") & "', '"
  SQL = SQL & Replace(Upload.Form("jawww"), "'", "''") & "', '"
  SQL = SQL & Replace(Upload.Form("www"), "'", "''") & "', '"
  SQL = SQL & Replace(Upload.Form("txtwww"), "'", "''") & "', '"
  SQL = SQL & Replace(Upload.Form("jaemail"), "'", "''") & "', '"
  SQL = SQL & Replace(Upload.Form("email"), "'", "''") & "', '"
  SQL = SQL & Replace(Upload.Form("txtemail"), "'", "''") & "')"
 
' Save to database
  Her skal stå eller andet!!

 
  Response.Write "Nyheden er uploadet uden billede."
End If

%>