<!--#include file="conn.asp"-->
<%					 set rs1=server.CreateObject("adodb.recordset")
					 month1=clng(month(now()))
				  	 day1=clng(day(now()))+1
					 rs1.open "select * from shengri where yue="&month1&" and ri="&day1,conn,1,1
					if rs1.eof then  
					response.Write"明天没有人生日！"
					else
					response.Write"明天是"
				    rs1.pagesize=18
				    for i=1 to rs1.pagesize
					%>
              <%=rs1("xm")%>
              <%
					   rs1.movenext
					  if rs1.eof then exit for
					  response.Write""
					  next
					  response.Write"生日！"
					  end if
%>
