%@LANGUAGE="VBSCRIPT"%> <% Dim geral1 Dim geral1_numRows Set geral1 = Server.CreateObject("ADODB.Recordset") geral1.ActiveConnection = MM_greeng_STRING geral1.Source = "SELECT materia FROM conteudo WHERE categoria1='guias' ORDER BY id DESC" geral1.CursorType = 0 geral1.CursorLocation = 2 geral1.LockType = 1 geral1.Open() geral1_numRows = 0 %>