%@ LANGUAGE="vbscript"%> <% Option Explicit %> <% dim xcatg, xprmry, products dim dclrIncld dclrIncld = "connectDB,cleanCon,getRsobj,getRqobj" xcatg = 1 xprmry = 0 %> <% connectDB 1 getRqobj RqDo, 1 if RqDo.Exists("subc") = false then RqDo.item("subc") = 0 %>