%@ Language=VBScript %> <% response.expires=0 Response.Buffer=FALSE Dim CONN,rsCbo,hasRec, Holder Dim CategoryName,dColor dim rsCategory, rsAdsDetails, WhatToCall Dim CONN, rsCount set rsCount=CONN.EXECUTE("SELECT * FROM tblCounter;") WhatToCall=Request.QueryString("CodeToOpen") ConReadonly CONN set rsCategory=CONN.EXECUTE("SELECT * FROM qrySelectCat WHERE [CATEGCODE]=" & WhatToCall & ";") %>
|
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 |