<%
If Request.form("username")<>"" then
session("Usertype")=""
End if
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
Set rscat =Server.Createobject("Adodb.recordset")
strsql="Select distinct Category from Jobcategory Order by category"
rscat.open strsql,Cnn
If Request.form("username")<>"" 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 rsmembers
Set rsmembers =Server.Createobject("Adodb.recordset")
strsql="Select * from members where username like '" & musername & "'"
rsmembers.open strsql,Cnn,adopendynamic,adlockpessimistic,adcmdtext
If rsmembers.eof then
errmsg="'Invalid User ID' or 'UserID does not exists'."
Else
if rsmembers("Password")<>mpassword then
errmsg="Incorrect Password"
Else
Session("Lastlogged")=rsmembers("Lastlogindate")
dim mdordate
mdordate=rsmembers("Dor")
Session("username")=musername
Session("usertype")=trim(rsmembers("Usertype"))
Session("fullname")= rsmembers("title") +" " + " "+rsmembers("Firstname") + " " + rsmembers("Lastname")
rsmembers("Lastlogindate")=date
rsmembers.Update
rsmembers.close
If Session("usertype")="J" then
strsql="Select * from Applicants where username like '" & musername & "'"
rsmembers.open strsql,Cnn,adopendynamic,adlockpessimistic,adcmdtext
If Not rsmembers.eof then
session("regno")=rsmembers("regno")
Session("Stayingin")=rsmembers("Stayingin")
End if
rsmembers("Lastupdatedate")=date
rsmembers("Clientupdated")=0
rsmembers("password")=mpassword
rsmembers("DOR")=mdordate
rsmembers.update
rsmembers.close
End If
cnn.close
Set rsmembers = nothing
Set cnn = Nothing
If Session("usertype")="J" then
Response.Redirect("Loginhome.asp")
Response.End
Else
Response.Redirect("LoginhomeE.asp")
Response.End
End If
End if
End if
rsmembers.close
cnn.close
Set rsmembers = nothing
Set cnn = Nothing
End If
End If
%>
Apt - Human Resource & Management Consultancy - Jobs
Login 123<%=Session("usertype")%>
<%
If errmsg<>"" then
link=""
Response.write(link)
Response.write("")
Response.write(errmsg)
Response.write("")
End if
%>
