%@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 %>
|
||||||||||||
![]() |
||||||||||||
|
||||||||||||
Risctech Brasil ® 2007 - Todos os direitos reservados |
||||||||||||