Forums
This topic is locked
Dynamic image resize
25 Jul 2001 05:36:52 boni boni posted:
I desperetly need your help. I am trying to use the "dynamically resizing image" tutorial and getting the include files content (code) withing my page. My image are not resized the follow the image in an error message. Here is the code:<%
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; ch****t=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()
%>