%@ 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), " <% 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), "
