Avatar billede bobbedude Nybegynder
10. september 2003 - 10:51 Der er 3 kommentarer og
1 løsning

Persist ASP Upload hjælp

jeg har

If request.querystring("upload") = "ok" then
   
Set Upload = Server.CreateObject("Persits.Upload")


Upload.Save "E:\Kunder\www.danlast.dk\test\Trucks\images\trucks\temp"


Set File1 = Upload.form("File1")

Set Str_ImageNr = Upload.form("Img")

Set Str_ID = Upload.form("ID")


        If Str_ID = "Billed" then
        TempImg = "Billed"
        ElseIf Str_ID = "Billed2" then
        TempImg = "Billed2"
        End If

If Not File1 Is Nothing Then
       
                If File1.ImageType = "UNKNOWN" Then
               
                        If Err.Number = 8 Then
                        File1.Delete           
                        End IF   
               
                ' Copy file 1
                File1.Copy "E:\Kunder\www.danlast.dk\test\Trucks\images\trucks"& File1.Filename
                ' Delete from temp folder
                File1.Delete
               
                else
               
                File1.Delete
               
                Response.write "Fil type wrong"
               
                end if
       
        End if


End if


Hvergang jeg forsøger at uploade en fil får jeg fejlen

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'File1.ImageType'

/Trucks/upload_image.asp, line 40


Linie 40 er
If File1.ImageType = "UNKNOWN" Then

men i dokumentationen står der:

ImageType As String (Read-Only)
Returns the image type. Possible return values are "BMP", "GIF", "JPG", "PNG" for BMP, GIF, JPEG and PNG images, respectively, and "UNKNOWN" if the file is not an image or of an unknown image type.
Usage:

Response.Write File.ImageType


så hvorfor virker det ikke ??
Avatar billede eagleeye Praktikant
10. september 2003 - 10:55 #1
Prøv at ændre denne linje:

Set File1 = Upload.form("File1")

Til dette:

Set File1 = Upload.files("File1")
Avatar billede bobbedude Nybegynder
10. september 2003 - 10:58 #2
som jeg har sagt gentagende gange eagleeye er kanon når det brænder på.
Avatar billede eagleeye Praktikant
10. september 2003 - 10:58 #3
i disse to linjer er det ikke nødvendig at skrive Set foran, upload.form bruges på samme måde som request.form:

Set Str_ImageNr = Upload.form("Img")

Set Str_ID = Upload.form("ID")

---

Str_ImageNr = Upload.form("Img")

Str_ID = Upload.form("ID")
Avatar billede bobbedude Nybegynder
10. september 2003 - 11:04 #4
oki det skal jeg huske.
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