ASP - Example Code II (contd.)

<% ‘ print the record set passed for the class member

Sub printRecord(ByVal attrib, ByVal list)

cnt = 0

if(Not list.Eof) then

%>

<center><table width="100%" border="0">

<tr BGCOLOR="<% = trbgcol %>">

<td align="left" valign="middle" nowrap width="100%">

<font size="2" face="Arial" color="<% = thfgcol %>">

<b><% = attrib %> </b></font>

</td></tr> </table>

<table width="80%" border="0">

<%

Do While Not list.EOF

cnt = cnt + 1

if( (cnt Mod 2) > 0) then ‘ print it in two rows

%>

<tr>

<% end if %>

Previous slide

Next slide

Back to first slide

View graphic version