aspjpeg

Nån som vet varför jag får
Microsoft VBScript runtime error '800a000d'

Type mismatch: '[string: ""]'

/vykort/resize.asp, line 38

Rad 38 är jpeg.Width = jpeg.OriginalWidth * Upload.Form("blob") / 50

med den här koden

<!-- #include virtual="/vykort/dbconn.asp" -->
<%
'strBild=varPic
'strBild=Right(strBild,Len(strBild)-3)
strDatum=varDatum
strDatum=replace(strDatum,"-"," ")

' Create an instance of AspUpload object
Set Upload = Server.CreateObject("Persits.Upload")

' Compute path to save uploaded files to
Path = Server.MapPath("/upload/images/cards/vykort/")

' 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("blob") / 50
    jpeg.Height = jpeg.OriginalHeight * Upload.Form("blob") / 50

    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
End If

    jpeg.Save SavePath

'filnamn = Upload.form("blob")
varID=upload.form("id")
varPic=upload.form("bild")
varMessage=upload.form("Meddelande")
varDatum=upload.form("Datum")
varFran=upload.form("Fran")
varFranMail=upload.form("FranMail")
varTill=upload.form("Till")
varTillMail=upload.form("TillMail")
varDatum=upload.form("Inlagd")

sFranMail=varFranMail
sFran=varFran
sTillMail=varTillMail
sID=varID
Set objMail = Server.CreateObject("CDO.Message")
objMail.From = sFranMail  
objMail.To = sTillMail
objMail.Subject="Du har fått ett E-vykort"
objMail.TextBody = "Du har fått ett E-vykort från " & sFran &vbcrlf &vbcrlf _
&"Du kan hämta det på http://kort.webbisen.com/vykort/viewCard.asp?id="&sID _
& vbcrlf & vbcrlf & "Om du tycker att det var lätt att skicka ditt kort och du gärna återkommer"_
& vbcrlf & "så ser jag gärna att du tipsar dina vänner om min E-vykortstjänst."_
& vbcrlf & "Mvh /Admin."_
& vbcrlf & vbcrlf & "E-vykortstjänsten på WebbisNet"_
& vbcrlf & "Http://www.webbisen.com , Http://kort.webbisen.com/vykort."
objMail.Send 
Set objMail = Nothing

Dim objConn
	SET objConn = connect()
	picture = "INSERT INTO tblPostcard "
	picture = picture & "(bild,id,fran,franMail,till,tillMail,meddelande,inlagd,unread) "
	picture = picture & "VALUES('"& strFileName &"','" & varID & "','" & varFran & "','" & varFranMail & "','" & varTill & "','" & varTillMail & "','"& varMessage &"','"& varDatum &"','1')"
	response.write picture
	'response.end
	objConn.Execute picture
%>

<%End if
response.redirect "/vykort/sent.asp"
%>