Datum!!!

Jag har gjort en liten datum sub...

Sub subGetYear
	Dim I
		Response.Write "<option value=""novalue"">-----</option>"
			For I = 1801 To Left(now,4)
			Response.Write "<option"
			If Left(CInt(objRS("userAlder")),4) = I Then Repsonse.Write " SELECTED"
			Response.Write ">" & I & "</option>" & vbcrlf
		Next
End Sub

Det funkar jättefint, har även för Månad och dag, fyller jag i så får jag exempelvis 1982-06-27 i databasen..

Problemet:
När jag sedan går in på sidan igen och vill kolla på min info så vill jag ju att det året jag redan har fyllt i skall vara valt! varför funkar inte min IF-sats?

Repsonse.Write

Kan den felskrivningen ha något med problemet att göra?
Jag tycker dock att du ska använda funktionen Year() istället för att köra strängfunktionen Left() på datumvärdena.

Mvh,

Dessutom, din Cint() ligger på fel ställe.

If CInt(Left(objRS("userAlder"),4)) = I Then Response.Write " SELECTED"

Mvh,

hmm, använder Datum funktioner alldeles för dåligt...

Men det här funkar i alla fall

Sub subGetYear
	Dim I
		Response.Write "<option value=""novalue"">-----</option>" & vbcrlf
			For I = 1901 To Year(now)
			Response.Write "<option value=""" & I & """"
			If Year(objRS("userAlder")) = I Then Response.Write " SELECTED"
			Response.Write ">" & I & "</option>" & vbcrlf
		Next
End Sub