<!--#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  
					
					else
					
				    rs1.pagesize=15
				    for i=1 to rs1.pagesize
					
					%>
              <title>生日表</title><table width="550" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td><font color="#FF0000"><strong>明天是<%=rs1("xm")%>生日！</strong></font></td>
  </tr>
</table>

                     <%
					   rs1.movenext
					  if rs1.eof then exit for
					  response.Write""
					  next
					
					  end if
%>
