<%
' Changes for Baby Prints implementation. Set xDate to last date of previous web nursery.
' The Previous 3 Months links at the bottom of the page are calculated from xDate.
xDate = "10/31/2005"
s_month = Request("mnth")
If s_month ="" then
s_month=xDate
end if
startdate = DateSerial(Year(s_month), Month(s_month), 1)
enddate = DateSerial(Year(s_month), Month(s_month)+1, 1-1)
Set Connection=Server.CreateObject("ADODB.Connection")
Connection.Open "DSN=babies"
S="SELECT * FROM babies WHERE DOB BETWEEN #" & startdate & "# AND #" & enddate & "# ORDER BY [DOB] DESC"
set rs =Connection.Execute(S)
%>
The Medical Center proudly welcomes these new arrivals!
