| 1 |
<%
|
| 2 |
if typelist.EOF then `if no records are present then print a message
|
| 3 |
%>
|
| 4 |
<!-- There are no records in the system -->
|
| 5 |
<% else %> <!-- otherwise print the data -->
|
| 6 |
<table border="0" cellspacing="2" cellpadding="2" bgcolor="<% = tabbgcol %>"
|
| 7 |
align="center" valign="middle" width="90%">
|
| 8 |
<tr align="left" valign="middle">
|
| 9 |
<%
|
| 10 |
Do While Not typelist.EOF ` print the data in a loop and construct the url
|
| 11 |
clsid = typelist("clsid") ` on the fly
|
| 12 |
sx = "<a target=main href=sp_classes_rec.asp?id=" & clsid & ">"
|
| 13 |
` if the record is the selected one then change the
|
| 14 |
` background color
|
| 15 |
if(StrComp(selid,clsid,vbBinaryCompare) = 0) then
|
| 16 |
sx = sx & "<font color=" & thfgcol & ">" & typelist("cname") & "</font></a>"
|
| 17 |
%>
|
| 18 |
<th align="left" valign="middle" nowrap bgcolor="<% = hgltcol %>" width="90%">
|
| 19 |
<% = sx %>
|
