%@LANGUAGE="VBSCRIPT" %> <% Dim rsCustomer Dim rsCustomer_numRows 'Set rsCustomer = Server.CreateObject("ADODB.Recordset") 'rsCustomer.ActiveConnection = MM_conn_STRING 'rsCustomer.Source = "SELECT * FROM tblnews WHERE CatID = '1' AND Status = '1'" 'rsCustomer.CursorType = 0 'rsCustomer.CursorLocation = 2 'rsCustomer.LockType = 1 'rsCustomer.Open() 'rsCustomer_numRows = 0 %> <% Dim rsPartner Dim rsPartner_numRows 'Set rsPartner = Server.CreateObject("ADODB.Recordset") 'rsPartner.ActiveConnection = strAccessConn 'rsPartner.Source = "SELECT * FROM tblnews WHERE CatID = '2' AND Status = '1'" 'rsPartner.CursorType = 0 'rsPartner.CursorLocation = 2 'rsPartner.LockType = 1 'rsPartner.Open() 'rsPartner_numRows = 0 %> <% Dim rsSupport Dim rsSupport_numRows 'Set rsSupport = Server.CreateObject("ADODB.Recordset") 'rsSupport.ActiveConnection = MM_conn_STRING 'rsSupport.Source = "SELECT * FROM tblnews WHERE CatID = '3' AND Status = '1'" 'rsSupport.CursorType = 0 'rsSupport.CursorLocation = 2 'rsSupport.LockType = 1 'rsSupport.Open() 'rsSupport_numRows = 0 %>