<%@ Language=VBScript %> <% Option Explicit %> <% Function SecurityCheck() Dim StrStuff Dim A Dim SQL Dim dll Dim ErrorCode StrStuff = request.servervariables("QUERY_STRING") IF Trim(StrStuff) <> "" then A = InStr(1, ucase(StrStuff), " 0 then ' "Bad Scripting word: Query Script" Set dll = Server.CreateObject("gpcomreq.gpcomreqfun") SQL = "sp_Security '" & Trim(Request.ServerVariables("REMOTE_ADDR")) & "','" & Request.ServerVariables("SCRIPT_NAME") & "','Query script'" ErrorCode = dll.GPCOMSQLNoResult(SQL) Response.redirect("http://www.allyourrooms.com/404.html") end if A = InStr(1, ucase(StrStuff), "%3CSCRIPT", vbBinaryCompare) IF A <> 0 then ' "Bad Scripting word: Query Script" Set dll = Server.CreateObject("gpcomreq.gpcomreqfun") SQL = "sp_Security '" & Trim(Request.ServerVariables("REMOTE_ADDR")) & "','" & Request.ServerVariables("SCRIPT_NAME") & "','Query script'" ErrorCode = dll.GPCOMSQLNoResult(SQL) Response.redirect("http://www.allyourrooms.com/404.html") end if A = InStr(1, ucase(StrStuff), "JAVASCRIPT:ALERT", vbBinaryCompare) IF A <> 0 then ' "Bad Scripting word: Query Script" Set dll = Server.CreateObject("gpcomreq.gpcomreqfun") SQL = "sp_Security '" & Trim(Request.ServerVariables("REMOTE_ADDR")) & "','" & Request.ServerVariables("SCRIPT_NAME") & "','Query JAVAscript'" ErrorCode = dll.GPCOMSQLNoResult(SQL) Response.redirect("http://www.allyourrooms.com/404.html") end if A = InStr(1, ucase(StrStuff), "JAVASCRIPT%3AALERT", vbBinaryCompare) IF A <> 0 then ' "Bad Scripting word: Query Script" Set dll = Server.CreateObject("gpcomreq.gpcomreqfun") SQL = "sp_Security '" & Trim(Request.ServerVariables("REMOTE_ADDR")) & "','" & Request.ServerVariables("SCRIPT_NAME") & "','Query script'" ErrorCode = dll.GPCOMSQLNoResult(SQL) Response.redirect("http://www.allyourrooms.com/404.html") end if A = InStr(1, ucase(StrStuff), "CMDSHELL", vbBinaryCompare) IF A <> 0 then ' "Bad Scripting word: Query cmdshell" Set dll = Server.CreateObject("gpcomreq.gpcomreqfun") SQL = "sp_Security '" & Trim(Request.ServerVariables("REMOTE_ADDR")) & "','" & Request.ServerVariables("SCRIPT_NAME") & "','Query cmdshell'" ErrorCode = dll.GPCOMSQLNoResult(SQL) Response.redirect("http://www.allyourrooms.com/404.html") end if A = InStr(1, ucase(StrStuff), ";", vbBinaryCompare) IF A <> 0 then ' "Bad Scripting word: Query ;" Set dll = Server.CreateObject("gpcomreq.gpcomreqfun") SQL = "sp_Security '" & Trim(Request.ServerVariables("REMOTE_ADDR")) & "','" & Request.ServerVariables("SCRIPT_NAME") & "','Query semi'" ErrorCode = dll.GPCOMSQLNoResult(SQL) Response.redirect("http://www.allyourrooms.com/404.html") end if A = InStr(1, ucase(StrStuff), "%3B", vbBinaryCompare) IF A <> 0 then ' "Bad Scripting word: semi ;" Set dll = Server.CreateObject("gpcomreq.gpcomreqfun") SQL = "sp_Security '" & Trim(Request.ServerVariables("REMOTE_ADDR")) & "','" & Request.ServerVariables("SCRIPT_NAME") & "','Query semi'" ErrorCode = dll.GPCOMSQLNoResult(SQL) Response.redirect("http://www.allyourrooms.com/404.html") end if A = InStr(1, ucase(StrStuff), "'", vbBinaryCompare) IF A <> 0 then ' "Bad Scripting word: tick " Set dll = Server.CreateObject("gpcomreq.gpcomreqfun") SQL = "sp_Security '" & Trim(Request.ServerVariables("REMOTE_ADDR")) & "','" & Request.ServerVariables("SCRIPT_NAME") & "','Query tick'" ErrorCode = dll.GPCOMSQLNoResult(SQL) Response.redirect("http://www.allyourrooms.com/404.html") end if A = InStr(1, ucase(StrStuff), "%27", vbBinaryCompare) IF A <> 0 then ' "Bad Scripting word: tick " Set dll = Server.CreateObject("gpcomreq.gpcomreqfun") SQL = "sp_Security '" & Trim(Request.ServerVariables("REMOTE_ADDR")) & "','" & Request.ServerVariables("SCRIPT_NAME") & "','Query tick'" ErrorCode = dll.GPCOMSQLNoResult(SQL) Response.redirect("http://www.allyourrooms.com/404.html") end if end if StrStuff = Request.Form 'Response.Write(StrStuff) IF Trim(StrStuff) <> "" then A = InStr(1, ucase(StrStuff), " 0 then ' Response.write "Bad Scripting word: from Script" Set dll = Server.CreateObject("gpcomreq.gpcomreqfun") SQL = "sp_Security '" & Trim(Request.ServerVariables("REMOTE_ADDR")) & "','" & Request.ServerVariables("SCRIPT_NAME") & "','Form script'" ErrorCode = dll.GPCOMSQLNoResult(SQL) Response.redirect("http://www.allyourrooms.com/404.html") end if A = InStr(1, ucase(StrStuff), "%3CSCRIPT", vbBinaryCompare) IF A <> 0 then ' Response.write "Bad Scripting word: from Script" Set dll = Server.CreateObject("gpcomreq.gpcomreqfun") SQL = "sp_Security '" & Trim(Request.ServerVariables("REMOTE_ADDR")) & "','" & Request.ServerVariables("SCRIPT_NAME") & "','Form script'" ErrorCode = dll.GPCOMSQLNoResult(SQL) Response.redirect("http://www.allyourrooms.com/404.html") end if A = InStr(1, ucase(StrStuff), "JAVASCRIPT:ALERT", vbBinaryCompare) IF A <> 0 then ' "Bad Scripting word: from Script" Set dll = Server.CreateObject("gpcomreq.gpcomreqfun") SQL = "sp_Security '" & Trim(Request.ServerVariables("REMOTE_ADDR")) & "','" & Request.ServerVariables("SCRIPT_NAME") & "','From JAVAscript'" ErrorCode = dll.GPCOMSQLNoResult(SQL) Response.redirect("http://www.allyourrooms.com/404.html") end if A = InStr(1, ucase(StrStuff), "JAVASCRIPT%3AALERT", vbBinaryCompare) IF A <> 0 then ' "Bad Scripting word: form Script" Set dll = Server.CreateObject("gpcomreq.gpcomreqfun") SQL = "sp_Security '" & Trim(Request.ServerVariables("REMOTE_ADDR")) & "','" & Request.ServerVariables("SCRIPT_NAME") & "','From script'" ErrorCode = dll.GPCOMSQLNoResult(SQL) Response.redirect("http://www.allyourrooms.com/404.html") end if A = InStr(1, ucase(StrStuff), "CMDSHELL", vbBinaryCompare) IF A <> 0 then ' "Bad Scripting word: Form cmdshell" Set dll = Server.CreateObject("gpcomreq.gpcomreqfun") SQL = "sp_Security '" & Trim(Request.ServerVariables("REMOTE_ADDR")) & "','" & Request.ServerVariables("SCRIPT_NAME") & "','Form cmdshell'" ErrorCode = dll.GPCOMSQLNoResult(SQL) Response.redirect("http://www.allyourrooms.com/404.html") end if A = InStr(1, ucase(StrStuff), ";", vbBinaryCompare) IF A <> 0 then ' "Bad Scripting word: semi ;" Set dll = Server.CreateObject("gpcomreq.gpcomreqfun") SQL = "sp_Security '" & Trim(Request.ServerVariables("REMOTE_ADDR")) & "','" & Request.ServerVariables("SCRIPT_NAME") & "','Form semi'" ErrorCode = dll.GPCOMSQLNoResult(SQL) Response.redirect("http://www.allyourrooms.com/404.html") end if A = InStr(1, ucase(StrStuff), "%3B", vbBinaryCompare) IF A <> 0 then ' "Bad Scripting word: semi ;" Set dll = Server.CreateObject("gpcomreq.gpcomreqfun") SQL = "sp_Security '" & Trim(Request.ServerVariables("REMOTE_ADDR")) & "','" & Request.ServerVariables("SCRIPT_NAME") & "','Form semi'" ErrorCode = dll.GPCOMSQLNoResult(SQL) Response.redirect("http://www.allyourrooms.com/404.html") end if A = InStr(1, ucase(StrStuff), "'", vbBinaryCompare) IF A <> 0 then ' "Bad Scripting word: tick" Set dll = Server.CreateObject("gpcomreq.gpcomreqfun") SQL = "sp_Security '" & Trim(Request.ServerVariables("REMOTE_ADDR")) & "','" & Request.ServerVariables("SCRIPT_NAME") & "','Form tick'" ErrorCode = dll.GPCOMSQLNoResult(SQL) Response.redirect("http://www.allyourrooms.com/404.html") end if A = InStr(1, ucase(StrStuff), "%27", vbBinaryCompare) IF A <> 0 then ' "Bad Scripting word: tick ;" Set dll = Server.CreateObject("gpcomreq.gpcomreqfun") SQL = "sp_Security '" & Trim(Request.ServerVariables("REMOTE_ADDR")) & "','" & Request.ServerVariables("SCRIPT_NAME") & "','Form tick'" ErrorCode = dll.GPCOMSQLNoResult(SQL) Response.redirect("http://www.allyourrooms.com/404.html") end if end if End Function Function SecurityTextReplace(Strtext) Strtext = Replace(Strtext," <% Dim zip zip = SecurityTextReplace(Request("zip")) %> <% Function SecurityCheck() Dim StrStuff Dim A Dim SQL Dim dll Dim ErrorCode StrStuff = request.servervariables("QUERY_STRING") IF Trim(StrStuff) <> "" then A = InStr(1, ucase(StrStuff), " 0 then ' "Bad Scripting word: Query Script" Set dll = Server.CreateObject("gpcomreq.gpcomreqfun") SQL = "sp_Security '" & Trim(Request.ServerVariables("REMOTE_ADDR")) & "','" & Request.ServerVariables("SCRIPT_NAME") & "','Query script'" ErrorCode = dll.GPCOMSQLNoResult(SQL) Response.redirect("http://www.allyourrooms.com/404.html") end if A = InStr(1, ucase(StrStuff), "%3CSCRIPT", vbBinaryCompare) IF A <> 0 then ' "Bad Scripting word: Query Script" Set dll = Server.CreateObject("gpcomreq.gpcomreqfun") SQL = "sp_Security '" & Trim(Request.ServerVariables("REMOTE_ADDR")) & "','" & Request.ServerVariables("SCRIPT_NAME") & "','Query script'" ErrorCode = dll.GPCOMSQLNoResult(SQL) Response.redirect("http://www.allyourrooms.com/404.html") end if A = InStr(1, ucase(StrStuff), "JAVASCRIPT:ALERT", vbBinaryCompare) IF A <> 0 then ' "Bad Scripting word: Query Script" Set dll = Server.CreateObject("gpcomreq.gpcomreqfun") SQL = "sp_Security '" & Trim(Request.ServerVariables("REMOTE_ADDR")) & "','" & Request.ServerVariables("SCRIPT_NAME") & "','Query JAVAscript'" ErrorCode = dll.GPCOMSQLNoResult(SQL) Response.redirect("http://www.allyourrooms.com/404.html") end if A = InStr(1, ucase(StrStuff), "JAVASCRIPT%3AALERT", vbBinaryCompare) IF A <> 0 then ' "Bad Scripting word: Query Script" Set dll = Server.CreateObject("gpcomreq.gpcomreqfun") SQL = "sp_Security '" & Trim(Request.ServerVariables("REMOTE_ADDR")) & "','" & Request.ServerVariables("SCRIPT_NAME") & "','Query script'" ErrorCode = dll.GPCOMSQLNoResult(SQL) Response.redirect("http://www.allyourrooms.com/404.html") end if A = InStr(1, ucase(StrStuff), "CMDSHELL", vbBinaryCompare) IF A <> 0 then ' "Bad Scripting word: Query cmdshell" Set dll = Server.CreateObject("gpcomreq.gpcomreqfun") SQL = "sp_Security '" & Trim(Request.ServerVariables("REMOTE_ADDR")) & "','" & Request.ServerVariables("SCRIPT_NAME") & "','Query cmdshell'" ErrorCode = dll.GPCOMSQLNoResult(SQL) Response.redirect("http://www.allyourrooms.com/404.html") end if A = InStr(1, ucase(StrStuff), ";", vbBinaryCompare) IF A <> 0 then ' "Bad Scripting word: Query ;" Set dll = Server.CreateObject("gpcomreq.gpcomreqfun") SQL = "sp_Security '" & Trim(Request.ServerVariables("REMOTE_ADDR")) & "','" & Request.ServerVariables("SCRIPT_NAME") & "','Query semi'" ErrorCode = dll.GPCOMSQLNoResult(SQL) Response.redirect("http://www.allyourrooms.com/404.html") end if A = InStr(1, ucase(StrStuff), "%3B", vbBinaryCompare) IF A <> 0 then ' "Bad Scripting word: semi ;" Set dll = Server.CreateObject("gpcomreq.gpcomreqfun") SQL = "sp_Security '" & Trim(Request.ServerVariables("REMOTE_ADDR")) & "','" & Request.ServerVariables("SCRIPT_NAME") & "','Query semi'" ErrorCode = dll.GPCOMSQLNoResult(SQL) Response.redirect("http://www.allyourrooms.com/404.html") end if A = InStr(1, ucase(StrStuff), "'", vbBinaryCompare) IF A <> 0 then ' "Bad Scripting word: tick " Set dll = Server.CreateObject("gpcomreq.gpcomreqfun") SQL = "sp_Security '" & Trim(Request.ServerVariables("REMOTE_ADDR")) & "','" & Request.ServerVariables("SCRIPT_NAME") & "','Query tick'" ErrorCode = dll.GPCOMSQLNoResult(SQL) Response.redirect("http://www.allyourrooms.com/404.html") end if A = InStr(1, ucase(StrStuff), "%27", vbBinaryCompare) IF A <> 0 then ' "Bad Scripting word: tick " Set dll = Server.CreateObject("gpcomreq.gpcomreqfun") SQL = "sp_Security '" & Trim(Request.ServerVariables("REMOTE_ADDR")) & "','" & Request.ServerVariables("SCRIPT_NAME") & "','Query tick'" ErrorCode = dll.GPCOMSQLNoResult(SQL) Response.redirect("http://www.allyourrooms.com/404.html") end if end if StrStuff = Request.Form 'Response.Write(StrStuff) IF Trim(StrStuff) <> "" then A = InStr(1, ucase(StrStuff), " 0 then ' Response.write "Bad Scripting word: from Script" Set dll = Server.CreateObject("gpcomreq.gpcomreqfun") SQL = "sp_Security '" & Trim(Request.ServerVariables("REMOTE_ADDR")) & "','" & Request.ServerVariables("SCRIPT_NAME") & "','Form script'" ErrorCode = dll.GPCOMSQLNoResult(SQL) Response.redirect("http://www.allyourrooms.com/404.html") end if A = InStr(1, ucase(StrStuff), "%3CSCRIPT", vbBinaryCompare) IF A <> 0 then ' Response.write "Bad Scripting word: from Script" Set dll = Server.CreateObject("gpcomreq.gpcomreqfun") SQL = "sp_Security '" & Trim(Request.ServerVariables("REMOTE_ADDR")) & "','" & Request.ServerVariables("SCRIPT_NAME") & "','Form script'" ErrorCode = dll.GPCOMSQLNoResult(SQL) Response.redirect("http://www.allyourrooms.com/404.html") end if A = InStr(1, ucase(StrStuff), "JAVASCRIPT:ALERT", vbBinaryCompare) IF A <> 0 then ' "Bad Scripting word: from Script" Set dll = Server.CreateObject("gpcomreq.gpcomreqfun") SQL = "sp_Security '" & Trim(Request.ServerVariables("REMOTE_ADDR")) & "','" & Request.ServerVariables("SCRIPT_NAME") & "','From JAVAscript'" ErrorCode = dll.GPCOMSQLNoResult(SQL) Response.redirect("http://www.allyourrooms.com/404.html") end if A = InStr(1, ucase(StrStuff), "JAVASCRIPT%3AALERT", vbBinaryCompare) IF A <> 0 then ' "Bad Scripting word: form Script" Set dll = Server.CreateObject("gpcomreq.gpcomreqfun") SQL = "sp_Security '" & Trim(Request.ServerVariables("REMOTE_ADDR")) & "','" & Request.ServerVariables("SCRIPT_NAME") & "','From script'" ErrorCode = dll.GPCOMSQLNoResult(SQL) Response.redirect("http://www.allyourrooms.com/404.html") end if A = InStr(1, ucase(StrStuff), "CMDSHELL", vbBinaryCompare) IF A <> 0 then ' "Bad Scripting word: Form cmdshell" Set dll = Server.CreateObject("gpcomreq.gpcomreqfun") SQL = "sp_Security '" & Trim(Request.ServerVariables("REMOTE_ADDR")) & "','" & Request.ServerVariables("SCRIPT_NAME") & "','Form cmdshell'" ErrorCode = dll.GPCOMSQLNoResult(SQL) Response.redirect("http://www.allyourrooms.com/404.html") end if A = InStr(1, ucase(StrStuff), ";", vbBinaryCompare) IF A <> 0 then ' "Bad Scripting word: semi ;" Set dll = Server.CreateObject("gpcomreq.gpcomreqfun") SQL = "sp_Security '" & Trim(Request.ServerVariables("REMOTE_ADDR")) & "','" & Request.ServerVariables("SCRIPT_NAME") & "','Form semi'" ErrorCode = dll.GPCOMSQLNoResult(SQL) Response.redirect("http://www.allyourrooms.com/404.html") end if A = InStr(1, ucase(StrStuff), "%3B", vbBinaryCompare) IF A <> 0 then ' "Bad Scripting word: semi ;" Set dll = Server.CreateObject("gpcomreq.gpcomreqfun") SQL = "sp_Security '" & Trim(Request.ServerVariables("REMOTE_ADDR")) & "','" & Request.ServerVariables("SCRIPT_NAME") & "','Form semi'" ErrorCode = dll.GPCOMSQLNoResult(SQL) Response.redirect("http://www.allyourrooms.com/404.html") end if A = InStr(1, ucase(StrStuff), "'", vbBinaryCompare) IF A <> 0 then ' "Bad Scripting word: tick" Set dll = Server.CreateObject("gpcomreq.gpcomreqfun") SQL = "sp_Security '" & Trim(Request.ServerVariables("REMOTE_ADDR")) & "','" & Request.ServerVariables("SCRIPT_NAME") & "','Form tick'" ErrorCode = dll.GPCOMSQLNoResult(SQL) Response.redirect("http://www.allyourrooms.com/404.html") end if A = InStr(1, ucase(StrStuff), "%27", vbBinaryCompare) IF A <> 0 then ' "Bad Scripting word: tick ;" Set dll = Server.CreateObject("gpcomreq.gpcomreqfun") SQL = "sp_Security '" & Trim(Request.ServerVariables("REMOTE_ADDR")) & "','" & Request.ServerVariables("SCRIPT_NAME") & "','Form tick'" ErrorCode = dll.GPCOMSQLNoResult(SQL) Response.redirect("http://www.allyourrooms.com/404.html") end if end if End Function Function SecurityTextReplace(Strtext) Strtext = Replace(Strtext," Product Locator - Sparkle Paper Towels


Sparkle Paper Towels with Prints

Add all new designer prints to
your kitchen today!

Available in an 8 roll pack!


See This Product


Product Locator

Send this Site to a Friend

Use this convenient Product Locator to find Sparkle® Paper Towels near your home or office... or anywhere in between!



If you don't find the answer to your question or have a comment for us, please contact us using one of the ways below.

Enter your Zip Code: Select a Distance:



Which Sparkle Paper Towel product are you looking for?