inkompatibla typer vid double

Har denna funktion:

	function foundvarde(akr)
		[B]select case akr[/B]
			case rs("day1")
			foundvarde = 26

			case rs("day2")
			foundvarde = 46

			case rs("day3")
			foundvarde = 66

			case rs("day4")
			foundvarde = 86

			case rs("day5")
			foundvarde = 106

			case rs("day6")
			foundvarde = 126

			case rs("day7")
			foundvarde = 146

			case rs("day8")
			foundvarde = 166

			case rs("day9")
			foundvarde = 186

			case rs("day10")
			foundvarde = 206
	
			case else
			foundvarde = 0
		end select
	end function

När akr innehåller decimaler får jag felmeddelandet:

Körningsfel i Microsoft VBScript fel '800a000d' 

Inkompatibla typer 

/aktier.asp, rad 194

Rad 194 är markerat med fetstil.

Varför får jag detta fel?

Har du provat att konvertera den inkommande variabeln?

Japp, det fungerar inte då heller.

Det fungerade visst när jag konverterade rs("day1"), rs("day2") osv.