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