%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> [an error occurred while processing this directive] <% Dim cariBuku Dim cariBuku_numRows Set cariBuku = Server.CreateObject("ADODB.Recordset") cariBuku.ActiveConnection = MM_Perpus_STRING cariBuku.Source = "SELECT * FROM TBuku ORDER BY NoInvBuku ASC" cariBuku.CursorType = 0 cariBuku.CursorLocation = 2 cariBuku.LockType = 1 cariBuku.Open() cariBuku_numRows = 0 %>