Basic HTML version of Foils prepared July 5 98

Foil 18 ASP - Example Code II (contd.)

From FMS: Forces Modeling and Simulation Handout JSU HPC Summer Institute for Undergraduates, Jackson MS -- June 15 1998. by Wojtek Furmanski, Subhash Nair, Tom Pulikal
1 <% ` print the record set passed for the class member
2 Sub printRecord(ByVal attrib, ByVal list)
3 cnt = 0
4 if(Not list.Eof) then
5 %>
6 <center><table width="100%" border="0">
7 <tr BGCOLOR="<% = trbgcol %>">
8 <td align="left" valign="middle" nowrap width="100%">
9 <font size="2" face="Arial" color="<% = thfgcol %>">
10 <b><% = attrib %> </b></font>
11 </td></tr> </table>
12 <table width="80%" border="0">
13 <%
14 Do While Not list.EOF
15 cnt = cnt + 1
16 if( (cnt Mod 2) > 0) then ` print it in two rows
17 %>
18 <tr>
19 <% end if %>
in Table To:

© Northeast Parallel Architectures Center, Syracuse University, npac@npac.syr.edu

If you have any comments about this server, send e-mail to webmaster@npac.syr.edu.

Page produced by wwwfoil on Sat Nov 28 1998