<%@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 Response.Cookies("Hukm")("DownPage") = "services/Lockers.asp" 'Dimension Variables Dim adoCon 'Database Connection Variable Dim strCon 'Holds the Database driver and the path and name of the database Dim adoRec, adoRecLoc 'Database Recordset Variable Dim strSQL, strSQLLoc 'Database query sring Dim strStatus, strNoOfSeats, strNoOfMonths, strStartTime, strEndTime, strCost, strSendEmailUser, strSendEmailAdmin Set adoCon = Server.CreateObject("ADODB.Connection") adoCon.Open strCon Set adoRec = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT tbl_SetupLocker.* FROM tbl_SetupLocker " adoRec.CursorType = 0 adoRec.LockType = 3 adoRec.Open strSQL, strCon If adoRec.EOF Then '-------------- Multimedia Lab Teble has no data---------------- 'Response.Write("Locker Error") Response.Redirect("LockersErr.asp?Err=noPg") Else strStatus = adoRec.Fields("Status") strNoOfLockers = adoRec.Fields("NoOfLockers") strCost = adoRec.Fields("Cost") strDeposit = adoRec.Fields("Deposit") strSendEmailUser = adoRec.Fields("SendEmailUser") strSendEmailAdmin = adoRec.Fields("SendEmailAdmin") strEmailIDAdmin = adoRec.Fields("EmailIDAdmin") End if If strStatus <> True then Response.Redirect("LockersErr.asp?ErrType=noServ") End if %> PPUKM Library - KKM <% '------------------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 %>
 
<%=Response.Write(now)%>  
<% Set adoRecLoc = Server.CreateObject("ADODB.Recordset") strSQLLoc = "SELECT tbl_Locker.* FROM tbl_Locker " strSQLLoc = strSQLLoc & " Where tbl_Locker.UserMaster_ID = '" & Session("sesUserMaster_ID") & "' AND tbl_Locker.BookingStatus <> 'E' AND tbl_Locker.ActionFlag <> 'D';" adoRecLoc.CursorType = 0 adoRecLoc.LockType = 3 adoRecLoc.Open strSQLLoc, strCon Dim strCounter strCounter = 1 If NOT adoRecLoc.EOF Then adoRecLoc.MoveFirst %> <% End if %>
<% Dim rsNews30 Dim rsCommentsCount30 Dim intNewsItems30 Set rsNews30 = Server.CreateObject("ADODB.Recordset") strSQLCMS30 = "SELECT tblNews.* FROM tblNews where tblNews.News_ID=30 ORDER BY Date_stamp DESC;" rsNews30.Open strSQLCMS30, adoConCMS Set rsCommentsCount30 = Server.CreateObject("ADODB.Recordset") strSQLCMS30 = "SELECT Count(tblComments.News_ID) AS CountOfNewsItems, tblComments.News_ID " strSQLCMS30 = strSQLCMS30 & "FROM tblComments " strSQLCMS30 = strSQLCMS30 & "GROUP BY tblComments.News_ID;" rsCommentsCount30.Open strSQLCMS30, adoConCMS If rsNews30.EOF Then Response.Write("Sorry, There is no Data to display") For intNewsItems30 = 1 to intRecordsPerPage If rsNews30.EOF Then Exit For rsCommentsCount30.Filter = "News_ID = " & CLng(rsNews30("News_ID")) %> <% = rsNews30("News_item") %> <% rsNews30.MoveNext Next rsNews30.Close Set rsNews30 = Nothing rsCommentsCount30.Close Set rsCommentsCount30 = Nothing Set strConCMS30 = Nothing %>

<% If Session("sesUserType_ID") = "GUE" Then%>

BORANG PENDAFTARAN DAN JADUAL KELAS KEMAHIRAN MAKLUMAT (KKM) 2012 / INFORMATION SKILL CLASSES FORM REGISTRATION AND SCHEDULE 2012
<%End if%>

Sila isi butiran tuan/puan dan pilih tarikh berdasarkan jadual dibawah untuk pendaftaran. Tarikh dan jadual adalah tertakluk kepada pindaan. Semua Kelas akan diadakan bertempat di Makmal Multimedia, Perpustakaan PPUKM. Sebarang perubahan akan dimaklumkan kelak. Sebarang pertanyaan sila emel : lanzmh@ppukm.ukm.my


Please fill the form and choose the date to register. The date is subject to change. Any changes will be informed later. Any enquiries please email to : lanzmh@ppukm.ukm.my