Primtal eller inte?

Denna funktion skriver ut 'true' om det är ett primtal och 'false' om det inte är det.

<%
	function primTal(x)
	
		'## -- gör om det till ett heltal (krävs att x > 1 och ett heltal) -- ##	
		x = int(x)

		if x < 2 then 
			primTal = "Skriv in ett heltal som är större än 1."
			exit function
		end if

				
		'## -- 2 är ett primtal, om x är 2 så skrivs värdet "True" ut, om inte fortsätter vi att undersöka talet -- ##
		if x = 2 then
			primTal = true
			exit function
		end if
				

		'## -- kollar om x är jämt delbart med 2, isf skrivs värdet "False" ut, annars fortsätter vi att undersöka talet -- ##
		if x mod 2 = 0 then
			primTal = false
			exit function
		end if

		'## -- undersöker om x är delbart med y så länge y är större eller lika med roten ur x -- ##
						
		y = 3
		
		do until (y >= sqr(x)) 
			if x mod y = 0 then
				primTal = false
				exit function
			else
				y = y + 2
			end if
		loop

		primTal = true

	end function			
%>