Register Online
Download Applications
Home Find A Rental How It Works List Your Rental Our Areas SIGN UP!
<%If request("Search") = 1 Then%> <%Else%> <%End If%>
Rental Listings
<% Set objConn = Server.CreateObject("ADODB.Connection") objConn.ConnectionString = "DRIVER={SQL Server};Server=mssql.plesklogin.net;UID=gcoluni;PWD=mohegan01;DATABASE=Rentals" Dim max, marker If request("max_price") = 0 Then max = "20000" End If objConn.Open Set rs = Server.CreateObject("ADODB.Recordset") SQL = "exec getRentals '" & request("area") & "','" & request("min_price") & "','" & max & "','" & request("bedrooms") & "','" & request("pets") & "'" rs.open SQL, objConn If rs.EOF Then %> <% Else marker = "0" While Not rs.EOF If marker = "0" Then %> <% marker = "1" Else %> <% marker = "0" End If rs.MoveNext Wend End If %>
Town Price BR BA Type Pets Utilities Lease
Sorry No Matching Rentals
<%response.write(rs("Town"))%> <%response.write(rs("Price"))%> <%response.write(rs("BR"))%> <%response.write(rs("BA"))%> <%response.write(rs("Type"))%> <%response.write(rs("Pets"))%> <%response.write(rs("Utilities"))%> <%response.write(rs("Lease"))%>
<%response.write(rs("Misc"))%>
<%response.write(rs("Comments"))%>
<%response.write(rs("Town"))%> <%response.write(rs("Price"))%> <%response.write(rs("BR"))%> <%response.write(rs("BA"))%> <%response.write(rs("Type"))%> <%response.write(rs("Pets"))%> <%response.write(rs("Utilities"))%> <%response.write(rs("Lease"))%>
<%response.write(rs("Misc"))%>
<%response.write(rs("Comments"))%>
 Property Search
Area:
Price:
to
Bedrooms:
Pets:

Sell My Property | Employment Opportunities | Contact Us
©2005 The Rental Network INC.®