<%response.Buffer ="True" %>
<%
on error resume next
dim connTemp, mySql, rsTemp,msg
msg=""
' checking username and password
if request.form("Login")<>"" then
pUsername = replace(trim(request.form("username"))," ","")
pPassword = replace(trim(request.form("password"))," ","")
if pPassword <> "" and pUsername <> "" then
on error resume next
mySQL="SELECT empId,Username,password,Tperiod,changedate FROM employers where Username='" &pUsername& "' and password='"&pPassword&"'"
call getFromDatabase(mySQL, rstemp)
if rstemp.eof then
msg="Check your user name and password"
else
Session("eUsername")=pUsername
Session("UserID")=rstemp("empId")
pTperiod = rstemp("Tperiod")
pChangedate = rstemp("changedate")
if pTperiod = "1" then
' response.write "Long time User"
call closeDb()
response.redirect "/databank/resume.asp"
response.end
elseif pTperiod = "2" then
strDate=Date
pDateDiff= DateDiff("d",pChangedate,strDate)
if pDateDiff >=0 then
if pDateDiff <= 15 then
'response.write pChangedate&" - "&strDate
'response.write " 15 days User"&pDateDiff
call closeDb()
response.redirect "/databank/resume.asp"
response.end
else
msg="Your 15 days validity period over, If you interested to renew the account, Please contact with InterManagement. "
end if
else
msg="Please Check you System Date and correct it"
end if
end if
end if
else
msg="Enter Username and Password"
end if
end if
%>