%@LANGUAGE="VBSCRIPT"%> <% Dim rsChiPupilwork Dim rsChiPupilwork_numRows Set rsChiPupilwork = Server.CreateObject("ADODB.Recordset") rsChiPupilwork.ActiveConnection = MM_cnChiPupilwork_STRING rsChiPupilwork.Source = "SELECT * FROM dispaly_pupil" rsChiPupilwork.CursorType = 0 rsChiPupilwork.CursorLocation = 2 rsChiPupilwork.LockType = 1 rsChiPupilwork.Open() rsChiPupilwork_numRows = 0 %>