<!--#include file="conn.asp"-->
<style type="text/css">
<!--
.aa {
font-size: 14px;
font-weight: bold;
background-color: #00CCFF;
font-family: "宋体";
}
.bb {
font-family: "宋体";
font-size: 12px;
}
-->
</style>
<%
set rs=Server.CreateObject("adodb.recordset")
rs.open "select * from Area",conn,1,1
%>
<table width="838" border="1" align="center">
<tr>
<td width="411"><font color="red">第一步：请选择你需要查询的商品的种类</font><p>第二步：请选择你需要查询的房产商

<p>第三步：请选择你需要的商品
</td>
<td width="411"> </td>
</tr>
</table>
<table width="838" border="1" align="center">
<tr>
<%
dim selclass

do while not rs.eof
selclass=rs("cq")
cols =cols +1
if cols >1 and cols mod 5 =1 then response.write "</tr><tr>"
%>
<td height="21" width="168" class="aa"><%=rs("cq")%><br>
<%
set rsc=Server.CreateObject("adodb.recordset")
rsc.open "select * from Around where cq ='" & selclass & "'",conn,1,1
do while not rsc.eof
dim SearchStr
SearchStr=""
%>
<input type="radio" name="zb" value="<%=rsc("zb")%>" class="bb"><%=rsc("zb")%><br>
<%
SearchStr = SearchStr &"&cq="&rs("cq")&"&zb="&rsc("zb")&"&checked="&true
%>
<%
rsc.movenext
loop
%>
</td>
<%
rs.movenext
loop
%>
</tr>
<tr bgcolor="#00CCFF"><td height="25" colspan="5" align="center"><a href="search_guide2.asp?<%=SearchStr%>">

下一步</a></td>
</tr>
</table>
<%
rsc.close
set rsc=nothing
rs.close
set rs=nothing
%>