Imobiliária Fernando Freitas

Imóveis

<% '**************************************************************************** '* XcClassifed Lite - (C)Copyright 1999-2000 - XCENT - www.xcent.com * '**************************************************************************** '* CONST APP_VERSION = "1.2" CONST APP_TITLE = "XcClassifiedLite" Set GobjConnect = server.createobject("ADODB.Connection") GobjConnect.open gsConnect Call DoPageHeader Call DeleteOldAds cSQL = "Select ID, CategoryName FROM categories ORDER BY CategoryName" Set Crs = GobjConnect.Execute(cSQL) Response.Write("") Response.Write("

Classified Categories

") Response.Write("

") Response.Write("") Response.Write("") TwoCols = True Do While Not Crs.eof Response.Write("") Crs.MoveNext If Crs.eof Then Response.Write("") Else Response.Write("") Crs.MoveNext End If Loop Response.Write("") Response.Write("
") Response.Write("Classifieds") Response.Write("
" & Crs.Fields("CategoryName") & " (" & CountAds(Crs.Fields("ID")) & ")") Response.Write("
") Response.Write("
" & Crs.Fields("CategoryName") & "(" & CountAds(Crs.Fields("ID")) & ")") Response.Write("
") Response.Write("
") Response.Write("Home") Response.Write("
") Call DoPageFooter Crs.Close Set Crs = Nothing Set GobjConnect = Nothing Function CountAds(CategoryID) caSQL = "" caSQL = caSQL & "SELECT COUNT(*) as Total FROM adcontent WHERE TopicID = " & SQLVal(CategoryID) Set rs = GobjConnect.Execute(caSQL) CountAds = rs.Fields("Total") rs.Close Set rs = Nothing End Function %>Escolha para qual fim deseja o imóvel

*Alugar *Comprar