|
|
 |
| |
 |
|
|
| |
<%
set rs=Server.CreateObject("Adodb.Recordset")
Query="select * from Neptune where id=1"
rs.cursorlocation=3
Rs.open Query,conn
maxID=Rs.RecordCount
rs.close
Query="select * from Neptune order by ID,FloorType"
rs.open query,conn
%>
| |
Available |
| |
Booked |
| |
Reserved |
|
| |
| |
<%
set rs2=Server.CreateObject("Adodb.Recordset")
Query="select * from neptune where id=1"
rs2.cursorlocation=3
rs2.open Query,conn
maxID=rs2.RecordCount
rs2.close
Query="select * from neptune order by ID,FloorType"
rs2.open query,conn
%>
|
| Floor |
A
1610 sq.ft. |
B
1545 sq.ft. |
<%
cnt=0
while not rs2.eof
if cnt=0 then
%>
| <%=rs2("floor")%> |
<% end if
if rs2("status")=1 then
color="#F78531"
elseif rs2("status")=0 then
color="#ACCE8A"
elseif rs2("status")=2 then
color="#92D6FA"
elseif rs2("status")=3 then
color="##000000"
end if
%>
<%=rs2("floortype")%> |
<%
cnt=cnt+1
if cnt=maxID then %>
<%
cnt=0
end if %>
<%
rs2.movenext
wend
rs2.close
set rs2=nothing
%>
|
|
|
|
|
| |
|
|