Forums
This topic is locked
Dynamic Image Resize
24 Jul 2001 03:10:02 boni boni posted:
Hi,I have been trying to figure it out but it is not working. This is related the dynamically image resizing tutorial,
My code:
"<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/Jewelswarehouse2.asp" -->
<%
set Recordset1 = Server.CreateObject("ADODB.Recordset"
Recordset1.ActiveConnection = MM_Jewelswarehouse2_STRING
Recordset1.Source = "SELECT BImage FROM T_J_TypeSeriesDetails"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()
Recordset1_numRows = 0
%>
<%
Dim HLooper1__numRows
HLooper1__numRows = 15
Dim HLooper1__index
HLooper1__index = 0
Recordset1_numRows = Recordset1_numRows + HLooper1__numRows
%>
<!--#INCLUDE FILE='imgsz.asp'-->
<!--#INCLUDE FILE='propresize.asp'-->
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<table>
<%
startrw = 0
endrw = HLooper1__index
numberColumns = 3
numrows = 5
while((numrows <> 0) AND (Not Recordset1.EOF))
startrw = endrw + 1
endrw = endrw + numberColumns
%>
<tr align="center" valign="top">
<%
While ((startrw <= endrw) AND (Not Recordset1.EOF))
%>
<td>
<table width="200" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center"> <img src="<%=Recordset1("BImage"
%>" <% =ImageResize(Server.MapPath(Recordset1("BImage"), 100, 100)%>> </td></tr>
</table>
</td>
<%
startrw = startrw + 1
Recordset1.MoveNext()
Wend
%>
</tr>
<%
numrows=numrows-1
Wend
%>
</table>
</body>
</html>
<%
Recordset1.Close()
%><font color=red></font id=red>"
The two include files content are displayed in my page, plus I am getting an error message:
Microsoft VBScript runtime error '800a000d'
Type mismatch: 'ImageResize'
/experiments/New_JewelsWarehouse/EX_ImageResize.asp, line 46