<% Dim regEx
Set regEx = New RegExp
regEx.Global = true
regEx.Pattern = "[^0-9a-zA-Z@._]"
dim adminTestx
adminTestx = regEx.Replace(Request("adminTest"), "")
siteDown = false
if siteDown = True then
if adminTestx = "" then
Response.Write("The site is going through maintance. Please try again later...")
Response.End
end if
end if
Set objConn = Server.CreateObject ("ADODB.Connection")
Dim regEx3
Set regEx3 = New RegExp
regEx3.Global = true
regEx3.Pattern = "[^0-9]"
dim categoryID
categoryID = regEx3.Replace(Request.QueryString("categoryID"), "")
If IsNumeric(categoryID)=false then Response.Redirect "http://www.zonelabs.com.au" End If
objConn.Open strConnect
Set rsProducts = Server.CreateObject("ADODB.Recordset")
SQLstr = "SELECT products.productID, products.productName, products.productKeysReqd, products.productRegReqd, products.resellerDisplay FROM products WHERE (products.productRegReqd = 1 AND products.resellerDisplay = 1) AND products.categoryID = " & categoryID & " ORDER BY products.productName DESC"
rsProducts.Open SQLstr, ObjConn, 3, 1
%>
