upload script find fem fejl

hej eksperter

Er der nogen der kan lure hvad jeg gør forkert her ?

Jeg har et script som skal uploade en fil. Men inden det gøres skal filen tjekkes for størrelse (200kb) samt format (gif, tif og jpg).

Variablen Billedenavn sættes til "nope" hvis ikke der uploades noget billede sammen med posten.

Nedenstående er sikkert et frygteligt rod. Da jeg har forsøgt at skrive mit gamle fungerende script sammen med et som tjekkede for type og størrelse, for det gjorde mit gamle script ikke. Adressen efter upload.save er den rette adresse, der gemte den til før jeg begyndte at lege med at tjekke ting :-)

God jagt og på forhånd tak.

-Labanen
-----------------
  fejl = false
  Billedenavn      = "nope"
  Set Upload = Server.CreateObject("Persits.Upload.1")
  If Not Upload.Files("FILE1") Is Nothing Then
    Set file = Upload.Files("FILE1")
      if lCase(file.ext) = "tif" Or lCase(file.ext) = "gif" or lCase(file.ext) = "jpg" and File.Size < 200000 Then
        Upload.Save("d:\home\feltkursus2008dk\www\mainframes\login\opslag_upload")
        Billedenavn = File.FileName
      Else
        fejl = True
        fejltekst = "billedet er for stort eller forkert format, kun .gif .tif og .jpg billeder virker"
      End if
  end If
  Tekst                = Upload.form("text")
  U_Id                = session("U_Id")
  Dag                = day(now)
  Maaned            = month(now)
  Aar                = ((year(now))-2000)
  Tid                = time
  Tekst                = replace(Tekst, vbCrLf, "<br>")
  Tekst                = replace(Tekst, "'", "´") 


If Not fejl then
    set Conn = Server.CreateObject("ADODB.Connection")
    DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
    DSN = DSN & "DBQ=" & Server.MapPath ("../../../db/feltkursus.mdb")
    Conn.Open DSN
    strSQL = "Insert into Opslag (U_Id, O_Tekst, O_Dag, O_Maaned, O_Aar, O_Tid, O_Billede) values('" & U_Id & "','" & Tekst & "','" & Dag & "','" & Maaned & "','" & Aar & "','" & Tid & "','" & Billedenavn & "')"
    Set rs = Conn.Execute(strSQL)
    Conn.Close
    set Conn = Nothing
  Response.write "<span class='tekst'>Opslag tilføjet<br><a href='opslag.asp'>Tilbage</a></span>&nbsp;"
Else
  Response.write "<span class='tekst'>"& fejltekst &"<br><a href='opslag.asp'>Tilbage</a></span>&nbsp;"
End if