<% propertyid=updatepass Dim SQLString idthing=Request.querystring("property") idthing=idthing-1 SQLString = "SELECT TOP 120 * FROM kcities where kcities.city="&_ chr(39) & Request.QueryString("city") & chr(39) SQLString=SQLString & " AND kcities.state="&_ chr(39) & Request.QueryString("state") & chr(39) SQLString=SQLString & " order by kcities.propname" if not Request.QueryString("lastletter")="" then SQLString = "SELECT TOP 120 * FROM kcities where kcities.propname >"&_ chr(39) & Request.QueryString("lastletter") & chr(39) SQLString=SQLString & " AND kcities.city="&_ chr(39) & Request.QueryString("city") & chr(39) SQLString=SQLString & " order by kcities.propname" displayprevious="yes" end if if not Request.QueryString("prevletter")="" then SQLString = "SELECT TOP 120 * FROM kcities where kcities.propname <"&_ chr(39) & Request.QueryString("prevletter") & chr(39) SQLString=SQLString & " AND kcities.city="&_ chr(39) & Request.QueryString("city") & chr(39) SQLString=SQLString & " order by kcities.propname" end if %> <% Set DatabaseConnection = Server.CreateObject("ADODB.Connection") DatabaseConnection.Open "DSN=apartmentcomps", "dsanchez", "ds153x" Set UserRecordset = Server.CreateObject("ADODB.Recordset") UserRecordset.Open SQLString, DatabaseConnection Set objUserRecordid = UserRecordset("Recordid") Set objUserpropname = UserRecordset("propname") Set objUserstreet = UserRecordset("street") Set objUsercity = UserRecordset("city") Set objUsermsa = UserRecordset("msa") Set objUserstate = UserRecordset("state") Set objUserzip = UserRecordset("zip") Set objUserNumUnits = UserRecordset("NumUnits") Set objUserAge = UserRecordset("Age") Set objUserAreaCode = UserRecordset("AreaCode") Set objUserPhone1 = UserRecordset("Phone1") If UserRecordset.EOF Then comps="0" %>
Your search resulted in no properties.

Thank you.
<% else %> <%=objusercity%> apartments and other <%=objusercity%> rentals & apartments in (<%=objusermsa%>)

Apartments for rent in <%=objusercity%>, <%=objuserstate%>
<% Function RandomNumber(intHighestNumber) Randomize RandomNumber = Int(Rnd * intHighestNumber) + 1 End Function randomthis=(randomNumber(6)) if randomthis=1 or randomthis=3 then %> <%=objusercity%> apartment locating is easy with homes-apartments.com. We can help you rent an apartment community in <%=objusercity%> and throughout <%=objusermsa%> that you will love to call home. We want you to find the perfect rental floorplans and amenities you want. Owners and managers want your business and look forward to working with you in completing your apartment hunting goals. We want your search for apartment rentals in <%=objusermsa%> and <%=objusercity%> to be enjoyable. <% end if if randomthis=2 or randomthis=4 then %> We know that often times finding a new place to live can be a stressful undertaking. In addition to our free apartment finder services we have other useful resources that might make finding an apartment for rent in <%=city%> easier for you. If you don't find what you are looking for here then please ask one of our <%=city%> apartment locating agents for assistance <%end if%>


<% msa=objusermsa '-----------------start form SQLString = "SELECT * FROM kdealsha where kdealsha.msa=" &_ chr(39) & msa & chr(39) Set DatabaseConnection = Server.CreateObject("ADODB.Connection") DatabaseConnection.Open "DSN=apartmentcomps", "dsanchez", "ds153x" Set kdealRecordset = Server.CreateObject("ADODB.Recordset") kdealRecordset.Open SQLString, DatabaseConnection Set objKdealmsa = kdealRecordset("msa") Set objKdealsubjectcity = kdealRecordset("subjectcity") set objKdealemail=kdealrecordset("email") set objKdealother=kdealrecordset("other") set objKdealsourceid=kdealrecordset("sourceid") If not kdealRecordset.EOF then %>
Fill out this questionaire to get free help in finding the perfect <%=city%> community
City moving to:REQUIRED
Area of city:
Your Email Address: REQUIRED:

