Forums
This topic is locked
Dynamically Resize
Posted 25 Feb 2002 15:30:16
1
has voted
25 Feb 2002 15:30:16 drill sergant posted:
Ok, m having a bit of a nightmare that hopefull Dan or someone else out there can help me. Everything is running fine apart from its not actually resizing the images. the code im using is :<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/uploadconn.asp" -->
<!--#INCLUDE FILE='imgsz.asp'-->
<!--#INCLUDE FILE='propresize.asp'-->
<%
set Recordset1 = Server.CreateObject("ADODB.Recordset"
Recordset1.ActiveConnection = MM_uploadconn_STRING
Recordset1.Source = "SELECT * FROM upload"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()
Recordset1_numRows = 0
strImage = Recordset1("Filename"
StrImageName1 = Server.MapPath("images/" & strImage)
%>
<%
Dim Repeat1__numRows
Repeat1__numRows = -1
Dim Repeat1__index
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
%>
<img src="images/<%=recordset1("Filename"
%>" <% =ImageResize(strImageName1, 50, 50)%>> <%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset1.MoveNext()
Wend
%>
</body>
</html>
<%
Recordset1.Close()
%>
any help well appreciated