<% session("username")="" session("loc")="" session("acc")="" session("summit")="" session("market")="" session("master")="" session("admin")="" session("qlyauditor")="" dim RS set RS=server.CreateObject("adodb.recordset") chang = request.querystring("change") lty = request.querystring("ltype") if lty = "" then lty = "B" if lty = "B" then B="checked" else B="" if lty = "C" then C="checked" else C="" if lty = "A" then A="checked" else A="" newpass = request.form("newpass") confpass = request.form("confpass") msgdisp = "Not changed" if newpass <>"" and newpass=confpass then If request.form("name")<>"" and request.form("pass")<>"" AND Request.Form("LOGINTYPE")="CUSTOMER" Then rs.open "Select * from Customerlist where login='" & request.form("name") & "' and pass='" & request.form("pass") & "'",con1,1,3 if rs.recordcount = 1 then rs("pass") = newpass rs.update msgdisp="password changed..!" end if rs.close ElseIf request.form("name")<>"" and request.form("pass")<>"" AND Request.Form("LOGINTYPE")="BHARAT" Then rs.open "Select * from login where login='" & request.form("name") & "' and pass='" & request.form("pass") & "'",con,1,3 if rs.recordcount = 1 then rs("pass") = newpass rs.update msgdisp="password changed..!" end if rs.close ElseIf request.form("name")<>"" and request.form("pass")<>"" AND Request.Form("LOGINTYPE")="AGENT" Then rs.open "Select * from agentlist where login='" & request.form("name") & "' and pass='" & request.form("pass") & "'",con1,1,3 if rs.recordcount = 1 then rs("pass") = newpass rs.update msgdisp="password changed..!" end if rs.close end if response.write msgdisp end if If request.form("name")<>"" and request.form("pass")<>"" AND Request.Form("LOGINTYPE")="CUSTOMER" Then rs.open "Select * from Customerlist where login='" & request.form("name") & "' and pass='" & request.form("pass") & "'",con1,1,3 If not rs.eof Then session("logint")="Bcust" session("username")=RS("companyname") response.redirect "selectjob.asp" Else response.write "Invalid Login / Password" End If rs.close ElseIf request.form("name")<>"" and request.form("pass")<>"" AND Request.Form("LOGINTYPE")="AGENT" Then rs.open "Select * from Agentlist where login='" & request.form("name") & "' and pass='" & request.form("pass") & "'",con1,1,3 If not rs.eof Then session("logint")="Bagent" session("username")=RS("companyname") ' response.redirect "selectjob.asp" response.write "The agents login is under construction." Else response.write "Invalid Login / Password" End If rs.close ElseIf request.form("name")<>"" and request.form("pass")<>"" AND Request.Form("LOGINTYPE")="BHARAT" Then rs.open "Select * from login where login='" & request.form("name") & "' and pass='" & request.form("pass") & "' and activeyn",con,1,3 If not rs.eof Then session("logint")="Bstaff" session("username")=rs("name") session("userloc")=rs("loc") if rs("loc")= "ALL" then session("loc")= "MAA" else session("loc") = rs("loc") session("login")=rs("login") if rs("accountsyn") then session("acc")="yes" if rs("master") then session("master")="yes" if rs("admin") then session("admin")="yes" if rs("marketing") then session("market")="yes" if rs("qlyauditor") then session("qlyauditor")="yes" if rs("sumedit") then session("summit")="edit" if rs("sumview") then session("summit")="view" 'if session("summit") > "" then 'response.redirect "summitjoblist.asp" 'else 'response.redirect "Distribute.asp" 'end if ' if rs("accash") then session("addtr")="CR,CP" ' if rs("acbank") then session("addtr")="BR,BP" ' if rs("accash") and rs("acbank") then session("addtr")="CR,CP,BR,BP" ' if rs("bracct") then session("addtr")="CR,CP,BR,BP,JV,AS" ' if rs("hoacct") then session("addtr")="CR,CP,BR,BP,JV,AS" ' if rs("hopa") or rs("hoacct") then session("passvt")="Y,W,B" rs.close response.redirect "bharatmain.asp" Else response.write "Invalid Login / Password" End If End If %> Bharat Logistics - Login

 

Cargo Agents

     

 

 

Home | About Us | Services | Login | Enquiry | Contact Us

login

 > CUSTOMER      > AGENT      > BHARAT 
  
<% if chang="pass" then %> <% else %> <% end if %>
Login
Password
New Password
confirm Password

Bharat Logistic Solutions Private Limited

 Home | Air Cargo | Sea Cargo | Customs | Import/Export Guide