mySmartUpload.AllowedFilesList - problem hvis stort JPG

Hej eksperter

Jeg bruger nedenstående kode til at få uploadet et billede, men problemet er bare, at der er forskel på, om billedets filnavn ender på .jpg eller .JPG - kan ikke uploade korrekt, hvis ender på stort JPG????????

På forhånd tak.

<%
            function resize(sti,navn,nyX)
    Set objImg = Server.CreateObject("AspImage.Image")
        objImg.PadSize = 0
        objImg.LoadImage Server.MapPath(sti & navn)
        objImg.GetImageFileSize Server.MapPath(sti & navn), X, Y
   
        ResizedX = nyX
        objImg.MaxX = X
        objImg.MaxY = Y
   
        if X > ResizedX then
            ResizedY = (ResizedX / objImg.MaxX) * objImg.MaxY
            objImg.ResizeR ResizedX, ResizedY
            objImg.FileName = (Server.MapPath(sti & navn))
            objImg.SaveImage
        end if
   
    Set objImg = Nothing
end function

If Request("s") = "upload" Then

  Dim mySmartUpload
  Dim file1
  Dim intCount
  intCount=0

  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
 
  'limit the file extensions to pictures files
  mySmartUpload.allowedFilesList="jpg,jpeg"
  On Error Resume Next
 
  mySmartUpload.Upload

  For each file1 In mySmartUpload.Files

      If not file1.IsMissing Then
       
        'file1.SaveAs("/upload/" & Session("Bruger") & "/" & file1.FileName)
        billede = file1.FileName
        billede = replace(billede, " ", "_")
        billede = replace(billede, ",", "_")
        billede = replace(billede, "'", "_")
        billede = replace(billede, "æ", "_")
        billede = replace(billede, "Æ", "_")
        billede = replace(billede, "ø", "_")
        billede = replace(billede, "Ø", "_")
        billede = replace(billede, "å", "_")
        billede = replace(billede, "Å", "_")
        file1.SaveAs("/upload/" & Session("Bruger") & "/" & billede)
       
          SQL = "INSERT INTO Upload(Bruger, Billede)"
            SQL = SQL & "Values("
            SQL = SQL & "'" & Session("Bruger") & "',"
            SQL = SQL & "'" & billede & "'"
            SQL = SQL & ")"
           
            Conn.Execute(SQL)

        Response.Write("<font face='Verdana' color='#000000' size='2'>Du har netop uploadet dette billede: " & billede & "</font><p>")
        call resize("/upload/" & Session("Bruger") & "/",billede,520)
        Response.Write("<font face='Verdana' color='#000000' size='2'><img src=""/upload/" & Session("Bruger") & "/" & billede & """ title=""Dit billede er nu uploadet""></font><br>")
        intCount = intCount + 1
      End If
  Next
 
If Err Then
  'Der opstod en fejl
  Response.Write("<p><font face='Verdana' color='#666666' size='2'>Fejl, du har forsøgt at uploade et ugyldigt billedeformat. Kun .jpg filer er gyldige.</font><p>")
  End If

Response.Write("<p><a href='adminsideupload.asp'><font face='Verdana' color='#666666' size='2'>>> Upload nyt billede</font></a><p>")

Else
%>