%@LANGUAGE="VBSCRIPT"%> <% Dim MembersRecords1 Dim MembersRecords1_numRows Set MembersRecords1 = Server.CreateObject("ADODB.Recordset") MembersRecords1.ActiveConnection = MM_connIVA_STRING MembersRecords1.Source = "SELECT * FROM members_list" MembersRecords1.CursorType = 0 MembersRecords1.CursorLocation = 2 MembersRecords1.LockType = 1 MembersRecords1.Open() MembersRecords1_numRows = 0 %>
|
||||||||||||||||||||||||