<% Response.Buffer = True dim logId, pwd, sqlLogin, vCustomerCount %>

<% con.begintrans logId = request.form("hlogin") pwd = request.form("hPwd") 'checking validity of the user sqlLogin = "select count(*) as cstCnt from pub.TB_CST_MST where cst_id='" & logId & "' and cst_pwd='" & pwd & "'" rs.open sqlLogin, con if not rs.eof then vCustomerCount = rs("cstCnt") else vCustomerCount = 0 end if rs.close set rs = nothing con.committrans con.close set con = nothing if vCustomerCount < 1 then '''''============================ '''''SHOWING THE MESSAGE Login ID or Password Incorrect ''''' response.redirect "emsInvlaidLogin.asp" else session("sesLogid")=logId session("sesPwd")=pwd '''''Setting the the browser session to 2 hrs Session.Timeout=120 vOption = session("option") if Session("direct") = "1" then Response.Redirect "emsCustomerPage.asp" end if select case vOption case 1 Response.Redirect "emsCustEnquiry.asp" case 2 Response.Redirect "emsListQuots.asp" case 3 Response.Redirect "emsListPI.asp" case 4 Response.Redirect "emsListAmendments.asp" case 5 Response.Redirect "emsListInvoice.asp" case 6 Response.Redirect "emsListPackingList.asp" case 7 Response.Redirect "emsListBillOfLading.asp" case 8 Response.Redirect "emsListCertificateOfOrigin.asp" case 9 Response.Redirect "emsListOrderStatus.asp" end select end if %>