---
title: "aspjpeg"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/138753-aspjpeg"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "WebbisNet"
published: "2005-12-04T18:57:25.000Z"
updated: "2005-12-05T01:52:08.000Z"
replies: 6
views: 359
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/138753-aspjpeg"
---

# aspjpeg

## #1 — WebbisNet, 2005-12-04T18:57Z

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

Permalänk: https://www.webforum.nu/p/138753

## #2 — UlfT, 2005-12-04T19:08Z

Vad innehåller *Upload.Form("blob")*? Är det verkligen något du kan dela med 50? Själv skulle jag gissa på att det snarare är själva bilden du har där (ett stort binärt objekt). Då är det inte konstigt om det blir fel. Fast jag förstår inte varför det då klagas på strängar. Nåja, det är *Upload.Form("blob")* du bör kolla upp vad det egentligen är för något.

Permalänk: https://www.webforum.nu/p/1721881

## #3 — WebbisNet, 2005-12-04T21:53Z

så här står det på aspjpegs sida
 jpeg.Width = jpeg.OriginalWidth \* Upload.Form("scale") / 100
    jpeg.Height = jpeg.OriginalHeight \* Upload.Form("scale") / 100

mitt form heter blob så därför bytte jag namn och /100 hjälpte inte heller

Permalänk: https://www.webforum.nu/p/1721937

## #4 — emission, 2005-12-04T23:37Z

Men aspjpeg-exemplet bygger ju på att det finns ett formulärfält (scale) där man anger hur mycket bilden ska skalas om. Har du ett sådant fält och vad heter det i så fall?

Permalänk: https://www.webforum.nu/p/1721978

## #5 — WebbisNet, 2005-12-04T23:39Z

är inte så bra på aspjpeg, har bara formuläret som heter blob

har du nåt bra förslag på hur det ska se ut?

Permalänk: https://www.webforum.nu/p/1721980

## #6 — emission, 2005-12-05T00:31Z

Vad vill du göra? Skala om bilden?

Permalänk: https://www.webforum.nu/p/1721998

## #7 — WebbisNet, 2005-12-05T01:52Z

använde tidigare aspImage för att skala om bilden till en viss storlek, men mitt nuvarande hotell stöder inte den utan aspjpeg, vill med andra ord få ner storleken till en viss storlek som tidigare

Permalänk: https://www.webforum.nu/p/1722002

---

Tråden på webben: https://www.webforum.nu/amne/asp/138753-aspjpeg