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"
%>