<%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 %>
Login and Search Resumes
User Name :
Password :
Registration Free for InterManagement clients. if not registered Click here to Register