<TABLE cellSpacing=0 cellPadding=0 width=760 background=images/party_bg.gif border=0 height="120" style="border-collapse: collapse">
  <TR>
    <TD width=96><IMG src="images/party_1.jpg" border=0></TD>
    
    <TD align=middle width=160>
      <TABLE height=106 cellSpacing=0 cellPadding=0 width=160 background=images/party_bg1.gif border=0>
        <TR>
          <TD align=middle>
            <TABLE cellSpacing=0 cellPadding=0 width=147 border=0>
              <TR>
                <TD align=middle height=24><a href="site_city.asp?ct=<%=mycity%>" style="font-size: 10pt; color: #FF5050; font-weight: bold">城市資訊</a></TD></TR>
              <TR>
                <TD height=78 align="center">
                <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="147"><%set rs=server.CreateObject("adodb.recordset")
rs.open "select top 3 * from xinxi where 審核=-1 and 城市='"& mycity &"' order by 推薦指數 desc",conn,1,1
if rs.recordcount=0 then 
  response.write ( "<tr><td align='center'>暫時沒有資訊<br><a style='color:red' href='add_zx.asp'>&gt;&gt;添加資訊&lt;&lt;</a></td></tr>")
else
  cti=1
  Do while not rs.eof
    response.write ("<tr><td><font color=#FF0000>·</font><a alt='查看〖"&rs("名稱")&"〗的詳細信息' href=javascript:openScript('xinxi.asp?id="&rs("編號")&"',530,400)>" &left(rs("名稱"),16)&"</a></td></tr>")
    rs.movenext
    if cti=3 then
      exit do
    end if
    cti=cti+1 
  Loop
  response.write ("<tr><td align='right' width='147'><a href='site_city.asp?ct="& mycity &"'>&gt;&gt;更多</a></td></tr>")
end if
rs.close
set rs=nothing
%>                 </table>
                </TD></TR>
              </TABLE>
          </TD>
        </TR>
      </TABLE>
    </TD>  
      
    <TD width=6></TD>
    
    <TD align=middle width=160>
      <TABLE height=106 cellSpacing=0 cellPadding=0 width=160 background=images/party_bg1.gif border=0>
        <TR>
          <TD align=middle>
            <TABLE cellSpacing=0 cellPadding=0 width=147 border=0>
              <TR>
                <TD align=middle height=24><a href="site_cityparty.asp?ct=<%=mycity%>" style="font-size: 10pt; color: #0066CC; font-weight: bold">聚會聯誼</a></TD></TR>
              <TR>
                <TD height=78>
                  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="147">
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select top 3 * from party where 審核=-1 and 城市='"& mycity &"' order by 編號 desc",conn,1,1
if rs.recordcount=0 then 
  response.write ( "<tr><td align='center'>暫時沒有聚會<br><a style='color:red' href='add_party.asp'>&gt;&gt;添加聚會&lt;&lt;</a></td></tr>")
else
  Do while not rs.eof
    response.write ("<tr><td><font color=#FF0000>·</font><a alt='查看〖"&rs("名稱")&"〗的詳細信息' href=javascript:openScript('party.asp?id="&rs("編號")&"',530,400)>" &left(rs("名稱"),9)&"...</a></td></tr>")
    rs.movenext
  Loop
  response.write ("<tr><td align='right' width='147'><a href='site_cityparty.asp?ct="& mycity &"'>&gt;&gt;更多</a></td></tr>")
end if
rs.close
set rs=nothing
%>                  
                  </table>
                </TD></TR>
              </TABLE>
          </TD>
        </TR>
      </TABLE>
    </TD>
    
    <TD width=6></TD>
    
    <TD align=middle width=160>
      <TABLE height=106 cellSpacing=0 cellPadding=0 width=160 background=images/party_bg1.gif border=0>
        <TR>
          <TD align=middle>
            <TABLE cellSpacing=0 cellPadding=0 width=147 border=0>
              <TR>
                <TD align=middle height=24><a href="site_citybook.asp?ct=<%=mycity%>" style="font-size: 10pt; color: #008000; font-weight: bold">城市留言</a></TD></TR>
              <TR>
                <TD height=78 align="center">
                <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse"><%
set rspl=server.CreateObject("adodb.recordset")
rspl.open "select top 3 * from citybook where 城市區號='" & mycity &"' order by 編號 desc",conn,1,1
if rspl.recordcount=0 then 
  response.write ( "<tr><td align='center'>暫時沒有留言<br><a style='color:red' href='site_citybook.asp?ct="&mycity&"'>&gt;&gt;我要留言&lt;&lt;</a></td></tr>")
else
  Do while not rspl.eof
    response.write ("<tr><td><font color=#FF0000>·</font><a href='site_citybook.asp?ct="&mycity&"'>" &left(rspl("發言內容"),9) &"...</a></td></tr>")
  rspl.movenext
  Loop
  response.write ("<tr><td align='right' width='147'><a href='site_citybook.asp?ct="& mycity &"'>&gt;&gt;更多</a></td></tr>")
end if
rspl.close
set rspl=nothing%></table></TD></TR>
              </TABLE>
          </TD>
        </TR>
      </TABLE>
    </TD>
    
    <TD width=6></TD>
    <TD align=middle width=160>
      <TABLE height=106 cellSpacing=0 cellPadding=0 width=160 background=images/party_bg1.gif border=0>
        <TR>
          <TD align=middle>
            <TABLE cellSpacing=0 cellPadding=0 width=147 border=0>
              <TR>
                <TD align=middle height=24 style="font-size: 10pt; color: #9966FF; font-weight: bold">
                幫助中心</TD></TR>
              <TR>
                <TD height=78>·歡迎使用資訊評論功能<br>
                ·城市聚會聯誼開通<br>
                ·城市留言已開通</TD></TR>
              </TABLE>
          </TD>
        </TR>
      </TABLE>
    </TD>
    
    <TD width=6></TD>
    
  </TR>
</TABLE>