%@ 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)
%>
Marikinabiz - Submit A Site
Please Read:
Before adding your link, make sure that your site is Philippine-Based or Filipino-oriented. Also, your site should include my link . www.marikinabiz.com anywhere on your site before your link may be added in our database.
Your title should be the name of your company or name of your site, not a come on advertisement.
Please submit your site only ONCE. I still have to review the site for appropriateness and correct categorization.
Thanks. |
|
Best
viewed in IE6 or higher in 800x600 pixels
All
Rights Reserved |
|