First Name: REQUIRED:
Last Name: REQUIRED:
Your Street Address:
City:
State:
Zip:
Day Phone: REQUIRED:
Cell or Home phone:
Date of move
Date to visit:
Price range:
Bedrooms Needed:
Special Needs:
We have helped over two million people with their rental housing needs. We are more than an internet apartment assistant, we offer personalized service to help find the right apartment in <%=objusercity%>. Our trained real estate agents are ready seven days a week in <%=objusercity%>. Let us do the work for you. Use our Photo Gallery to learn more about area apartments and to narrow down the choices you would like to make. <% kdealrecordset.close else if objusermsa="Dallas" then link="dallas_tx" number=1060 end if if objusercity="Dalllas" then link="dallas_tx" number=1060 end if if objusercity="Allen" then link="arlington_tx" number=1060 end if if objusercity="Balch Springs" then link="irving_tx" number=1060 end if if objusercity="Bedford" then link="irving_tx" number=1060 end if if objusercity="Benbrook" then link="irving_tx" number=1060 end if if objusercity="Burlson" then link="irving_tx" number=1060 end if if objusercity="Cedar Hills" then link="irving_tx" number=1060 end if if objusercity="Coppell" then link="irving_tx" number=1060 end if if objusercity="Denton" then link="irving_tx" number=1060 end if if objusercity="Duncanville" then link="irving_tx" number=1060 end if if objusercity="Euless" then link="irving_tx" number=1060 end if if objusercity="Flower Mound" then link="irving_tx" number=1060 end if if objusercity="Fort Worth" then link="irving_tx" number=1060 end if if objusercity="Grand Prairie" then link="irving_tx" number=1060 end if if objusercity="Grapevine" then link="irving_tx" number=1060 end if if objusercity="Haltom City" then link="irving_tx" number=1060 end if if objusercity="Hurst" then link="irving_tx" number=1060 end if if objusercity="Irving" then link="irving_tx" number=1060 end if if objusercity="Lewisville" then link="irving_tx" number=1060 end if if objusercity="Richland Hills" then link="irving_tx" number=1060 end if if objusercity="Rockwell" then link="irving_tx" number=1060 end if if objusercity="Saginaw" then link="irving_tx" number=1060 end if if objusermsa="Los Angeles" then link=43 number=429 end if if objusermsa="Austin" then link=4 number=285 end if if objusermsa="Nashville" then link="nashville_tn" number=119 end if if objusermsa="Orlando" then link=23 number=281 end if if objusercity="Miami" then link=17 number=300 end if if objusercity="Fort Lauderdale" then link=18 number=200 end if if objusermsa="Atlanta" then link="atlanta_ga" number=665 end if if objusermsa="Portland" then link="portland_or" number=306 end if if objusermsa="Houston" then link="houston_tx" number=441 end if if objusermsa="Riverside" then link=42 number=157 end if if objusermsa="San Diego" then link=46 number=441 end if if objusermsa="Phoenix" then link=10 number=609 end if if objusermsa="Tampa" then link=20 number=439 end if if objusermsa="Jacksonville" then link="jacksonville_fl" number=245 end if if objusermsa="Charlotte" then link="charlotte_nc" number=221 end if if objusermsa="Albuquerque" then link="albuquerque_nm" number=221 end if if objusermsa="Kansas City" then link="kansas-city_ks" number=300 end if if objusermsa="Seattle" then link="seattle_wa" number=600 end if if objusermsa="Las Vegas" then link="las-vegas_nv" number=200 end if if objusercity="Coconut Creek" then link="fort-lauderdale_fl" count=400 end if if objusercity="Coral Springs" then link="fort-lauderdale_fl" count=400 end if if objusercity="Dania Beach" then link="fort-lauderdale_fl" count=400 end if if objusercity="Davie" then link="fort-lauderdale_fl" count=400 end if if objusercity="Deerfield Beach" then link="fort-lauderdale_fl" count=400 end if if objusercity="Fort Lauderale" then link="fort-lauderdale_fl" count=400 end if if objusercity="Fort Lauderdale" then link="fort-lauderdale_fl" count=400 end if if objusercity="Hallandale" then link="fort-lauderdale_fl" count=400 end if if objusercity="Hollywood" then link="fort-lauderdale_fl" count=400 end if if objusercity="Lauderdale Lakes" then link="fort-lauderdale_fl" count=400 end if if objusercity="Lauderhill" then link="fort-lauderdale_fl" count=400 end if if objusercity="Margate" then link="fort-lauderdale_fl" count=400 end if if objusercity="Miramar" then link="fort-lauderdale_fl" count=400 end if if objusercity="North Lauderdale" then link="fort-lauderdale_fl" count=400 end if if objusercity="Oakland Park" then link="fort-lauderdale_fl" count=400 end if if objusercity="Parkland" then link="fort-lauderdale_fl" count=400 end if if objusercity="Pembroke Park" then link="fort-lauderdale_fl" count=400 end if if objusercity="Pembroke Pines" then link="fort-lauderdale_fl" count=400 end if if objusercity="Plantation" then link="fort-lauderdale_fl" count=400 end if if objusercity="Pompano Beach" then link="fort-lauderdale_fl" count=400 end if if objusercity="Sunrise" then link="fort-lauderdale_fl" count=400 end if if objusercity="Tamarac" then link="fort-lauderdale_fl" count=400 end if if objusercity="Weston" then link="fort-lauderdale_fl" count=400 end if if objusercity="Aventura" then link="miami_fl" count=400 end if if objusercity="Boca Raton" then link="palm-beach_fl" count=400 end if if objusercity="Boynton Beach" then link="palm-beach_fl" count=400 end if if objusercity="Delray Beach" then link="palm-beach_fl" count=400 end if if objusercity="Florida City" then link="miami_fl" count=400 end if if objusercity="Fort Pierce" then link="palm-beach_fl" count=400 end if if objusercity="Greenacres" then link="palm-beach_fl" count=400 end if if objusercity="Greenacres City" then link="palm-beach_fl" count=400 end if if objusercity="Hialeah" then link="miami_fl" count=400 end if if objusercity="Homestead" then link="miami_fl" count=400 end if if objusercity="Hypoluxo" then link="palm-beach_fl" count=400 end if if objusercity="Juno Beach" then link="palm-beach_fl" count=400 end if if objusercity="Jupiter" then link="palm-beach_fl" count=400 end if if objusercity="Lake Worth" then link="palm-beach_fl" count=400 end if if objusercity="Lantana" then link="palm-beach_fl" count=400 end if if objusercity="Miami" then link="miami_fl" count=400 end if if objusercity="Miami Beach" then link="miami_fl" count=400 end if if objusercity="Miami Lakes" then link="miami_fl" count=400 end if if objusercity="North Bay Village" then link="miami_fl" count=400 end if if objusercity="North Miami" then link="miami_fl" count=400 end if if objusercity="North Miami Beach" then link="miami_fl" count=400 end if if objusercity="North Palm Beach" then link="palm-beach_fl" count=400 end if if objusercity="Palm Beach Gardens" then link="palm-beach_fl" count=400 end if if objusercity="Palm City" then link="palm-beach_fl" count=400 end if if objusercity="Port Saint Lucie" then link="palm-beach_fl" count=400 end if if objusercity="Riviera Beach" then link="palm-beach_fl" count=400 end if if objusercity="Royal Palm Beach" then link="palm-beach_fl" count=400 end if if objusercity="Stuart" then link="palm-beach_fl" count=400 end if if objusercity="Sunny Isles Beach" then link="miami_fl" count=400 end if if objusercity="Tequesta" then link="palm-beach_fl" count=400 end if if objusercity="Village of Palm Springs" then link="palm-beach_fl" count=400 end if if objusercity="Wellington" then link="palm-beach_fl" count=400 end if if objusercity="West Palm Beach" then link="palm-beach_fl" count=400 end if %> Start your search here. <% end if '-----end form %>


