%@ Language=VBScript %>
<%
response.expires=0
Response.Buffer=FALSE
Dim CONN,rsCbo,hasRec
Dim CategoryName,dColor
dim rsCategory,rsBusinessDisplayer,WhatToCall
WhatToCall=Request.QueryString("CodeToOpen")
' *** JUST TO TEST WhatToCall=1
ConReadonly CONN
set rsCategory=CONN.EXECUTE("SELECT [Description] FROM MainCategoryQry WHERE [CATEGCODE]=" & WhatToCall & ";")
set rsBusinessDisplayer=CONN.EXECUTE("SELECT * FROM BusinessDisplayerQry WHERE [CATEGCODE]=" & WhatToCall & ";")
hasRec= not(rsBusinessDisplayer.eof and rsBusinessDisplayer.bof)
%>