aspupload - tjekke form

Jeg har følgende kode som uploader billeder og tilføjer tekst i databasen. Men jeg vil gerne have den til at tjekke om der bliver uploadet billeder. Hvis der ikke er billeder, skal den alligevel tilføje tekst i databasen.

<%

Set Upload = Server.CreateObject("Persits.Upload")
Path = Server.MapPath(images)
Count = Upload.Save(Path)

If Count = 0 Then
  Response.Write "No images selected."
  Response.End
Else

Set File1 = Upload.Files(1)

  Set File2 = Upload.Files(2)
 

  If File1.ImageType <> "UNKNOWN" or File2.ImageType <> "UNKNOWN" Then
  Set jpeg1 = Server.CreateObject("Persits.Jpeg")
  Set jpeg2 = Server.CreateObject("Persits.Jpeg")
    jpeg1.Open( File1.Path )
    jpeg2.Open( File2.Path )
    Set Info1 = Jpeg1.Openinfo ( File1.Path )
    Set Info2 = Jpeg2.Openinfo ( File2.Path )

    Jpeg1.Width = blogThumbWidth
    Jpeg1.Height = jpeg1.OriginalHeight * jpeg1.Width / jpeg1.OriginalWidth
    Jpeg2.Width = blogThumbWidth
    Jpeg2.Height = jpeg2.OriginalHeight * jpeg2.Width / jpeg2.OriginalWidth

    If Jpeg1.Height>blogThumbHeight Then
    Jpeg1.Crop 0, 0, Jpeg1.Width, intThumbHeight
    End If
    If Jpeg2.Height>blogThumbHeight Then
    Jpeg2.Crop 0, 0, Jpeg2.Width, intThumbHeight
    End If

    if Jpeg1.Height < blogThumbHeight then
    Jpeg1.Height = blogThumbHeight
    end if
    if Jpeg2.Height < blogThumbHeight then
    Jpeg2.Height = blogThumbHeight
    end if

       
    SavePath1 = Path & "/Thumbs/" & File1.ExtractFileName
    SavePath2 = Path & "/Thumbs/" & File2.ExtractFileName
       
    If UCase(Right(SavePath1, 3)) <> "JPG" Then
      SavePath1 = SavePath1 & ".jpg"
    End If
    If UCase(Right(SavePath1, 3)) <> "JPG" Then
      SavePath1 = SavePath1 & ".jpg"
    End If


    jpeg1.Save SavePath1
    jpeg2.Save SavePath2
   
   
    set conn = server.createobject("adodb.connection")
    conn.open dbPath

    aktiv = Upload.Form("aktiv")
    if aktiv = "on" then
    SQLaktiv = true
    else
    SQlaktiv = false
    end if

    dim dato
    dato = now()
   
    Set rs = Server.CreateObject("adodb.recordset")
    rs.Open "blog", conn, 2, 2
    rs.AddNew

    rs("images1") = File1.ExtractFileName
    rs("images2") = File2.ExtractFileName
    rs("dato") = dato
    rs("forfatter") = Upload.Form("forfatter")
    rs("overskrift") = Upload.Form("overskrift")
    rs("aktiv") = SQLaktiv
    rs("blog") = Upload.Form("blog")
    rs.Update
    rs.Close
    Set rs = Nothing

    Response.Write "Success!"
  Else
    Response.Write "This is not a valid image."
    Response.End
  End If
end if
   
  Response.Redirect("blog.asp")
%>