%'*** P13 Form Security If (false) or (CStr(Request("MM_insert")) <> "") or (CStr(Request("MM_update")) <> "") Then Dim p13thispage, p13thisquery, p13thisreferer, p13thishost, p13str, p13pagestr p13thisreferer = Request.ServerVariables("HTTP_REFERER") p13thispage = Request.ServerVariables("PATH_INFO") p13thisquery = Request.ServerVariables("QUERY_STRING") p13thishost = Request.ServerVariables("HTTP_HOST") p13thisreferer = REPLACE(p13thisreferer, p13thisquery, "") p13str = Instr(p13thisreferer,"?") if p13str > 0 then p13thisreferer = Left(p13thisreferer,p13str - 1) End if p13thispage = REPLACE(p13thispage, p13thisquery, "") p13pagestr = Instr(p13thispage,"?") if p13pagestr > 0 then p13thispage = Left(p13thispage,p13pagestr - 1) End if p13thispage = "http://" & p13thishost & p13thispage if p13thisreferer <> p13thispage then Response.Write("error") Response.end End if End if'*** End of P13 FS%>