<%=objusercity%> apartments
and rentals throughout the <%=objusermsa%> area:
<% Do Until UserRecordset.EOF x=x+1 city=objusercity msa=objusermsa state=objuserstate %> <%=objuserpropname%>
<% if x=11 then %>
<% end if if x=21 then %> <% end if if x=31 then %> <% end if if x=41 then %>
<% end if if x=51 then %> <% end if if x=61 then %> <% end if if x=71 then %> <% end if if x=81 then %>
<% end if if x=91 then %> <% end if if x=101 then %> <% end if if x=111 then %> <% end if if x=121 then %>
<% end if if x=131 then %> <% end if if x=141 then %> <% end if if x=151 then %> <% end if if x=161 then %>
<% end if id=objuserrecordid city=objusercity state=objuserstate propertyname=objuserpropname lastletter=left(propertyname, 4) UserRecordset.MoveNext Loop %>
<% userrecordset.close set userrecordset = nothing DatabaseConnection.Close set databaseconnection = nothing end if 'end if if x>119 and not displayprevious="yes"then %> Next page of apts in <%=city%> >>> <% end if if displayprevious="yes" and not x<120 then %>
<<< Previous page of apts in <%=city%> Next page of apts in <%=city%> >>>
<% end if if x<119 and displayprevious="yes"then %> <<< Back to the first page of apts in <%=city%> <% end if %>



<% Function RandomNumber(intHighestNumber) Randomize RandomNumber = Int(Rnd * intHighestNumber) + 1 End Function randomthis=(randomNumber(6)) if randomthis=1 or randomthis=3 then %> less than $500 $550 less than $600 $650 less than $700 $750 less than $800 $850 $ 900 $950 $1000 $1050 $1100 $1150 Frost-Free Refrigerators Linen Closets Mini And Vertical Blinds Smoke Detectors Wall-To-Wall Carpeting Air Conditioning Ceiling Fan High Speed Internet Find out more Community Features 24-Hour Emergency Maintenance Barbecue Area With Grills Business And Media Center On-Site Management Playground And Clubhouse Professionally Landscaped Grounds Two Clothes Care Centers Two Swimming Pools Bus/Public Trans Cable TV Available Fitness Center Large Dogs Allowed Laundry Facility Pool colony <%=city%> springs village country club lakes point pointe square villas river ridge place
<% end if%> View apartments for rent in other suburbs of <%=msa%>, <%=state%>
homes apartments home page