大概这样:
im rs
dim sql
set rs = server.createobject("adodb.recordset")
sql="select * from info where " & datediff(d,"&birthday,date) "=0"
rs.open sql,conn,0,1
if rs.eof then
response.write("今天论坛没有人过生日!")
else
response.write ……今天过生日的人……
set rs=Server.Create("ADODB.Recordset")
rs.open "select * from table where datediff(d,birthday,getdate())=0",db,1
do while not rs.eof
.........
rs.movenext
loop