<!--#include file="inc/conn.asp"-->
<!--#include file="inc/safe.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>红嫂视屏交友网</title>
<meta name="keywords" content="情感,在线,照片,动感影片,诗歌,爱情,纯洁,心连心,红嫂视屏交友,红嫂视屏交友">
<meta name="description" content="红嫂视屏交友情缘 情感在线">
<link href="css.css" rel="stylesheet" type="text/css">
<link href="style.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
	background-image: url();
}
.STYLE8 {
	color: #CC0099;
	font-size: 12px;
	font-weight: bold;
}
.STYLE31 {color: #666666; font-size: 12px;}
.STYLE81 {	color: #60A7E5;
	font-size: 12px;
	font-weight: bold;
}
.style91 {font-size: 12px; line-height: 150%; color: #4193DD;}
-->
</style>
</head>
<body>
<table width="1002" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><!--#include file="top.asp"--></td>
  </tr>
</table>
<table width="950" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="213" align="center" valign="top" bgcolor="#FFFFFF"><div align="left"><!--#include file="liebiao.asp"-->
        </div></td>
    <td width="574" align="center" valign="top" bgcolor="#FFFFFF"><TABLE width="566" border=0 align="left" 
            cellPadding=0 cellSpacing=0 bgColor=white class="STYLE4" >
      <TBODY>
        <TR>
          <TD width="4%" align=left background="image/tiao_4.gif"><img src="image/tiao_3.gif" width="10" height="31"></TD>
          <TD width="92%" height="20" align=center background="image/tiao_4.gif"><div align="left" class="pgd">交友沙龙</div></TD>
          <TD width="4%" align="right" background="image/tiao_4.gif"><img src="image/tiao_2.gif" width="10" height="31"></TD>
        </TR>
        <TR>
          <TD rowspan="2" align=left style="border-left:#C7C8CC 1px solid;border-bottom:#C7C8CC 1px solid">&nbsp;</TD>
          <TD height="646" align=center valign="top" style="border-bottom:#C7C8CC 1px solid"><br>   
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from jyhd_info where datediff(d,getdate(),hdtime)>1 order by id asc"
rs.open sql,conn,1
if rs.eof and rs.bof then
   response.Write "<p class='style4'><br>暂无交友沙龙信息！<br><br></p>"
else      
%>
              <%	do while not rs.eof %>			  
			  <table width="516" border="0" cellpadding="2" cellspacing="1" bgcolor="9DCCF6"  style="border-left:#9DCCF6 1px solid;border-bottom:#9DCCF6 1px solid;border-right:#9DCCF6 1px solid;border-top:#9DCCF6 1px solid">
                <tr bgcolor="#FFFFFF">
                  <td height="30" colspan="4" class="pgd"><img src="image/small_hongxin.gif" width="16" height="16" align="absmiddle"><a href="huodong.asp?hdid=<%=rs("id")%>" class="a8"><%
				  response.Write "["& GetCity(rs("shi")) &"]&nbsp;"&month(rs("hdtime"))&"月"&day(rs("hdtime"))&"日&nbsp;"&rs("title")%></a></td>
                </tr>
                <tr >
                  <td width="110" height="103" rowspan="2" bgcolor="#FFFFFF"><div align="center">
				  <%if rs("pic")="" or isnull(rs("pic")) then%>
				  <img src="images/index_27.gif" width="90" height="90" border="0">
				  <%else%>
				  <img src="uppic/<%=rs("pic")%>" width="90" height="90" border="0">
				  <%end if%>
				  </div></td>
                  <td width="393" colspan="3" bgcolor="#FFFFFF"><table width="381" border="0" cellspacing="0" cellpadding="00">
				  <%
				  set res=server.CreateObject("adodb.recordset")
				  rsql="select count(*) from jyhd_baoming where hdid="& rs("id")
				  res.open rsql,conn,1
				  bmrs=res(0)
				  res.close
				  set res=nothing
				  %>
                    <tr>
                      <td width="157" height="20">&nbsp;</td>
                      <td width="124"><span class="title3">已有<%=bmrs%>人报名 </span></td>
                      <td width="100"><%
					  if datediff("d",now(),rs("hdtime"))<2 then
					   response.Write "<div class=style30>该活动已截止报名</div>"
					  else
					   response.Write "<A href=""Registration.asp""><IMG height=""20"" src=""images/aniu28.gif"" width=""81"" border=""0""></A>"
					  end if 
					  %>
                        </td>
                    </tr>
                  </table></td>
                </tr>
                <tr >
                  <td colspan="3" bgcolor="#FFFFFF"><table width="380" border="0" align="center" cellpadding="00" cellspacing="0">
                    <tr>
                      <td width="66" height="22" background="images/line4.gif">地&nbsp;&nbsp;&nbsp;&nbsp;点：</td>
                      <td width="314" background="images/line4.gif"><a href="huodong.asp?hdid=<%=rs("id")%>" class="a7"><%=rs("address")%></a></td>
                    </tr>
                    <tr>
                      <td height="22" background="images/line4.gif">时&nbsp;&nbsp;&nbsp;&nbsp;间：</td>
                      <td background="images/line4.gif"><a href="huodong.asp?hdid=<%=rs("id")%>" class="a7"><%=rs("hdtime")%></a></td>
                    </tr>
                    <tr>
                      <td height="22" background="images/line4.gif">发 起 人：</td>
                      <td background="images/line4.gif"><a href="huodong.asp?hdid=<%=rs("id")%>" class="a7"><%=rs("zbdw")%></a></td>
                    </tr>
                    <tr>
                      <td height="40">简&nbsp;&nbsp;&nbsp;&nbsp;介：</td>
                      <td><FONT class=style30><%=left(rs("shuoming"),50)%>...</FONT></td>
                    </tr>
                  </table></td>
                </tr>
            </table>
            <br>
<%
rs.movenext
loop
end if
%></TD>
          <TD rowspan="2" align="right" style="border-RIGHT:#C7C8CC 1px solid;border-bottom:#C7C8CC 1px solid">&nbsp;</TD>
        </TR>        
      </TBODY>
    </TABLE></td>
    <td width="163" align="center" valign="top" bgcolor="#FFFFFF"><!--#include file="guanggao2.asp"--></td>
  </tr>
  <tr>
    <td height="1" valign="top"></td>
    <td colspan="2" valign="top" ></td>
  </tr>
</table>
<table width="1002" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><!--#include file="root.asp"--></td>
  </tr>
</table>
</body>
</html>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
