<!--#include file="q_marry_conn.asp" -->

<%
'============================滚动参数设置部分(fgp3-2005-4-40-16-00)
dim showtype1,showspeed,showheight

showtype1="left"                                         '滚动类型
								    'left   从右向左移！       
								    'right  从左向右移！
								    'up  从下向上移！
								    'down  从上向下移！
								    
showspeed=2							    '滚动速度,数字越大就滚得越快
showheight=20						    '滚动栏的高度.像素单位.
'============================滚动参数设置结束
sub show_marry_list()
    %><table border=0 cellpadding=3 cellspacing=1 align=center class=tableborder1>
					<tr>
					<th class=TopLighNav1 align=center><FONT FACE="Wingdings 2" COLOR="#FF9BB1">ea</FONT><a href=q_marry_index.asp>【礼堂首页】</a><FONT FACE="Wingdings 2" COLOR="#FF9BB1">bf 
	ea</FONT><a href=q_marry_court.asp>【婚恋事务】</a><FONT FACE="Wingdings 2" COLOR="#FF9BB1">bf
	</FONT>&nbsp;<FONT FACE="Wingdings 2" COLOR="#FF9BB1">ea</FONT><a href=q_marry_list.asp>【详细列表】</a><FONT FACE="Wingdings 2" COLOR="#FF9BB1">bf
	</FONT>&nbsp;<FONT FACE="Wingdings 2" COLOR="#FF9BB1">ea</FONT><a href=q_marry_cabaret.asp>【社区酒店】</a><FONT FACE="Wingdings 2" COLOR="#FF9BB1">bf</FONT></th>
					</tr>
					<TR><TD class=tablebody1 ><%listtop()%></TD></TR>
					</table><br>
<%end sub

'定义显示点歌列表
Sub listtop()
dim rsmt,sqlmt
set rsmt=server.createobject("adodb.recordset")
sqlmt="select * from m_marry where marry=1 or marry=8 or marry=9 Order By oktime Desc"
rsmt.open sqlmt,connj,3,3				
if rsmt.eof or rsmt.bof then
%>	

.....:::当前没有婚礼列表:::.........:::赶快向你的心上人表白吧！！:::....
<%else%>
<marquee scrollamount=<%=showspeed%> direction=<%=showtype1%> behavior=scroll height=<%=showheight%> onmouseover=this.stop(); onmouseout=this.start();>
<%

		DO while (not rsmt.eof) and (not rsmt.bof)
		      if rsmt("marry")=1 then %> 
					&nbsp;&nbsp;&nbsp;&nbsp; 
					<a href=dispuser.asp?name=<%=rsmt("toname")%> target=_blank title=查看<%=rsmt("toname")%>的资料><font color=blue><%=rsmt("toname")%></font></a>
					于<%=rsmt("oktime")%>接受了
					<a href=dispuser.asp?name=<%=rsmt("forname")%> target=_blank title=查看<%=rsmt("forname")%>的资料><font color="#FF0000"><%=rsmt("forname")%></font></a>
					的求婚,<A HREF="q_marry_list.asp?action=marryd">看看他们的人气如何！</a>
			<%elseif rsmt("marry")=8 then %>
	  	                  &nbsp;&nbsp;&nbsp;&nbsp;
	  	                  <%=rsmt("oktime")%>,<a href=dispuser.asp?name=<%=rsmt("toname")%> target=_blank title=查看<%=rsmt("toname")%>的资料><font color="#FF0000"><%=rsmt("toname")%></font></a>和
					<a href=dispuser.asp?name=<%=rsmt("forname")%> target=_blank title=查看<%=rsmt("forname")%>的资料><font color=blue><%=rsmt("forname")%></font></a>
					的婚礼结束了,<A HREF="q_marry_list.asp?action=marryd">祝他们幸福！</a>
					
			<%elseif rsmt("marry")=9 then
			
                           if  rsmt("oktime")<now() then %>
	  	                  &nbsp;&nbsp;&nbsp;&nbsp;
	  	                  <a href=dispuser.asp?name=<%=rsmt("toname")%> target=_blank title=查看<%=rsmt("toname")%>的资料><font color="#FF0000"><%=rsmt("toname")%></font></a>和
					<a href=dispuser.asp?name=<%=rsmt("forname")%> target=_blank title=查看<%=rsmt("forname")%>的资料><font color=blue><%=rsmt("forname")%></font></a>
					于<%=rsmt("oktime")%>举行婚礼,现在婚礼进行中,大家快去<A HREF="q_marry_cabaret.asp?action=list&id=<%=(rsmt("marrylevel")-1)%>"><font color="#FF0000">祝福他们</font></a>吧！
								
					       <%  else %>
					       &nbsp;&nbsp;&nbsp;&nbsp;
	  	                  <a href=dispuser.asp?name=<%=rsmt("toname")%> target=_blank title=查看<%=rsmt("toname")%>的资料><font color="#FF0000"><%=rsmt("toname")%></font></a>和
					<a href=dispuser.asp?name=<%=rsmt("forname")%> target=_blank title=查看<%=rsmt("forname")%>的资料><font color=blue><%=rsmt("forname")%></font></a>
					将于<%=rsmt("oktime")%>举行婚礼,<A HREF="q_marry_list.asp?action=marryd">目前婚礼筹备中,祝他们幸福！</a>
				<%end if		
            end if
	  	  if showtype1="up" or showtype1="down" then %>
	  	   <BR><%
	  	  end if   
		rsmt.movenext
		LOOP
%></marquee><%
end if
rsmt.close
set rsmt=nothing
set sqlmt=nothing
end Sub
%>

