|
|
<%
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%> |
|
|
|
|
|
<%
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
%>
<%=rs("dimension")%> |
<%=rs("site_no")%> |
<%=rs("site_size")%> |
<%=rs("avail_status")%> |
<%
rs.movenext
loop
rs.close()%>
|
