
Apartments for rent in <%=objusercity%>,
<%=objuserstate%>
<%=objusercity%> apartments and rentals throughout the <%=objusermsa%> area:
|
<% end if%> View apartments for rent in other suburbs of <%=msa%>, <%=state%>
homes apartments home page
%
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
%>

Apartments for rent in <%=objusercity%>,
<%=objuserstate%>
<%=objusercity%> apartments and rentals throughout the <%=objusermsa%> area:
|