<!--#include file="plus_marry_conn.asp" -->
<style type="text/css">
<!--
table {font-size : 13px; color : #000000; font-family : tahoma, 宋体, fantasy; text-align : center; margin : 0;}
-->
</style>

<div align="center">
<table border=0 cellspacing=1 width="100%" height="40">
	<TR><TD><%listtop()%></TD></TR>
</table>
</div>


<%

'定义显示列表
Sub listtop()



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

showtype1="left"                                         '滚动类型
								    'left   从右向左移！       
								    'right  从左向右移！
								    'up  从下向上移！
								    'down  从上向下移！
								    
showspeed=2							    '滚动速度,数字越大就滚得越快
showheight=30						    '滚动栏的高度.像素单位.
'============================滚动参数设置结束]
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
%><marquee scrollamount="<%=showspeed%>" direction="<%=showtype1%>" behavior="scroll" height="<%=showheight%>" onmouseover="this.stop();" onmouseout="this.start();">
.....:::当前没有婚礼列表:::.........:::赶快向你的心上人<a href=plus_marry_court.asp?action=marryqiu>求婚</a>吧！！:::....</marquee>
<%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")%>&nbsp;&nbsp;接受了
					<a href="dispuser.asp?name=<%=rsmt("forname")%>" target="_blank" title="查看<%=rsmt("forname")%>的资料"><font color="red"><%=rsmt("forname")%></font></a>
					的求婚,<A HREF="plus_marry_list.asp?action=marryd" target="_blank">看看他们的人气如何！</A>
			<%elseif rsmt("marry")=8 then %>
	  	                  &nbsp;&nbsp;&nbsp;&nbsp;
	  	                  <%=rsmt("oktime")%>&nbsp;&nbsp;<a href="dispuser.asp?name=<%=rsmt("toname")%>" target="_blank" title="查看<%=rsmt("toname")%>的资料"><font color="#FF0000"><%=rsmt("toname")%></font></a>&nbsp;&nbsp;和
					<a href="dispuser.asp?name=<%=rsmt("forname")%>" target="_blank" title="查看<%=rsmt("forname")%>的资料"><font color="blue"><%=rsmt("forname")%></font></a>
					的婚礼结束了,<A HREF="plus_marry_list.asp?action=marryd" target="_blank">祝他们幸福！</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>&nbsp;&nbsp;和
					<a href="dispuser.asp?name=<%=rsmt("forname")%>" target="_blank" title="查看<%=rsmt("forname")%>的资料"><font color="blue"><%=rsmt("forname")%></font></a>
					于<%=rsmt("oktime")%>&nbsp;&nbsp;举行婚礼,现在婚礼进行中,大家快去<A HREF="plus_marry_cabaret.asp?action=list&id=<%=(rsmt("marrylevel")-1)%>" target="_blank"><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>&nbsp;&nbsp;和
					<a href="dispuser.asp?name=<%=rsmt("forname")%>" target="_blank" title="查看<%=rsmt("forname")%>的资料"><font color="blue"><%=rsmt("forname")%></font></a>
					将于<%=rsmt("oktime")%>&nbsp;&nbsp;举行婚礼,<A HREF="plus_marry_list.asp?action=marryd" target="_blank">目前婚礼筹备中,祝他们幸福！</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
%>