<% msg = "" reason = trim(lcase(request("reason"))) select case reason case "expire" msg = "Session expired.Please relogin" case "pwd_change" msg = "Password changed successfully!!! Please login again to continue" end select if Request.ServerVariables("REQUEST_METHOD") = "POST" then login_failed = "false" clogin = replace(replace(request.form("txtname"),"'","''"),"""","""""") cPassword = replace(replace(request.form("txtpass"),"'","''"),"""","""""") 'query = "select * from admin where clogin= '" & clogin & "' and cpassword = '" & cPassword &"'" 'response.Write(query) 'response.End() set rs_con = Conn.Execute ("select * from admin where clogin= '" & clogin & "' and cpassword = '" & cpassword &"'") if not (rs_con.eof) then 'response.write(len(rs_con("cpassword"))) 'response.write(len(cpassword)) 'response.end() if trim(rs_con("cpassword")) = cpassword then 'session("ADMIN") = rs_con("cFname") + " " + rs_con("cLname") session("loginid") = rs_con("cLogin") session("clsmain") = rs_con("class") cls=rs_con("class") if cls="2cse" then Response.Redirect("facultyfeedmain.asp") end if if cls="3cse" then Response.Redirect("thirdcsefacultyfeedmain.asp") end if if cls="4Acse" then Response.Redirect("fourthcseafacultyfeedmain.asp") end if if cls="4Bcse" then Response.Redirect("fourthcsebfacultyfeedmain.asp") end if if cls="4it" then Response.Redirect("fourthitfacultyfeedmain.asp") end if if cls="hodcse" then Response.Redirect("hodcse.asp") end if if cls="hodece" then Response.Redirect("hodece.asp") end if if cls="hodeee" then Response.Redirect("hodeee.asp") end if if cls="hodme" then Response.Redirect("hodme.asp") end if if cls="hodsh" then Response.Redirect("hodsh.asp") end if if cls="alumni" then Response.Redirect("admin.asp") end if else msg = "Invalid login Id or Password" end if else login_failed = "true" session("LOGINED")=false msg = "Invalid login Id or Password" end if end if %>