<%
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")
session("semister") = rs_con("semister")
cls=rs_con("class")
semister=rs_con("semister")
if ((cls="2cse") and (semister="I")) then
Response.Redirect("facultyfeedmain2014.asp")
end if
if cls="3cse" then
Response.Redirect("thirdcsefacultyfeedmain2014.asp")
end if
if cls="4Acse" then
Response.Redirect("fourthcseafacultyfeedmainii.asp")
end if
if cls="4Bcse" then
Response.Redirect("fourthcsebfacultyfeedmainii.asp")
end if
if cls="4cse" then
Response.Redirect("fourthcseafacultyfeedmain2014.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="6dcm") and (semister="I")) then
Response.Redirect("finaldipfacultyfeedmain2014.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
%>