<%
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
conn.Open = "DRIVER={SQL Server};SERVER=64.187.103.247;DSN=sungrac_nbr;UID=sungrac_nbrdev;PWD=nbr123;DATABASE=sungrac_nbrdev"
%>
Please click on the drop down list to view site sizes.
Sites Availability Chart in NBR Meadows - Hosur
Site Dimension: <%=sites%>
Area (sft)
Plot Numbers
Site Size
Status
<%
strsql="select * from tbl_nbr_project_availability where project_name='nbr_Meadows' and dimension='"&sites&"'"
rs.open strsql,conn
do until rs.eof=true
if rs("avail_status")="Available" then
fcolor="#FFFFFF"
end if
if rs("avail_status")="Blocked" then
fcolor="#68F908"
end if
if rs("avail_status")="Booked" then
fcolor="#FE8402"
end if
if rs("avail_status")="Sold" then
fcolor="#FE0202"
end if
if rs("avail_status")="Villa Under Construction" then
fcolor="#FEFB02"
end if
'Available : FFFFFF
'Blocked : 68F908
'Booked : FE8402
'Sold : FE0202
'Villa Under Construction : FEFB02
%>