this makes no logical sense

[monte96]

try this:

Do until objRS.EOF
    if DateDiff("d",Date(),CDate(objRS("start_date"))) >= 0 then
	if DateDiff("d",Date(),CDate(objRS("start_date"))) = 0 then
	    Response.Write("TODAY")
	ElseIf DateDiff("d",Date(),CDate(objRS("start_date"))) <= 5 then
	    Response.Write("SOON")
	ElseIf DateDiff("d",Date(),CDate(objRS("start_date"))) > 5 then
	    Response.Write("GOT A WHILE")
	End If

    End If

    objRS.MoveNext
Loop