<%@language="vbscript"%>
<%
build_id=request.querystring("buildingID")
bedrooms=request.querystring("bedrooms")
set wredb=server.createobject("ADODB.connection")
wredb.open "wrebuild"
sql="select * from floorplans where build_id="&build_ID&" and bedrooms="&bedrooms&""
set infoset=wredb.execute(sql)
sql2="select * from buildings where build_id="&build_ID&""
set buildset=wredb.execute(sql2)
%>
<%
if bedrooms=0 then
response.write "Sample Studios"
end if
if bedrooms=1 then
response.write "Sample One Bedrooms"
end if
if bedrooms=2 then
response.write "Sample Two Bedrooms"
end if
if bedrooms=3 then
response.write "Sample Three Bedrooms"
end if
if bedrooms=4 then
response.write "Sample Four Bedrooms"
end if
%> at <%response.write buildset("address")%>
<%
if infoset.eof then
response.write "No samples available, please contact the leasing office."
else
while not infoset.eof
%>
">
<% infoset.movenext
wend
%><%
end if
%><%
infoset.close
set infoset=nothing
buildset.close
set buildset=nothing
wredb.close
set wredb=nothing
%>