For bday = 1 To 31
ddDay.Items.Add(New ListItem(bday, bday))
Next
ddMonth.Items.Add(New ListItem("January", "1"))
ddMonth.Items.Add(New ListItem("February", "2"))
ddMonth.Items.Add(New ListItem("March", "3"))
ddMonth.Items.Add(New ListItem("April", "4"))
ddMonth.Items.Add(New ListItem("May", "5"))
ddMonth.Items.Add(New ListItem("June", "6"))
ddMonth.Items.Add(New ListItem("July", "7"))
ddMonth.Items.Add(New ListItem("August", "8"))
ddMonth.Items.Add(New ListItem("September", "9"))
ddMonth.Items.Add(New ListItem("October", "10"))
ddMonth.Items.Add(New ListItem("November", "11"))
ddMonth.Items.Add(New ListItem("December", "12"))