<%@LANGUAGE="VBSCRIPT"%> <% Dim rs_agentpic Dim rs_agentpic_numRows Set rs_agentpic = Server.CreateObject("ADODB.Recordset") rs_agentpic.ActiveConnection = MM_apic_STRING rs_agentpic.Source = "SELECT APic, AName, ATele, AEmail FROM homelistings" rs_agentpic.CursorType = 0 rs_agentpic.CursorLocation = 2 rs_agentpic.LockType = 1 rs_agentpic.Open() rs_agentpic_numRows = 0 %> <% Dim rrSource_rs_agentpic, rrRecCount_rs_agentpic, re_rs_agentpic Set re_rs_agentpic = New regexp re_rs_agentpic.Pattern = "SELECT (.*) FROM " re_rs_agentpic.Global = False re_rs_agentpic.IgnoreCase = True rrSource_rs_agentpic="Select Count(*) as RecCount From " & re_rs_agentpic.Replace(rs_agentpic.Source,"") rrRecCount_rs_agentpic=CInt(rs_agentpic.ActiveConnection.Execute(rrSource_rs_agentpic)("RecCount")) Set rrSource_rs_agentpic = Nothing Set re_rs_agentpic = Nothing %> Credent Real Estate
 

 

 

Search MLS Properties:
Click Here

Want a Free list of Foreclosure Properties-
Bank Owned-Auctions-Trustee Sales.., sent to you:

Click Here.