<%
function scrubData(str)
dim SecuredString
'replace chars
SecuredString=replace(str,"<","")
SecuredString=replace(SecuredString,">","")
SecuredString=replace(SecuredString,"'","")
SecuredString=replace(SecuredString,"""","")
SecuredString=replace(SecuredString,"(","")
SecuredString=replace(SecuredString,")","")
SecuredString=replace(SecuredString,"--","")
'return the new clean str
scrubData=SecuredString
end function
siteid=scrubData(Request.QueryString("site"))
ssologin=scrubData(Request.QueryString("loginsso"))
%>
top content
