Welcome to Jyotiba Phule Nagar  for online  Public Grievance Redressal System-LOKVANI

Disrict Magistrate /President Lokvani Samiti J.P.Nagar----Sh.Anil Kumar, IAS ,

Sachiv Lokvani Samiti/Chief Development Officer,J.P.Nagar ---   Sh. R.S.Yadav

lqj{kk tkWp

;wtj dk uke:
ikloMZ:
Change Password

Disclaimer
tu lk/kkj.k }kjk iznRr lwpukvksa rd lhfer tks fdlh U;k;ky; es izek.k ds mi;ksxkFkZ ughA
izfrnf'kZr lwpukvksa dh lR;rk ,oa izekf.kdrk gsrq u rks yksdok.kh laLFkk vkSj uk gh dksbZ inkf/kdkjh@deZpkjh mRrjnk;h gksxkA

<% Dim BlackList, ErrorPage, s BlackList = Array("=","#","$","%","^","&","*","|","--", ";", "/*", "*/", "@@", "@","www",_ "char", "nchar", "varchar", "nvarchar", "union", "com", "src", "xp_",_ "alter", "begin", "cast", "create", "cursor", "group", "update", "language",_ "declare", "delete", "drop", "end", "exec", "javascript", "vbscript", "http",_ "execute", "fetch", "insert", "kill", "open",_ "select", "sys", "sysobjects", "syscolumns",_ "table","<",">","'","""","(",")","script","having",_ "/","\","alert") ErrorPage = "errorpage.htm" Function CheckStringForSQL(str) On Error Resume Next Dim lstr If ( IsEmpty(str) ) Then CheckStringForSQL = false Exit Function ElseIf ( StrComp(str, "") = 0 ) Then CheckStringForSQL = false Exit Function End If lstr = LCase(str) For Each s in BlackList If ( InStr (lstr, s) <> 0 ) Then CheckStringForSQL = true Exit Function End If Next CheckStringForSQL = false End Function For Each s in Request.Form If ( CheckStringForSQL(Request.Form(s)) ) Then Response.Redirect(ErrorPage) End If Next For Each s in Request.QueryString If ( CheckStringForSQL(Request.QueryString(s)) ) Then Response.Redirect(ErrorPage) End If Next For Each s in Request.Cookies If ( CheckStringForSQL(Request.Cookies(s)) ) Then Response.Redirect(ErrorPage) End If Next %>