Example of ASP code to prevent injection from core protection

Security below is an anti-injection code!
Hope can be helpful to the vast first-range!
<%
Dim Getflag Rem (Submitted by way)
Dim errorsql Rem (illegal character)
Dim Requestkey Rem (submit data)
Dim fori Rem (circular marker)
Errorsql = "' ~;~and~ (~) ~exec~update~count~*~%~chr~mid~master~truncate~char~declare" Rem (sensitive character or word with half angle "~" Lattice Open)
Errorsql = Split (Errorsql, "~")
If Request.ServerVariables ("request_method") = "Get" Then
Getflag=true
Else
Getflag=false
End If
If Getflag Then
For each requestkey in Request.QueryString
For fori=0 to Ubound (errorsql)
If Instr (LCase (Request.QueryString (Requestkey)), Errorsql (fori)) <>0 Then
Response.Write "<script>alert (" "Warning: \ n Do not submit illegal parameters" "); location.href=" sql.asp "";</script> "
Response.End
End If
Next
Next
Else
For each requestkey in Request.Form
For fori=0 to Ubound (errorsql)
If Instr (LCase (Request.Form (Requestkey)), Errorsql (fori)) <>0 Then
Response.Write "<script>alert (" "Warning: \ n Do not submit illegal parameters" "); location.href=" sql.asp "";</script> "
Response.End
End If
Next
Next
End If
%>