<%@LANGUAGE="VBSCRIPT"%>
<%
Dim qry_scrollimages__MMColParam
qry_scrollimages__MMColParam = "99999999"
If (session("listingid") <> "") Then
qry_scrollimages__MMColParam = session("listingid")
End If
%>
<%
Dim qry_scrollimages
Dim qry_scrollimages_numRows
Set qry_scrollimages = Server.CreateObject("ADODB.Recordset")
qry_scrollimages.ActiveConnection = MM_rvsdata_STRING
qry_scrollimages.Source = "SELECT * FROM tbl_images WHERE listingid = '" + Replace(qry_scrollimages__MMColParam, "'", "''") + "' "
qry_scrollimages.CursorType = 0
qry_scrollimages.CursorLocation = 2
qry_scrollimages.LockType = 1
qry_scrollimages.Open()
qry_scrollimages_numRows = 0
%>
<%
Dim HLooper1__numRows
HLooper1__numRows = 9999
Dim HLooper1__index
HLooper1__index = 0
qry_scrollimages_numRows = qry_scrollimages_numRows + HLooper1__numRows
%>
<%if qry_scrollimages.eof then%>
<%else%>
<%
startrw = 0
endrw = HLooper1__index
numberColumns = 9999
numrows = 1
while((numrows <> 0) AND (Not qry_scrollimages.EOF))
startrw = endrw + 1
endrw = endrw + numberColumns
%>
<%
While ((startrw <= endrw) AND (Not qry_scrollimages.EOF))
%>
 " class="imagen1"> |
<%
startrw = startrw + 1
qry_scrollimages.MoveNext()
Wend
%>
<%
numrows=numrows-1
Wend
%>
<%end if%>
<%
qry_scrollimages.Close()
Set qry_scrollimages = Nothing
%>