%@LANGUAGE="VBSCRIPT"%> <% Dim rsPublishers Dim rsPublishers_numRows Set rsPublishers = Server.CreateObject("ADODB.Recordset") rsPublishers.ActiveConnection = MM_connSBR_STRING rsPublishers.Source = "SELECT * FROM tblPublishersReviewed ORDER BY tPublisher ASC" rsPublishers.CursorType = 0 rsPublishers.CursorLocation = 2 rsPublishers.LockType = 1 rsPublishers.Open() rsPublishers_numRows = 0 %> <% Dim rsReviewers Dim rsReviewers_numRows Set rsReviewers = Server.CreateObject("ADODB.Recordset") rsReviewers.ActiveConnection = MM_connSBR_STRING rsReviewers.Source = "SELECT * FROM tblReviewers ORDER BY tReviewerSurname ASC" rsReviewers.CursorType = 0 rsReviewers.CursorLocation = 2 rsReviewers.LockType = 1 rsReviewers.Open() rsReviewers_numRows = 0 %> <% Dim rsAuthors Dim rsAuthors_numRows Set rsAuthors = Server.CreateObject("ADODB.Recordset") rsAuthors.ActiveConnection = MM_connSBR_STRING rsAuthors.Source = "SELECT * FROM tblAuthorsReviewed ORDER BY tAuthorSurname ASC" rsAuthors.CursorType = 0 rsAuthors.CursorLocation = 2 rsAuthors.LockType = 1 rsAuthors.Open() rsAuthors_numRows = 0 %>
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||