Persists og skalering

Prøv at vise os, hvad du har forsøgt.

%Server.ScriptTimeout = 300 %>
<%
' Create an instance of AspUpload object
Set Upload = Server.CreateObject("Persits.Upload")
' Compute path to save uploaded files to
Path = Server.MapPath(".")

' Capture uploaded file. Return the number of files uploaded
Count = Upload.Save(Path)

If Count = 0 Then
  Response.Write "No images selected."
  Response.End
Else
  ' Obtain File object representing uploaded file
  Set File = Upload.Files(1)

  ' Is this a valid image file?
  If File.ImageType <> "UNKNOWN" Then

    ' Create instance of AspJpeg object
    Set jpeg = Server.CreateObject("Persits.Jpeg")

    ' Open uploaded file
    jpeg.Open( File.Path )

    ' Resize image according to "scale" option.
    ' We cannot use Request.Form, so we use Upload.Form instead.
    jpeg.Width = jpeg.OriginalWidth * Upload.Form("scale") / 100
    jpeg.Height = jpeg.OriginalHeight * Upload.Form("scale") / 100

    SavePath = Path & "\small_" & File.ExtractFileName

    ' AspJpeg always generates thumbnails in JPEG format.
    ' If the original file was not a JPEG, append .JPG ext.
    If UCase(Right(SavePath, 3)) <> "JPG" Then
      SavePath = SavePath & ".jpg"
    End If

    jpeg.Save SavePath
  End If
End If
Capture and save uploaded image to the same directory as script
For Each File in Upload.Files
  Jpeg.Open File.Path'

  Scale = Upload.Form("Scale")
  Jpeg.Width = Jpeg.OriginalWidth * Scale / 100
  Jpeg.Height = Jpeg.OriginalHeight * Scale / 100
  Response.Write Jpeg.OriginalHeight & "-" & Jpeg.Height
  Jpeg.Save Server.MapPath(".") & "\small_" & File.FileName
%>
  <IMG SRC="<% = File.FileName %>"><BR>
  <IMG SRC="<% = "small_" & File.FileName %>"><P>
<%
Next
%>
<!--#include file="./DbCon.asp" -->
<%
StaevneId=Request.QueryString("Id")
strSQL = "SELECT * FROM StaevneOversigt Where StaevneId=" & StaevneId
RS.Open strSQL, objConn, 2, 2
RS("Billede")=Billede
RS.Update
RS.Close
%>

Lige nu er det linie 33  Scale = Upload.Form("Scale"), der driller.
Den skriver: Type mismatch: '[string: ""]'

Det kunne se ud, som om Upload.Form("Scale") er tomt. Prøv evt. at response.write det.

Er det input fra en formular?

Jeg vil meget gerne ende med en meget simplificeret udgave, der gør følgende:
Uploader billedet
Skalerer det ned til 320x 240 pixels
Gemmer det i mappen ./Staevner under navnet Staevne(også Id fra QueryString ID)

Ja, det betyder, at det hentes fra en formular. Det er vist bare et tal mellem 0 og 0, som angiver procentskalering.

Ret f.eks.:

Scale = Upload.Form("Scale")

til:

Scale = 0.5

Så skulle det gerne skaleres halvtreds procent.

Tror jeg. =)

OK.
Hvis det så altid skal være den samme størrelse?

Hvis du retter det til det, jeg skrev, vil det altid være den størrelse, der bliver brugt. Hvis man skal kunne indtaste det selv, skal du beholde:

Scale = Upload.Form("Scale")

Men så skal du selvfølgelig have et Scale-felt i din formular, hvor det skal indtastes/vælges. (Nok helst en Select-boks.)

Fik selv løst den ved at lave
  Jpeg.Width = Jpeg.OriginalWidth * Scale / 100
  Jpeg.Height = Jpeg.OriginalHeight * Scale / 100
om til
  Jpeg.Width = "320"
  Jpeg.Height = "240"
og så virkede den efter hensigten.

Takker for indsatsen

VesTer

Husk at acceptere dit svar for at lukke spørgsmålet.

Tak for påmindelsen :-)

;)