Type mismatch: '[string: ""]'

Mark Sargent · Nov 2, 2003

Hi All,

why am I getting this error..? Cheers.

Mark Sargent.

Error Type:
Microsoft VBScript runtime (0x800A000D)
Type mismatch: '[string: ""]'
/Classifieds/ClassifiedImageResize.asp, line 27

<%
' Create instance of AspJpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg")

' Compute path to source image
Path = Server.MapPath(FilePath)

' Open source image
Jpeg.Open Path

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

' Decrease image size by %
((***Line 27***)) Jpeg.Width = Jpeg.OriginalWidth * Upload.Form("scale") /
100
Jpeg.Height = Jpeg.OriginalHeight * Upload.Form("scale") / 100

' Apply sharpening if necessary
' Jpeg.Sharpen 1, 130

' create thumbnail and save it to disk
FilePath = Replace(FilePath, "/", "\")
FilePath = Replace(FilePath, "ImageUploads\", "")
Jpeg.Save Server.MapPath("ImageUploads\Thumbs") & "\Thumb" & FilePath

%>

Ray at · Nov 2, 2003

What is line 27 and what does a response.write of the variables in question
yield?

Ray at home

Chris Barber · Nov 2, 2003

Upload.Form("scale") is probably not a number and as such the implicit
coercion to a number is failing.

Try debugging and finding out what this value is returning.

Chris.

Hi All,

why am I getting this error..? Cheers.

Mark Sargent.

Error Type:
Microsoft VBScript runtime (0x800A000D)
Type mismatch: '[string: ""]'
/Classifieds/ClassifiedImageResize.asp, line 27

<%
' Create instance of AspJpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg")

' Compute path to source image
Path = Server.MapPath(FilePath)

' Open source image
Jpeg.Open Path

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

' Decrease image size by %
((***Line 27***)) Jpeg.Width = Jpeg.OriginalWidth * Upload.Form("scale") /
100
Jpeg.Height = Jpeg.OriginalHeight * Upload.Form("scale") / 100

' Apply sharpening if necessary
' Jpeg.Sharpen 1, 130

' create thumbnail and save it to disk
FilePath = Replace(FilePath, "/", "\")
FilePath = Replace(FilePath, "ImageUploads\", "")
Jpeg.Save Server.MapPath("ImageUploads\Thumbs") & "\Thumb" & FilePath

%>

Rob Meade · Nov 2, 2003

...

((***Line 27***)) Jpeg.Width = Jpeg.OriginalWidth * Upload.Form("scale") /
100
Jpeg.Height = Jpeg.OriginalHeight * Upload.Form("scale") / 100

Try :

27: Jpeg.Width = Jpeg.OriginalWidth * (CInt(Upload.Form("scale")) / 100)

and

28: Jpeg.Height = Jpeg.OriginalHeight * (CInt(Upload.Form("scale")) / 100)

(I assume the next line was 28 etc...)

Regards

Rob

Mark Sargent · Nov 3, 2003

Hi All,

thanx..here is what is being passed to the problem page. Cheers.

Mark Sargent.

<HTML>
<HEAD>
<TITLE>AspJpeg - Form.asp</TITLE>
</HEAD>
<BODY>
<%
Dim FilePath
if Request.QueryString("FilePath") <> "" then
FilePath = Request.QueryString("FilePath")
End If
Response.Write FilePath
%>

<FORM ENCTYPE="multipart/form-data" METHOD="POST"
ACTION="ClassifiedImageResize.asp?FilePath=<%=FilePath%>">
<TABLE CELLPADDING="3" CELLSPACING="0" BORDER="0" BGCOLOR="#00FF00"
align="center">
<TR>
<TD>Thumbnail Size:</TD>
<TD>
<SELECT NAME="scale">
<OPTION VALUE="75">75%
<OPTION VALUE="50">50%
<OPTION VALUE="25">25%
<OPTION VALUE="10">10%
</SELECT>
</TD>
</TR>
<TR>
<TD>Description:</TD>
<TD>
<TEXTAREA NAME="Description"></TEXTAREA>
</TD>
</TR>
<TR>
<TD COLSPAN="2">
<INPUT TYPE="SUBMIT" VALUE="Upload">
</TD>
</TR>
</TABLE>
</FORM>

</BODY>
</HTML>

Mark Sargent · Nov 4, 2003

Here is the error I get after adding what you suggested, Rob...Cheers..

Error Type:
Microsoft VBScript runtime (0x800A000D)
Type mismatch: 'CInt'
/Classifieds/ClassifiedImageResize.asp, line 27

Ray at · Nov 4, 2003

And what's on line 27 again?

Ray at home

Chris Barber · Nov 4, 2003

LINE 27:
Jpeg.Width = Jpeg.OriginalWidth * Upload.Form("scale") / 100

Mark, you *can't* fix this using syntax until you determine that the
following are both numeric:

Jpeg.OriginalWidth
Upload.Form("scale")

My money's on the second one not being numeric.

Do you know how to debug or do you need some pointers on what to do?

Chris.

Here is the error I get after adding what you suggested, Rob...Cheers..

Error Type:
Microsoft VBScript runtime (0x800A000D)
Type mismatch: 'CInt'
/Classifieds/ClassifiedImageResize.asp, line 27

Ray at · Nov 4, 2003

My money's on Chris.

<%
Response.write Jpeg.OriginalWidth & "<br>"
Response.Write Upload.Form("scale")
Response.End
%>

Ray at work

Mark Sargent · Nov 4, 2003

Hi All,

I see..Okay, after debugging, it appears that either nothing is passing to
the page or, I'm not calling Upload.Form("scale")
correctly as it doesn't write. I posted before the code from the page
passing the variables; have I got it wrong..? Cheers..

Mark Sargent.

Mark Sargent · Nov 5, 2003

Hi All,

K, I'm an "Idiot"..all together now, "Yes, you're an Idiot"..I was using the
below code on the page where a user could select the resize options. Thing
is, this code is for use when passing form values at the same time as
uploading a file. Thing is, the file upload was done on the previous
page..DOH..No need to call Upload.Form("scale") only need to call
Request.Form("scale")....if you understood all that, you're a
genuis...cheers all.

Mark Sargent.

ENCTYPE="multipart/form-data"

AspJpeg	0	Jul 31, 2003
ASPJPEG Help	1	Oct 6, 2005
Long Raw Type Mismatch error	0	Jul 23, 2003
Response.Writing Rows based on If Staments	6	Oct 23, 2003
Using aspjpeg in asp.net (vb.net) - Code conversion from asp	0	Apr 11, 2005
ASPJPEG in vb.net ???	2	Apr 26, 2005
Cannot use Request.Form	6	Aug 1, 2003
where to put 'end'??	2	May 18, 2004

Type mismatch: '[string: ""]'

Mark Sargent

Ray at

Chris Barber

Rob Meade

Mark Sargent

Mark Sargent

Ray at

Chris Barber

Ray at

Mark Sargent

Mark Sargent

Ask a Question

Similar Threads

Members online

Forum statistics

Latest Threads