ASPUPLOAD...

hej, jeg har lavet dette script på et tidspunkt. jeg ved godt at du spørger efter en nemmere måde, men det er da forholdsvis simpelt i forvejen... håber du kan bruge noget af det ;o) jeg har kopieret rigeligt med, så du må selv lige sortere det fra som du ikke kan bruge (ja, det kan jo være at det bliver det hele ;o) )

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

Upload.OverwriteFiles = False 'hvis en fil hedder det samme laver den (1) osv. feks a.jpg bliver til a(1).jpg a(2).jpg osv.

Upload.SetMaxSize max, True

On Error Resume Next
Upload.Save mappe

If Err.Number = 8 Then
  Response.Write "<b>Et eller flere billeder fylder for meget! Maksimum er 60 kb.</b><br><br>"
Else

  If Err <> 0 Then
      Response.Write "Der opstod en fejl. Prøv igen!" '& Err.Description
  Else
      Response.Write "<br>"
  End If
End If

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

Upload.OverwriteFiles = False 'hvis en fil hedder det samme laver den (1) osv. feks a.jpg bliver til a(1).jpg a(2).jpg osv.

Upload.SetMaxSize max, True

On Error Resume Next
Upload.Save mappe

If Err.Number = 8 Then
  Response.Write "<b>Et eller flere billeder fylder for meget! Maksimum er 60 kb.</b><br><br>"
Else

  If Err <> 0 Then
      Response.Write "Der opstod en fejl. Prøv igen!"
  Else
      Response.Write "<br>"
  End If
End If

antal = 0
For Each File in Upload.Files
    antal = antal +1
    response.write "Uploader: " & file.filename & "....<br>"
   
    if Right(file.path,4) = ".gif" Or Right(file.path,4) = ".jpg" then
        ialt = ialt + file.size
    else
        upload.deletefile file.path
      response.write file.filename & " er ikke en billedfil og er derfor blevet slettet igen.<br>"
    end if
   
    If len(file.originalfilename) > 16 then
        'fjern alle gnyferne hvis der opstår problemer m for lange filnavne
        'response.write "<br>" & file.originalfilename & "blev ikke uploadet, da filnavnet er for langt. Max 16(12)<bR>"
        'ialt = ialt - file.size
        'upload.deletefile file.path
        'traekfra = traekfra + 1
    end if
   
    If file.imageheight > 388 OR file.imagewidth > 515 then
        response.write "<br>" & file.originalfilename & "blev ikke uploadet, da billedet er for stort (max 512*384)"
        response.write "<a href='hjaelp.asp'>Hjælp!</a><br>"
        ialt = ialt - file.size
        upload.deletefile file.path
        traekfra = traekfra + 1
    end if
Next

ups, jeg fik vist kopieret toppen ind et par gange. det starte selvfølgelig først ved det andet Set Upload = Server.CreateObject("Persits.Upload")

jeg kigger på det... dog en lidt "sindsyg" måde du har lavet det på.. den første måde jeg lavede det på var lidt mere simpel. Men okey, alle skal ikke være ens :D

jeg ved det, men det er af hensyn til noget af den kode som ikke er med.

okey... jeg fandt dog selv på en metode... den er dog meget meget mere simpel end der der som står her på siden... sorry :D

lukker