%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim pesquisa Dim pesquisa_numRows Set pesquisa = Server.CreateObject("ADODB.Recordset") pesquisa.ActiveConnection = MM_conexao_internet_STRING pesquisa.Source = "SELECT * FROM Serviços_Site ORDER BY Nome_Serviço ASC" pesquisa.CursorType = 0 pesquisa.CursorLocation = 2 pesquisa.LockType = 1 pesquisa.Open() pesquisa_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 pesquisa_numRows = pesquisa_numRows + Repeat1__numRows %>
|
||||||||||||||||||||||||
® 2008 - TreVizaM INFORMÁTICA - Todos os direitos foram reservados - Setor responsável Desenho Virtual.com |
||||||||||||||||||||||||
![]() |