%@ Language=VBScript %> <% response.expires=0 Response.Buffer=FALSE Dim CONN,rsCbo,hasRec Dim CategoryName,dColor dim rsCategory,rsBusinessDisplayer,WhatToCall WhatToCall=Request.QueryString("CodeToOpen") 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) %>
|
| HOME | mBiz Services | Community Directory | Job Finder - Post A Job | Classified Ads - Post An Ad | Help FAQ |
| Best
viewed in IE6 or higher in 800x600 pixels All Rights Reserved |