Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Dim rs, data_source, no, SQL
no = 1
If rs.Eof Then
Response.write "Sorry there are no current records."
Else
'Loop through the records
Do while not rs.Eof
response.write "<img src=" & images("url_img") &_
" id=colouratt" & no & ">"
no = no + 1
rs.movenext
Loop
End If
<%
startrw = 0
endrw = HLooper3__index
numberColumns = 5
numrows = -1
while((numrows <> 0) AND (Not coloursAtt1.EOF))
startrw = endrw + 1
endrw = endrw + numberColumns
%>
<tr align="center" valign="top">
<%
While ((startrw <= endrw) AND (Not coloursAtt1.EOF))
%>
<td><a href="javascript:;" onmouseover="MM_showHideLayers('Layer1','','show');MM_showHideLayers('Layer1','','hide')"><img src="imagescript.asp?path=<%=(coloursAtt1.Fields.Item("url_img").Value)%>&width=20" border="0" class="color_img" id="colouratt1" ></a>
</td>
<%
startrw = startrw + 1
coloursAtt1.MoveNext()
Wend
%>
</tr>
<%
numrows=numrows-1
Wend
%>
<%
myid="colouratt1" & Cstr(startrw)
%>
<td><a href="javascript:;" onmouseover="MM_showHideLayers('Layer1','','show');MM_showHideLayers('Layer1','','hide')"><img src="imagescript.asp?path=<%=(coloursAtt1.Fields.Item("url_img").Value)%>&width=20" border="0" class="color_img" id="<%=myid%>" ></a>
</td>