<%
IF session("Usertype")="J" then
Response.Redirect("Loginhome.asp")
Response.End()
End If
IF session("Usertype")="E" then
Response.Redirect("LoginhomeE.asp")
Response.End()
End If
Dim Cnn,strsql,rscat
Set Cnn=Server.CreateObject("ADODB.Connection")
With cnn
.Provider = "SQLOLEDB"
.ConnectionString = Application("SqlConnectionString")
.Open
End With
If request.querystring("Updt")="T" then
dim musername,mpassword
Dim errmsg
musername=Request.form("username")
mpassword=Request.form("pswd")
If len(musername) < 5 then errmsg="Invalid UserID"
If len(mpassword) < 5 then errmsg=errmsg +" Invalid Password "
If errmsg="" then
Dim rsinetclients
Set rsinetclients =Server.Createobject("Adodb.recordset")
strsql="Select * from inetclients where username like '" & musername & "'"
rsinetclients.open strsql,Cnn,adopendynamic,adlockpessimistic,adcmdtext
If rsinetclients.eof then
errmsg="'Invalid Email ID' or 'UserID does not exists'."
Else
if rsinetclients("Password")<>mpassword then
errmsg="Incorrect Password"
Else
Session("Lastlogged")=rsinetclients("Datelastlogin")
rsinetclients("Datelastlogin")=date
rsinetclients.Update
Session("username")=musername
Session("usertype")="E"
Session("fullname")= rsinetclients("title") +" " + " "+rsinetclients("Firstname") + " " + rsinetclients("Lastname")
rsinetclients.close
cnn.close
Set rsinetclients = nothing
Set cnn = Nothing
Response.Redirect("LoginhomeE.asp")
Response.End
End if
End if
rsinetclients.close
cnn.close
Set rsinetclients = nothing
Set cnn = Nothing
End If
End If
%>
Apt - Human Resource & Management Consultancy - Jobs
