<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% '--------------------------------------------- 'Copyright 2003 Paragon Automation (M) Sdn Bhd 'Created by: Vivek Thomas ' vivek@excellence.com.my ' vivektj@hotmail.com 'Date Deployed: 1st June 2003 '--------------------------------------------- %> <% Response.Buffer = True If Session("IsUserGood") = False or IsNull(Session("IsUserGood")) = True then Response.Redirect"../../error.asp" Else Session.Timeout=180 End If strRef = request.servervariables("HTTP_REFERER") 'If len(strRef) > 1 then 'Response.Write(strRef) ' If left(strRef,20) = "http://localhost/huk" OR left(strRef,20) = "http://lib.hukm.ukm." OR left(strRef,20) = "http://202.186.179.2" OR left(strRef,20) = "http://202.186.179.7" then '---- continue ----- ' Else ' Response.Redirect("http://202.186.179.2/en/error.asp") ' End if 'Else ' Response.Redirect("http://202.186.179.2/en/error.asp") 'End If 'If len(Request.Cookies("HukmEnc")("UID")) < 4 Then ' Response.Redirect("http://202.186.179.2/en/error.asp") 'End if Set adoCon = Server.CreateObject("ADODB.Connection") adoCon.Open strCon Set adoRecUN = Server.CreateObject("ADODB.Recordset") strSQLUN = "SELECT tbl_UserMaster.* FROM tbl_UserMaster " strSQLUN = strSQLUN & " Where tbl_UserMaster.UserName = '" & Session("sesUserName") & "';" adoRecUN.CursorType = 0 adoRecUN.LockType = 3 adoRecUN.Open strSQLUN, strCon If NOT adoRecUN.EOF Then dbOvid = adoRecUN.Fields("dbOvid") dbProquest = adoRecUN.Fields("dbProquest") dbBlackwell = adoRecUN.Fields("dbBlackwell") dbCRL = adoRecUN.Fields("dbCRL") dbMicromedex = adoRecUN.Fields("dbMicromedex") dbMdConsult = adoRecUN.Fields("dbMdConsult") dbELS = adoRecUN.Fields("dbELS") dbImagesMD = adoRecUN.Fields("dbImagesMD") dbScience = adoRecUN.Fields("dbScience") dbSpringer = adoRecUN.Fields("dbSpringer") dbEmerald = adoRecUN.Fields("dbEmerald") dbPsyc = adoRecUN.Fields("dbPsyc") dbEbsco = adoRecUN.Fields("dbEbsco") dbLexis = adoRecUN.Fields("dbLexis") dbCLJLaw = adoRecUN.Fields("dbCLJLaw") dbLawNet = adoRecUN.Fields("dbLawNet") dbNeuro = adoRecUN.Fields("dbNeuro") End if i = 1 %> Buletin Perpustakaan PPUKM <% '------------------After Header ------------------------------------------- Dim adoConCMS 'Database Connection Variable Dim rsConfiguration 'Holds the configuartion recordset Dim strConCMS 'Holds the Database driver and the path and name of the database Dim strSQLCMS 'Holds the SQL query for the database 'Create a connection odject Set adoConCMS = Server.CreateObject("ADODB.Connection") strConCMS = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../CMS/cms.mdb") 'Set an active connection to the Connection object adoConCMS.Open strConCMS Set rsConfiguration = Server.CreateObject("ADODB.Recordset") strSQLCMS = "SELECT tblConfiguration.* From tblConfiguration;" rsConfiguration.Open strSQLCMS, strConCMS If NOT rsConfiguration.EOF Then intRecordsPerPage = CInt(rsConfiguration("No_records_per_page")) strBgColour = rsConfiguration("bg_colour") strTextColour = rsConfiguration("text_colour") strTextType = rsConfiguration("text_type") intTextSize = CInt(rsConfiguration("text_size")) strTableColour = rsConfiguration("table_colour") strTableBorderColour = rsConfiguration("table_border_colour") strTableTitleColour = rsConfiguration("table_title_colour") strLinkColour = rsConfiguration("links_colour") strVisitedLinkColour = rsConfiguration("visited_links_colour") strActiveLinkColour = rsConfiguration("active_links_colour") End If 'Reset server object Set rsConfiguration = Nothing '---- Start GET Login Info--------------------- 'Dimension Variables Dim adoCon 'Database Connection Variable Dim strCon 'Holds the Database driver and the path and name of the database Dim adoRecO, adoRecP, adoRecB, adoRecC 'Database Recordset Variable Dim strSQLO, strSQLP, strSQLB, strSQLC 'Database query sring Set adoCon = Server.CreateObject("ADODB.Connection") adoCon.Open strCon %>
  Selamat Datang ke Laman Buletin Perpustakaan PPUKM  
         
 

Buletin Perpustakaan PPUKM adalah satu usaha perpustakaan untuk memaklumkan sebarang aktiviti,

program, berita, perkhidmatan dan kemudahan terkini Perpustakaan kepada semua pengguna. Sila klik

pautan di bawah untuk memuat turun buletin tersebut. Selamat membaca.

  
         
 

 

 
 

Isu 1 (November 2006)

  

Isu 2 (November 2007)

  
 

Terbitan pertama Buletin Perpustakaan HUKM. Memaparkan makluman kaunter perpustakaan baru, ruang baca 24 jam, aktiviti sepanjang tahun 2006, pangkalan data baru, berita kakitangan dan lain-lain.

  

Isu kedua ini memuatkan makluman Sistem RFID, pangkalan data baru, aktiviti sepanjang tahun 2007, pangkalan data baru, berita kakitangan dan lain-lain.

  
         
 

 

 
         
 

Isu 3 (Jun 2008)

  

Isu 4 (Disember 2008)

  
 

Memaparkan berita terbaru perpustakaan antaranya Sistem CLM, aktiviti dari bulan Januari hingga Jun 2008, ulasan buku, pangkalan data baru dan lain-lain lagi.

  

Memuatkan berita-berita terkini seperti Knowledge Portal PPPUKM, pangkalan data baru, aktiviti sepanjang Julai hingga Disember 2008, ulasan buku dan banyak lagi.

  
         
 
     
         
 
Isu 5 (Disember 2009)
Memuatkan berita-berita terkini seperti Sanggar Kerja 2009, pangkalan data dan perkhidmatan terbaru, aktiviti sepanjang tahun 2009, ulasan buku dan banyak lagi.
      
 

Best viewed at 800x600 or higher, Using IE 5.x, Netscape 6.x or greater browsers

  
 

Paparan terbaik sila gunakan Microsoft Internet Explorer 5 ke atas pada 800x600 ke atas.
Hak Milik Perpustakaan PPUKM @ 2007. Hak Cipta Terpelihara.