<% Dim oConn, RecEditText, fldCur, PropertyID, SQL Set oConn = server.createobject("ADODB.Connection") oConn.Open Application("ConnStrHome") PropertyID = Trim(Request.QueryString("PropertyID")) Set RecEditText = Server.CreateObject("ADODB.Recordset") Set fldCur = Server.CreateObject ("Scripting.Dictionary") If PropertyID <> "" Then SQL = "SELECT * FROM Property WHERE PropertyID = "&PropertyID&" " 'SQL = "FROM PropertyType INNER JOIN Property ON PropertyType.PropertyID = Property.PropertyID " RecEditText.Open SQL, oConn If Not RecEditText.EOF Then For Each fld in RecEditText.Fields fldCur(fld.Name) = RecEditText(fld.Name) Next End If RecEditText.Close Set RecEditText = Nothing End If %> <% Function AddBrToCrLf(strInput) If Trim(strInput) <> "" Then AddBrToCrLf = Replace(strInput, vbCrLf, "
" & vbCrLf) Else AddBrToCrLf = strInput End If End Function %>

HOME COMPANY SERVICES PEOPLE LISTINGS SINGAPORE TIPS & POINTS RESOURCES CONTACT

For Sale:  Select One <% Dim RecType, SQLType, PropertyTypeName, SaleRent Set RecType = Server.CreateObject("ADODB.Recordset") SQLType = " SELECT * FROM PropertyType WHERE SaleRent='Sale' Order by PropertyTypeID ASC " RecType.Open SQLType, oConn, 3, 3, 1 If Not RecType.EOF Then%> <%Do While Not RecType.EOF%> <%If fldCur("PropertyTypeID") = RecType("PropertyTypeID") Then SaleRent = RecType("SaleRent") End If %> &SaleRent=Sale"><%=RecType("PropertyTypeName")%> <% RecType.MoveNext Loop End If RecType.Close %> View all For Rent:  Select One <% Set RecType = Server.CreateObject("ADODB.Recordset") SQLType = " SELECT * FROM PropertyType WHERE SaleRent='Rent' Order by PropertyTypeID ASC " RecType.Open SQLType, oConn, 3, 3, 1 If Not RecType.EOF Then%> <%Do While Not RecType.EOF%> <%If fldCur("PropertyTypeID") = RecType("PropertyTypeID") Then SaleRent = RecType("SaleRent") End If %> &SaleRent=Rent"><%=RecType("PropertyTypeName")%> <% RecType.MoveNext Loop End If RecType.Close %> View all   Property for <%=SaleRent%>: <%=fldCur("Name")%>     <% If PropertyID = "" Then %> <%Else%> <%End If%> No Records <% If PropertyID <> "" Then Dim RecImage, SQLImage Set RecImage = Server.CreateObject("ADODB.Recordset") SQLImage = " SELECT * FROM Images WHERE PropertyID = "&PropertyID&"" RecImage.Open SQLImage, oConn, 3, 3, 1 If Not RecImage.EOF Then %> <% End If RecImage.Close Set RecImage = Nothing End If %> <% Do While Not RecImage.EOF %> <% RecImage.MoveNext Loop %> /<%=RecImage("ImageFile")%>">/<%=RecImage("ImageFile")%>" alt="Click To Enlarge <%=RecImage("Caption")%>" name="<%=RecImage("Caption")%>" width="200" height="150" border="0" id="<%=RecImage("Caption")%>" /> <%=RecImage("Caption")%>   <%If fldCur("Location") <> "" Then%> <%End If%> <%If fldCur("District") <> "" Then%> <%End If%> <%If fldCur("Tenure") <> "" Or fldCur("SaleRent") <> "Rent" Then%> <%End If%> <%If fldCur("YearCompleted") <> "" Then%> <%End If%> <%If fldCur("Units") <> "" Or fldCur("SaleRent") <> "Rent" Then%> <%End If%> <%If fldCur("Price") <> "" Then%> <%End If%> <%If fldCur("Utility") <> "" Then%> <%End If%> <%If fldCur("Balcony") <> "" Or fldCur("SaleRent") <> "Rent" Then%> <%End If%> <%If fldCur("Facilites") <> "" Then%> <%End If%> Project :  <%=fldCur("Name")%> Type :  <% If PropertyID <> "" Then Set RecType = Server.CreateObject("ADODB.Recordset") SQLType = "SELECT * FROM PropertyType WHERE PropertyTypeID = "&fldCur("PropertyTypeID")&"" RecType.Open SQLType, oConn If Not RecType.EOF Then %> <%=RecType("PropertyTypeName")%> <%If RecType("SaleRent") <> "" Then%>(For <%=RecType("SaleRent")%>)<%End If%> <% End If RecType.Close End If Set RecType = Nothing %> Location :  <%=fldCur("Location")%> District :  <%=fldCur("District")%> Tenure :  <%=fldCur("Tenure")%> Year completed :  <%=fldCur("YearCompleted")%> No. of units :  <%=fldCur("Units")%>     Price (SGD) :  <%=fldCur("Price")%> Size (sqft) :  <%=fldCur("Size")%> Bedrooms :  <%=fldCur("Bedrooms")%> Bathrooms :  <%=fldCur("Bathrooms")%> Utility :  <%=fldCur("Utility")%> Balcony :  <%=fldCur("Balcony")%> Facilites :  <%=fldCur("Facilites")%> Email: <%If fldCur("Email") <> "" Then%>"><%=fldCur("Email")%><%Else%>enquiries@homeequity.com.sg<%End If%>    <%If fldCur("Tel") <> "" Then%>Tel: <%=fldCur("Tel")%><%End If%> Project Details <%=AddBrToCrLf(fldCur("ProjectDetails"))%> Please <%If fldCur("SaleRent") = "Rent" Then%>contact us<%Else%>contact us<%End If%> for more information.

Copyright © 2008 Home Equity (Singapore) Pte Ltd, All Rights Reserved. | Contact

<% oConn.close Set oConn = Nothing %>