%@LANGUAGE="VBSCRIPT"%> <% Dim rsProdutos Dim rsProdutos_numRows Set rsProdutos = Server.CreateObject("ADODB.Recordset") rsProdutos.ActiveConnection = MM_conRisctech_STRING rsProdutos.Source = "SELECT Categoria FROM Produtos" rsProdutos.CursorType = 0 rsProdutos.CursorLocation = 2 rsProdutos.LockType = 1 rsProdutos.Open() rsProdutos_numRows = 0 %>