If Format(Date.Now, "Short Date") >= Format(dr.Item("order_start"), "Short Date") AND Format(Date.Now, "Short Date") <= Format(dr.Item("order_end"), "Short Date") Then
OrderText = "Order"
Else
OrderText = "The current date does not fall within the ordering window for your state."
End If
|