<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% dim MM_editAction messagetext = "" MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) if (Request.QueryString <> "") then MM_editAction = MM_editAction & "?" & Request.QueryString end if %> <% dim ct dim rs dim sql sql = "SELECT * FROM MLS WHERE office_name LIKE 'NORTH SAN ANTONIO REALTY' ORDER BY subdivision" set rs=Server.CreateObject("ADODB.recordset") rs.ActiveConnection = MM_conn_STRING rs.Source = sql rs.CursorType = 3 rs.CursorLocation = 2 rs.LockType = 3 rs.Open %> <% rs.Close Set rs = Nothing %>

home \ search homes \ our listings OUR LISTINGS     <%Response.Write(rs.RecordCount)%> homes