Få indsæt form til at se bort for tomme felter

Jeg har en aspsmartupload form med billedet upload.
Lige nu skal alle felter i formen være udfyldt før den vil upload ellers givder den fejl.
Hvordan får jeg den til at være lige glad med de felter der ikke er udfyldt? Dette gælder også for billedet upload.

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

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


'  Select each file
'  ****************
  For each file In mySmartUpload.Files
  '  Only if the file exist
  '  **********************
      If not file.IsMissing Then
      '  Save the files with his original names in a virtual path of the web server
      '  ****************************************************************************
       
        'file.SaveAs("/../Billeder" & file.FileName)
        ' sample with a physical path
        file.SaveAs("D:websider\damslund\danskehojtider\Upload\" & file.FileName)

' Databaseforbindelse - husk at angive sti til din database
OpenDatabase

'Tilføjer brugeren til databasen
    Set rs = Server.CreateObject("ADODB.Recordset")
    strSQL = "select * from keywords"
    rs.Open strsql, conn, 1, 3

'Tilføjer brugeren til databasen og sender ham/hende til login siden
    rs.AddNew
    rs("kw_word") = mySmartUpload.Form("kw_word")
    rs("kw_type") = mySmartUpload.Form("kw_type")
    rs("kw_beskrivelse") = mySmartUpload.Form("kw_beskrivelse")
    rs("kw_smag") = mySmartUpload.Form("kw_smag")
    rs("kw_anvendelse") = mySmartUpload.Form("kw_anvendelse")   
    rs("kw_historie") = mySmartUpload.Form("kw_historie")
    rs("kw_kendetegn") = mySmartUpload.Form("kw_kendetegn")
    rs("kw_dyrkning") = mySmartUpload.Form("kw_dyrkning")
    rs("kw_kvalitet") = mySmartUpload.Form("kw_kvalitet")
    rs("kw_sorter") = mySmartUpload.Form("kw_sorter")
    rs("kw_sason") = mySmartUpload.Form("kw_sason")
    rs("Filsti") = file.FileName
    rs.update

        intCount = intCount + 1

End If
'  Display the number of files which could be uploaded
'  ***************************************************
  Response.Write("<BR>" & mySmartUpload.Files.Count & " file(r) kunne blive uploaded.<BR>")

'  Display the number of files uploaded
'  ************************************
  Response.Write(intCount & " file(r) uploaded.<BR>")
Next
%>