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
<% ` 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 %>

© 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