Welcome to CFS Properties

<% Option Explicit %> Welcome to CFS Properties

A Real Estate Investment, Management, and Brokerage Company

Available Homes

Sample Lease

Lease Application

Home

Available Homes

<% Select Case UCase(Request.QueryString("Action")) Case "DETAILS" Call DisplayDetails(CLng(Request.QueryString("pkID"))) Case Else Call ListHomes() End Select %>

<% Sub ListHomes Dim objDatabase, rsTemp Set objDatabase = CreateObject("Webexcellence.Database") Set rsTemp = CreateObject("ADODB.RecordSet") objDatabase.ConnectionString = Application("dbConn") Set rsTemp = objDatabase.RunSPReturnRS("spRentalPropertiesSELAll") Dim PropertyID, PropertyName Set PropertyID = rsTemp("pkPropertyID") Set PropertyName = rsTemp("PropertyName") If rsTemp.eof Then Response.Write ("

No properties were found.

") Else %> <% Do While Not rsTemp.eof %> <% rsTemp.moveNext Loop %>

<%= PropertyName%>

<% End If rsTemp.Close Set rsTemp = Nothing Set objDatabase = Nothing End Sub Sub DisplayDetails(ID) Dim objDatabase, rsTemp Set objDatabase = CreateObject("Webexcellence.Database") Set rsTemp = CreateObject("ADODB.RecordSet") objDatabase.ConnectionString = Application("dbConn") Set rsTemp = objDatabase.RunSPReturnRS("spPropertySEL", objDatabase.makeParam("@PropertyID", "String", ID)) Dim PropertyName, Location, YearBuilt, SquareFootage, NumBedrooms, NumBathrooms, Description, Image1, Image2 If NOT rsTemp.EOF Then PropertyName = rsTemp("PropertyName") Location = rsTemp("Location") YearBuilt = rsTemp("YearBuilt") SquareFootage = rsTemp("SquareFootage") NumBedrooms = rsTemp("NumBedrooms") NumBathrooms = rsTemp("NumBathrooms") Description = rsTemp("Description") Image1 = rsTemp("Image1") Image2 = rsTemp("Image2") End If rsTemp.Close Set rsTemp = Nothing %>

<%=PropertyName%>

<% If Location <> "" Then Response.Write(Location & "
") End If If YearBuilt <> "" Then Response.Write("Year Built: " & YearBuilt & "
") End If If SquareFootage <> "" Then Response.Write("Square Footage: " & SquareFootage & "
") End If If NumBedrooms <> "" Then Response.Write("Number of Bedrooms: " & NumBedrooms & "
") End If If NumBathrooms <> "" Then Response.Write("Number of Bathrooms: " & NumBathrooms & "
") End If If Description <> "" Then Response.Write(Replace(Description, vbCrLf, "
") & "
") End If %>
<% Dim filesys Set filesys = CreateObject("Scripting.FileSystemObject") If filesys.FileExists(Server.MapPath("photos/" & Image1)) Then Response.Write("
") End If If filesys.FileExists(Server.MapPath("photos/" & Image2)) Then Response.Write("") End If %>

<% End Sub %>