<% m=month(date) d=day(date) m1=left(monthname(m),3) mname=ucase(m1) set rs1= Server.CreateObject("ADODB.Recordset") rs1.open "SELECT * From userinfo,modelimage Where userinfo.active=true and userinfo.sno=modelimage.sno and modelimage.approval='A' and month(userinfo.dateofbirth)="&m&" and day(userinfo.dateofbirth)="&d&" order by userinfo.regdate desc", conn, 3, 2 i=1 do until rs1.eof rs1("userinfo.item4")=i rs1("modelimage.item4")=i rs1.update i=i+1 rs1.movenext loop rs1.close set rs1=nothing set rs=server.CreateObject("adodb.recordset") set objRS=server.CreateObject("adodb.recordset") objRS.open "SELECT count(*) From userinfo,modelimage Where userinfo.active=true and userinfo.sno=modelimage.sno and modelimage.approval='A' and month(userinfo.dateofbirth)="&m&" and day(userinfo.dateofbirth)="&d& " ",conn,3,2 rs.Open "SELECT * From userinfo,modelimage Where userinfo.active=true and userinfo.sno=modelimage.sno and modelimage.approval='A' and month(userinfo.dateofbirth)="&m&" and day(userinfo.dateofbirth)="&d&" order by userinfo.regdate desc" ,conn, 3,2 click = objrs(0)-1 'name=rs("name") %>

HAPPY BIRTHDAY to

<%=mname &"
" &day(date)%>

Tomorrow >

<%if rs.eof <> true then%>

" target="_blank">

/<%=rs("image1")%>" width="103" border="0" height=112 alt="">

','<%=RS("modelimage.item4")%>');" onMouseOver="this.style.cursor='pointer'" style="cursor:hand;" alt="PREVIOUS" title="PREVIOUS">

<%response.write click&" more"%>

','<%=RS("modelimage.item4")%>');" onMouseOver="this.style.cursor='pointer'" style="cursor:hand;" alt="NEXT" title="NEXT">

<%=rs("name")%>

<%else%>

<%END IF%>