<html>
<head>
<title>缘分的天空</title>
<link rel="stylesheet" href="../../images/css.css" type="text/css">
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</head>
<body leftmargin="0" marginwidth="0" topmargin="0" marginheight="0">
<p align="center"><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
%>
<%

if Session("weight")=0 then 
Response.Redirect "error.asp?cause=4"
 end if
%>

<!--#include file="top.asp" --><%
set rs1=server.CreateObject ("ADODB.recordset")
 sql="select * from party where  weight=0 and is_history=0 and initiate_people='"&session("Current_user")&"'"
 rs1.Open sql,conn1,3,2
 if rs1.RecordCount=0 then
	 
%>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
	rs.Open "party",conn1,3,2
	rs.addnew
	rs("weight")=0
	
	rs("party_type")=Request("party_type")
	rs("party_time")=Request("party_time")
	rs("party_name")=Request("party_name")
	rs("max_num")=Request("max_num")
	rs("address")=Request("address")
	rs("province")=Request("province")
	rs("contact")=replace(Request("contact"),chr(10),"<br>",1,-1,1)
	rs("aa_expenses")=Request("aa_expenses")
	rs("other_expenses")=Request("other_expenses")
	
	rs("party_content")=replace(Request("party_content"),chr(10),"<br>",1,-1,1)
	
	
	
	rs("initiate_people")=session("Current_user")
	rs("is_history")=0
	rs("date")=date
	rs("end_date")=dateadd("d",30,date)
	rs.update
	
	'通过站内信箱提示给用户
	'
	'
	'
	
%>
<%end if%>
<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; 聚会申请</td></tr>
 </tbody></table>
<p align="center"><font  color=red>聚会申请成功！！
	
</font></p>
<table cellSpacing="0" cellPadding="0" width="770" align="center" border="0">
  <tbody>
  <tr>

 <td align="center">
 <%set rs2=server.CreateObject ("ADODB.recordset")
 sql="select * from party where  weight=0 and is_history=0 and initiate_people='"&session("Current_user")&"'"
 rs2.Open sql,conn1,3,2
 if rs2.RecordCount<>0 then
 id=rs2("id")
 end if
  %>             
    
    <b><font color="#003399" size="2">聚会管理：[<a href="party_2.asp?id=<%=id%>">查看聚会</a>]&nbsp;[<a href="party_update_party.asp?id=<%=id%>" target="_blank">聚会修改</a>]&nbsp; [<a href="party_del_party.asp?id=<%=id%>">聚会删除</a>]&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font></b>
      </td>
</tr></tbody>
</table>
            
<p align="center"><!--#include file="../../copyright.asp" --></body>
</html>
