Hej
jag håller på att bygga vidare på min uppladdning. Men nu vill jag ha 2 olika bilder med en storlek på 300px resp. 350px utav den uppladdade bilden.
Har hittills följande kod:
Set Upload = Server.CreateObject("Persits.Upload")
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Upload.SetMaxSize 50000
Upload.OverwriteFiles = False
Count = Upload.Save("C:\Inetpub\wwwroot\bilder\upload\temp")
bildNamn = SafeSQL(Upload.Files(1).FileName)
bildAgare = CLng(session("userID"))
bildTyp = SafeSQL(Upload.Files(1).ImageType)
bildHojd = SafeSQL(Upload.Files(1).ImageHeight)
bildBredd = SafeSQL(Upload.Files(1).ImageWidth)
bildStorlek = SafeSQL(Upload.Files(1).Size)
'####Kontrollerar om namnet på filen redan finns
Set objRS = objConn.Execute("SELECT * FROM bildHistorik WHERE bildNamn= '"&bildNamn&"'")
IF objRS.EOF THEN
objConn.execute("INSERT INTO bildHistorik (bildAgare, bildNamn, bildTyp, bildHojd, bildBredd, bildStorlek)" & " VALUES (" & bildAgare & ", '" & bildNamn & "', '" & bildTyp & "', " & bildHojd & ", " & bildBredd & ", " & bildStorlek & ")")
'Hämtar ut bildens id nummer
Set objRS1 = objConn.Execute("SELECT bildID FROM bildHistorik WHERE bildNamn= '"&bildNamn&"'")
IF NOT objRS1.EOF THEN
Jpeg.Open "C:\Inetpub\wwwroot\bilder\upload\temp\"&bildNamn
Jpeg.Width = 300
Jpeg.Height = Jpeg.OriginalHeight * L / Jpeg.OriginalWidth
Jpeg.Save "C:\Inetpub\wwwroot\bilder\upload\nyheter_liten\" & objRS1("bildID") & "." & Upload.Files(1).ImageType
Jpeg.Width = 350
Jpeg.Height = Jpeg.OriginalHeight * L / Jpeg.OriginalWidth
Jpeg.Save "C:\Inetpub\wwwroot\bilder\upload\nyheter_stor\" & objRS1("bildID") & "." & Upload.Files(1).ImageType
Response.Write ""&bildNamn&" är nu sparad"
ELSE
Response.Write "Bilden kunde inte sparas i databasen"
END IF
ELSE
Response.Write "Filnamnet finns redan i databasen"
END IF
Men när jag provkör får jag följande felmeddelande:
Height must be between 1 and 65535.
på raden:
Jpeg.Height = Jpeg.OriginalHeight * L / Jpeg.OriginalWidth
Hur löser jag detta??
Tacksam för all hjälp :stud