<% sub Get_CalCats(Cal) dim cc, sql, last, tmp, CatID, i, iEventType, CalWhere cc="&" if (Cal > 100) then CalWhere = " AND (Cats2.CatId = " & Cal & ") " else CalWhere = "" end if sql = "SELECT Cats3.CatId, Cats.Cat, Cats1.Cat, Cats2.Cat, Cats3.Cat, CatType FROM ((((CatTypes RIGHT JOIN Cats As Cats3 ON Cats3.CatTypeId = CatTypes.CatTypeId) LEFT JOIN Cats As Cats2 ON Cats3.ParentId = Cats2.CatId) left JOIN Cats As Cats1 ON Cats2.ParentId = Cats1.CatId) LEFT JOIN Cats As Cats ON Cats1.ParentId = Cats.CatId) WHERE (Cats.ParentId is NULL) and (CatTypes.CatTypeId = 100)" & CalWhere & " ORDER BY (CatType " & cc & "Cats.Cat " & cc & " Cats1.Cat " & cc & " Cats2.Cat " & cc & " Cats3.Cat)" 'response.write sql ' response.end set rs = cn.Execute(sql) do until rs.EOF 'if last <> rs(5) then ' tmp = tmp + "" ' tmp = tmp + "'" & rsMaster(5) & "' categories" 'end if tmp = tmp + " 0 then for i = 0 to Event_Cat_Index ' response.write "rsMaster(0) = " & rsMaster(0) & " and Myevent_cats(i) = " & Myevent_cats(i) & vbcrlf if rs(0) = Myevent_cats(i) then tmp = tmp + " SELECTED" end if next end if tmp = tmp + " value='" & rs(0) & "'> " if rs.Fields.Count-1 = 0 then tmp = tmp + "" & rsMaster(0) & " " else for i = 1 to rs.Fields.Count-2 If (Cal > 100) then if (rs(i) <> "") and (not i < rs.Fields.Count-2) then tmp = tmp + "" & rs(i) end if else tmp = tmp + "" & rs(i) if i < rs.Fields.Count-2 then tmp = tmp + " › " end if next end if tmp = tmp + "" & vbCRLF & chr(9) & chr(9) 'tmp = tmp + "" last = rs(5) rs.MoveNext loop rs.Close response.write tmp CatId = "" end sub sub get_MyMenu(MenuID,MyField,MyMatch) dim sql dim isSelected redim arItems(2,30) sql = "SELECT * FROM Cats WHERE CatTypeID = " & MenuID 'on error resume next set rs = cn.Execute(sql) 'on error resume next dim TheIndex TheIndex=0 rs.movefirst while not rs.eof arItems(0,TheIndex) = rs("CatID") arItems(1,TheIndex) = rs("Cat") 'response.write arItems(0,TheIndex) & " " & TheIndex & " = arItems(TheIndex)
" TheIndex = TheIndex + 1 rs.movenext wend rs.Close %> Select <%= MyField %> <% dim y for y = 0 to TheIndex-1 if arItems(0,y) = MyMatch then isSelected = "selected" else isSelected = "" end if %> ><%= arItems(1,y) %> <% next %> <% end sub %>

Training Search		Quick results (3 months)
Category	Select workshop category <% Get_CalCats(186) %>	View all training View classes you've already attended
Date Range	<% if session("accesslevel") < 3 then %> <% End If %> - Beginning date ">   <% if session("accesslevel") < 3 then %> <% End If %> - Ending date

<% ':: assure that any db resources are freed on error resume next rs.Close set rs = NOTHING cn.Close set cn = NOTHING user_cn.Close set user_cn = NOTHING on error goto 0 %>