insert datum (null)

halåjjs!
nya problems, jag har ett formulär på en sida där man bla. fyller i datum i en textruta.
men när man submittar så blir det error i databasen(sql-server) om datumet är tomt, den skriver in 1900-01-01 i stället!
kan man fixa om denna kod så att datumet får ett null-värde eller nått om man inte skriver nått i textfältet?

stopdate = checkform_date(request.form("stopdate"))

strsql = "insert into projects (name, notes, clientid, active, reghour, startdate, stopdate, regdate) values "&_
		 "('" & name & "', '" & notes & "', " & clientid & ", '" & active & "', '" & reghour & "', "&_
		" '" & startdate & "', '" & stopdate & "', '" & now() & "'  ) "

funktion

function checkform_date(strtext)
	strtext = Replace(strtext, " ","")
	if len(strtext) >0 then
	strvalue = isDate(strtext)
		if strvalue = False then
		errors = errors & 3
		else
		strtext = CDate(strtext)
		end if
	end if
	checkform_date = strtext
end function

För att ange att något är null så använder man NULL som ett nyckelord, så du måste ändra lite

function checkform_date(strtext)
	strtext = Replace(strtext, " ","")
	if len(strtext) >0 then
	strvalue = isDate(strtext)
		if strvalue = False then
		errors = errors & 3
		else
		strtext = "'" & strtext & "'"
		end if
                else
                      strtext = "NULL"
	end if
	checkform_date = strtext
end function

och i din insert

strsql = "insert into projects (name, notes, clientid, active, reghour, startdate, stopdate, regdate) values "&_
		 "('" & name & "', '" & notes & "', " & clientid & ", '" & active & "', '" & reghour & "', "&_
		" '" & startdate & "',"  & stopdate & ", '" & now() & "'  ) "

Detta är en känd 2000-bugg.

Testat med if sats?

Hööh! Vilken barnslig bugg!
Tack LarsG, funkar tip top.

Trevlig helg på er föresten!!! :bire