<%@ Language=VBScript %>
<html>
<head>
<title>缘分的天空</title>
<link rel="stylesheet" href="../../images/css.css" type="text/css">
<meta NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
</head>
<body leftmargin="0" marginwidth="0" topmargin="0" marginheight="0">
<SCRIPT LANGUAGE=javascript>
//<!--
	function sss(URL)
	{
		newwin=window.open('','_blank','fullscreen=0,toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=0');
		if(document.all){
		newwin.moveTo(200,40 )
		newwin.resizeTo(400,400 );
		}
		newwin.location=URL
		newwin.focus();
	}

	
//-->
</SCRIPT>
<object runat="server" id="conn1" progid="adodb.connection"></object>
<%application.Lock
conn1.Open Application("p_jyzx")
Application.UnLock
%>
<!--#include file="top.asp" -->
<%
sql="select * from party where is_history=0 and "
'//////////直辖市
if request("zone")=1 then
sql=sql&"province in('北京','上海','天津','重庆')"
zone="直辖市"
'////东北地区
elseif request("zone")=2 then
sql=sql&"province in('黑龙江省','吉林省','辽宁省')"
zone="东北地区"	
'////华北地区
elseif request("zone")=3 then
sql=sql&"province in('河北省','内蒙古','山西省')"
zone="华北地区"
'////西北地区
elseif request("zone")=4 then
sql=sql&"province in('青海省','陕西省','甘肃省','新疆','宁夏')"
zone="西北地区"
'////华东地区
elseif request("zone")=5 then
sql=sql&"province in('浙江省','山东省','江苏省','安徽省','江西省','福建省')"
zone="华东地区"
'////华中地区
elseif request("zone")=6 then
sql=sql&"province in('河南省','湖北省','湖南省')"
zone="华中地区"
	
'////华南地区
elseif request("zone")=7 then
sql=sql&"province in('广东省','海南省','广西')"
zone="华南地区"
	'////西南地区
elseif request("zone")=8 then
sql=sql&"province in('贵州省','四川省','云南省','西藏')"
zone="西南地区"
	'////其它地区
elseif request("zone")=9 then
sql=sql&"province in('台湾省','香港','澳门','美国','加拿大','澳大利亚','欧洲','其它国家')"
zone="其它地区"
end if


%>


<% 
sql=sql&" order by province"
rows=1
	set rs=server.CreateObject ("ADODB.recordset")
  'sql="select * from party where is_history=0 and province='"&Request("province")&"'"
   
   rs.Open sql,conn1,3,2
	
	
%>
<table cellSpacing="0" cellPadding="0" width="770" align="center" border="0">
  <tbody>
  <tr>
    <td height="30">　<a href="../../default.asp">首页</a> -&gt; <a href="party_index.asp">网友聚会</a> -&gt; <%=zone%>地区聚会列表</td></tr>
  <tr>
    <td>
      <p align="center"><b><font color="#ff9933"><%=zone%>地区聚会列表</font></b></p>
      <table cellSpacing="1" width="100%" align="center" bgColor="#999999">
        <tbody>
        <tr>
          <td align="middle" width="30" bgColor="#ffcc00" height="23">&nbsp;</td>
          <td align="middle" bgColor="#ffcc00" height="23"><strong>聚会主题</strong></td>
          <td align="middle" bgColor="#ffcc00" height="23"><strong>发起人</strong></td>
          <td align="middle" bgColor="#ffcc00" height="23"><strong>所在省份</strong></td>
          <td align="middle" bgColor="#ffcc00" height="23"><strong>聚会地点</strong></td>
          <td align="middle" bgColor="#ffcc00" height="23"><strong>聚会时间</strong></td></tr>
  <%while not rs.EOF
     
  %> 
        
        <tr align="middle" bgColor="#ffffff">
          <td height="23"><%=rows%></td>
          <td><a href="party_2.asp?id=<%=rs("id")%>"><%=rs("party_name")%></a></td>
          <td height="23"><a href="../show_user.asp?user_name=<%=rs("initiate_people")%>" target="_blank"><%=rs("initiate_people")%></a></td>
          <td><%=rs("province")%> </td>
          <td><%=rs("address")%> </td>
          <td><%=rs("party_time")%></td></tr>
    <%
    rows=rows+1
    rs.MoveNext
    wend%>    
        </tbody></table></td></tr></tbody></table>
<hr width="100%" SIZE="1">


<!--#include file="../../copyright.asp" --></body>
</html>


