ASP - Example Code I (contd.)
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
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%">