Avatar billede mekaniker Nybegynder
07. januar 2002 - 00:34 Der er 8 kommentarer og
1 løsning

Fejlmeddelelse i aspupload

Jeg bruger aspupload, og det virker fint, bortset fra hvis jeg f.eks. vælger en for stor fil, så får jeg ingen fejlmeddelelse, selvom scriptet gerne skulle gøre dette.

Er der nogle der kan hjælpe mig, jeg ville jo gerne kunne skrive til brugeren at han f.eks. har valgt en for stor fil..???

--------------------------------------------------
set conn = Server.CreateObject(\"ADODB.Connection\")
Session(\"Conn\") = \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"../db/varer.mdb\")

    Set Upload = Server.CreateObject(\"Persits.Upload.1\")
      Upload.OverwriteFiles = false
      Upload.SetMaxSize 300000, True
      Upload.SaveVirtual (\"../images/annoncebilleder\")


    For Each File in Upload.Files
 
    If File.ImageType <> \"GIF\" and File.ImageType <> \"JPG\" Then
        Response.Write \"GIF or JPG files only please!\"
        Exit For
    End If

    If File.ImageWidth > 150 Then
        Response.Write \"Image width cannot exceed 150 pixels.\"
        Exit For
    End If

    If File.ImageHeight > 200 Then
        Response.Write \"Image height cannot exceed 200 pixels.\"
        Exit For
    End If
 
      File.ToDatabase Session(\"Conn\"), \"Insert into annonce (varenr, varebeskrivelse, indkoebspris_excl_moms, forhandlerpris_excl_moms, udsalgspris_incl_moms, stor_beskrivelse, billedsti, billedfil, oprettet, redigeret) \" &_
      \"values(\'\" & varenr & \"\',\'\" & overskrift & \"\',\" & ind & \",\" & forh & \",\'\" & ud & \"\',\'\" & stor & \"\',\'\" & file.path & \"\',\'\" & File.ExtractFileName & \"\',\'\" & dato & \"\',\'\" & dato & \"\')\"
        if Err <> 0 Then
          Response.Write headerfont & \"<br>Der er sket en fejl! : \" & Err.Description
       
    Else

          Response.Write headerfont & \"<br>Tilføjet...</strong></font>\"
   
    End If
    session.abandon
    Set myconn = Nothing

      Next
Response.Redirect(\"annoncer.asp\")
End If
End If
End If
session.abandon
%>

Findes der nogle fejlkoder i aspupload som man kan fange og derved skrive nogle fejlmeddelelser ud..???

Avatar billede keysersoze Ekspert
07. januar 2002 - 14:23 #1
hvis der findes nogle sådanne, så findes de på deres hjemmeside - www.aspupload.com
Avatar billede mekaniker Nybegynder
07. januar 2002 - 17:14 #2
Kan du fortælle mig hvorfor der ikke kommer en fejlmed. ud af det her.
Den burde der da gerne uanset hvilken fejl der kom.

if Err <> 0 Then
          Response.Write headerfont & \"<br>Der er sket en fejl! : \" & Err.Description
       
    Else

//Mekaniker
Avatar billede keysersoze Ekspert
07. januar 2002 - 17:29 #3
vel ikke hvis der ikke er en fejl
Avatar billede mekaniker Nybegynder
07. januar 2002 - 20:18 #4
Hvis jeg nu vælger en fil som er for stor, får jeg ikke denne fejlmed.
Jeg får denne alm. fejlmed.

HTTP 500.100 - Internal Server Error - ASP error
Internet Information Services

-------------------------------------------------------------------------------

Technical Information (for support personnel)

Error Type:
Persits.Upload.1 (0x800A0008)
Size of file 1.JPG exceeds the maximum allowed size of 300000 bytes.
/jens/filmsite/admin/gem_annonce.asp, line 19


Browser Type:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)

Page:
POST 1349412 bytes to /jens/filmsite/admin/gem_annonce.asp

POST Data:
error \'80020009\'
Exception occurred.

/iisHelp/common/500-100.asp, line 192
Avatar billede keysersoze Ekspert
07. januar 2002 - 22:08 #5
det er da klart - du har skrevet \"Upload.SetMaxSize 300000, True\" og så er der jo en max-størrelse på din fil - fjern dette eller ændre størrelsen
Avatar billede keysersoze Ekspert
07. januar 2002 - 22:19 #6
hov... læste lidt forkert

prøv engang med enten;

if Upload.Err <> \"\" Then
eller
if File.Err <> \"\" Then

eller indsæt dette efter Upload.SaveVirtual (\"../images/annoncebilleder\")

sub CheckFile (strFileName)
        set Img = Server.CreateObject (\"ImgSize.Check\")
        Img.FileName = strFileName
        if Img.Error <> \"\" then
              Response.Write \"An error occurred in processing this image.<br>\"
              Response.Write \"The error was: <b>\" & Img.Error & \"</b>\"
    end if
        end sub
         
         
Avatar billede mekaniker Nybegynder
07. januar 2002 - 23:12 #7
Det prøver jeg, også vender jeg tilbage
Avatar billede mekaniker Nybegynder
29. januar 2002 - 11:42 #8
Det virker desværre ikke, men har fundet en anden løsning.

Ellers tak for hjælpen.
Avatar billede mekaniker Nybegynder
29. januar 2002 - 11:43 #9
Det virker desværre ikke, men har fundet en anden løsning.

Ellers tak for hjælpen.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester