<%
'vars
dim objconn
dim categoryvar
dim objRS
dim objrscat
'open category table to print jump station
Set objrsjump = server.createobject("ADODB.recordset")
objrsjump.Open "categories", objconn, , , adCmdTable
'jump station
'Select box jumplinks
response.write ""
'sort categorys by alabetical order
Dim strSQL1
strSQL1 = "SELECT * FROM categories ORDER BY category"
'open category table to collect filter value
Set objrscat = server.createobject("ADODB.recordset")
objrscat.Open strSQL1, objconn
'start of outer loop
do while not objrscat.eof
response.write " "
response.write "" & "" & objrscat("category") & "" & "" & "
"
categoryvar = objrscat("id")
'-----------------------------
'SQL code replaces filter code
'sorts by title
Dim strSQL2
strSQL2 = "SELECT * FROM links WHERE type =" & categoryvar & " ORDER BY title"
'open links table to print filtered links
Set objrs = server.createobject("ADODB.recordset")
objrs.Open strSQL2, objconn
'inner loop to print filtered and sorted links
Do while not objRS.EOF
response.write "" & objRS("title") & ""
'image code
if hotlink > 0 then
checkedhotlink = objrs("hotlink")
if checkedhotlink = true then
response.write " 
" & " Recommended link!"
else
end if
else
end if
response.write objRS("description") & "
"
response.write "URL: " & "" & objrs("url") & "" & " "
response.write "
"
objRS.Movenext
loop
objrscat.movenext
loop
set objrsjump = nothing
set objrs = nothing
set objrscat = nothing
set objconn = nothing
%>