"Omvendt" problem, don't upload

Jeg har dette script til upload af billeder og insættelse af data i en access db.

Hvordan får jeg dette til at lade være med at uploade billedet(filen), hvis billedet er for stort, forkert type eller for bredt/højt
n sagtens få mine if statements til at virke men den uploader filen uanset hvad.

<%
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.open "provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("../../db/varer.mdb")&";"

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

      Upload.OverwriteFiles = false
      'Upload.SetMaxSize 300000, True
      Upload.SaveVirtual ("../../images/annoncer")     
'----------------------------------------------------------
stor = upload.form("stor")
stor = Replace(stor, "'", "''")

dato = upload.form("dato")
ind = upload.form("ind")
forh = upload.form("forh")

if isNumeric(forh) = false then forh = 0
if isNumeric(ind) = false then ind = 0

'---------------------------------------------------------------------------
If IsEmpty(upload.form("varenr")) or upload.form("varenr")="" then
    response.redirect "ny_annonce.asp?overskrift=" & upload.form("overskrift") &"&ud=" & upload.form("ud") &"&anno=varenr"
Else
    varenr = upload.form("varenr")
    varenr = Replace(varenr, "'", "''")

       
If IsEmpty(upload.form("overskrift")) or upload.form("overskrift")="" then
    response.redirect "ny_annonce.asp?varenr=" & upload.form("varenr") &"&ud=" & upload.form("ud") &"&anno=overskrift"
Else
    overskrift = upload.form("overskrift")
    overskrift = Replace(overskrift, "'", "''")


If IsEmpty(upload.form("ud")) or upload.form("ud")="" then
        response.redirect "ny_annonce.asp?varenr=" & upload.form("varenr") &"&overskrift=" & upload.form("overskrift") &"&anno=ud"
    Else
        ud = upload.form("ud")
'---------------------------------------------------------------
billed = Upload.Form("billed")
Set billed = Upload.Files("billed")

    If billed is nothing Then
        Pic = ""
    Else
        Pic = billed.ExtractFileName
    End if
   
    If billed.ImageType <> "GIF" and billed.ImageType <> "JPG" Then
        response.redirect "ny_annonce.asp?varenr=" & upload.form("varenr") &"&overskrift=" & upload.form("overskrift") &"&ud=" & upload.form("ud") &"&format=" & billed.ImageType &"&billed=type"
  End if
 
    If billed.ImageWidth > 150 or billed.ImageHeight > 150 Then
        response.redirect "ny_annonce.asp?varenr=" & upload.form("varenr") &"&overskrift=" & upload.form("overskrift") &"&ud=" & upload.form("ud") &"&bredde=" & billed.ImageWidth &"&billed=bredde"
End if       

    If billed.OriginalSize > 300000 Then
        response.redirect "ny_annonce.asp?varenr=" & upload.form("varenr") &"&overskrift=" & upload.form("overskrift") &"&ud=" & upload.form("ud") &"&stoerrelse=" & billed.ImageWidth &"&billed=stoerelse"
End if


      strSQL = "Insert into annonce (varenr, varebeskrivelse, indkoebspris_excl_moms, forhandlerpris_excl_moms, udsalgspris_incl_moms, stor_beskrivelse, billedfil, oprettet, redigeret) " &_
      "values('" & varenr & "','" & overskrift & "'," & ind & "," & forh & ",'" & ud & "','" & stor & "','" & pic & "',#" & dato & "#,#" & dato & "#)"
      myConn.Execute(strSQL)


End if
End if
End if
myconn.close
Set myconn = Nothing
Set strSQL = Nothing
response.redirect ("annoncer.asp")
%>