Welcome to CFS Properties

<% Option Explicit %> Welcome to CFS Properties

A Real Estate Investment, Management, and Brokerage Company

Program Overview

Residential Properties

Commercial Properties
FAQ's

Home

Commercial Properties

<% Call ListProperties(2) %>	Property Name 9795 Crosspoint Boulevard Indianapolis, IN 46256 4905 East 82nd Street Indianapolis, IN 46250 12821 East New Market Street Carmel, IN 46032 1482 Jason Road Greenfield, IN 12701 Meeting House Road Carmel, IN 46032 11711 North College Avenue Carmel, IN 46032

<% Sub ListProperties(TypeID) Dim objDatabase, rsTemp Set objDatabase = CreateObject("Webexcellence.Database") Set rsTemp = CreateObject("ADODB.RecordSet") objDatabase.ConnectionString = Application("dbConn") Set rsTemp = objDatabase.RunSPReturnRS("spPropertiesSELAll", objDatabase.makeParam("@PropertyTypeID", "Integer", TypeID)) 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 %>