<% dim RekodSet, DbConn, SQL, DbConn2, RekodSet2, sql2 dim strUserID, strPassword, strConnString, strConnString2 set Dbconn = Server.CreateObject("ADODB.Connection") set RekodSet = Server.CreateObject("ADODB.RecordSet") set Dbconn2 = Server.CreateObject("ADODB.Connection") set RekodSet2 = Server.CreateObject("ADODB.RecordSet") 'strConnString ="DRIVER={Microsoft Access Driver (*.mdb)};DBQ= " + Server.MapPath("semakan_online/kata_laluan.mdb") strConnString = "dsn=kata" strConnString2 ="DRIVER={Microsoft Access Driver (*.mdb)};DBQ= " + Server.MapPath("semakan_online/bakionline.mdb") DbConn.Open strConnString DbConn2.Open strConnString2 strUserID = Request("UserID") strPassword = Request("Password") Session.LCID = 2057 sql = "SELECT * FROM laluan where NoLBNK='" & strUserID &"' AND NoPin='" &strPassword &"'" Rekodset.Source = SQL Rekodset.ActiveConnection = dbConn Rekodset.Open SQL, dbConn, 3 if RekodSet.EOF then %>

Semakan Baki Pinjaman


Pilih Mod Semakan













Peminjam boleh mendapatkan kata laluan untuk semakan baki pinjaman melalui email : pohonpin@lbnk.gov.my