 |
|
<%
Set rs2 = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT ID, Name FROM AnalyticalIndex ORDER BY Name", cn, adOpenStatic, adLockOptimistic
intOurRecords = rs.RecordCount
if rs.eof then
response.write "Unfortunately, the are no index items in the database."
else
i = 1
do while not rs.eof
rs2.Open "SELECT ID FROM IndexRelations WHERE Index_ID=" & rs("ID").value, cn, adOpenStatic, adLockOptimistic
' New code with no links
' if rs2.recordcount = 0 Then
' response.write rs("Name").value & "
"
' else
' response.write rs("Name").value & "
"
' end if
' Code removed so that links will no longer work
if rs2.recordcount = 0 Then
response.write "" & rs("Name").value & "
"
' response.write "" & rs("Name").value & "
"
else
response.write "" & rs("Name").value & "
"
end if
if rs2.state = 1 then rs2.close
if i = cint(intOurRecords*0.33333)-1 or i=cint(intOurRecords*0.66667) then
response.write " | "
response.write "![]() | "
response.write ""
end if
i = i + 1
rs.movenext
loop
end if
if rs.state = 1 then rs.close
%> |
