<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Set fs = CreateObject("Scripting.FileSystemObject")
Dim bairro
Dim bairro_numRows
Set bairro = Server.CreateObject("ADODB.Recordset")
bairro.ActiveConnection = MM_conexao_STRING
bairro.Source = "SELECT distinct ds_bairro FROM imovel WHERE sn_aluguel=1 ORDER BY ds_bairro"
bairro.CursorType = 1
bairro.CursorLocation = 2
bairro.LockType = 1
bairro.Open()
bairro_numRows = 0
%>
Untitled Document
