<%
function ggd(a,b)
	a = abs(a)
	b = abs(b)
	if a = 0 then
		ggd = b
	else 
		if b = 0 then
			ggd = a
		else 
			if a > b then
				ggd = ggd(b, a mod b)
			else
				ggd = ggd(a, b mod a)
			end if
		end if
	end if
end function

function kgv(a,b)
	kgv=a*b/ggd(a,b)
end function

function e_teller(lngNumber)
	If kgv(5*lngNumber+6,6*lngNumber)<>1 Then
		e_teller=(5*lngNumber+6)/ggd(5*lngNumber+6,6*lngnumber)
	Else
		e_teller=5*lngNumber+6
	End if
end function

function e_noemer(lngNumber)
	If kgv(5*lngNumber+6,6*lngNumber)<>1 Then
		e_noemer=(6*lngNumber)/ggd(5*lngNumber+6,6*lngnumber)
	Else
		e_noemer=6*lngNumber
	End if
end function

function egypte(lngNumber)
	egypte="$\eqalign{\frac{1}{2}+\frac{1}{3}+\frac{1}{" & lngNumber & "}=\frac{" & e_teller(lngNumber) & "}{" & e_noemer(lngNumber) & "}}$"
end function

function roman(arabic)
    Dim ones
    Dim tens
    Dim hundreds
    Dim thousands

    ones = Array("", "I", "II", "III", "IV", "V", "VI", "VII", "VIII", "IX")
    tens = Array("", "X", "XX", "XXX", "XL", "L", "LX", "LXX", "LXXX", "XC")
    hundreds = Array("", "C", "CC", "CCC", "CD", "D", "DC", "DCC", "DCCC", "CM")
    thousands = Array("", "M", "MM", "MMM", "MMMM")

    roman = thousands((arabic - (arabic mod 1000)) / 1000)
    arabic = arabic mod 1000
    roman = roman & hundreds((arabic - (arabic mod 100)) / 100)
    arabic = arabic mod 100
    roman = roman & tens((arabic - (arabic mod 10)) / 10)
    arabic = arabic mod 10
    roman = roman & ones((arabic - (arabic mod 1)) / 1)
    arabic = arabic mod 1
end function

Function Bin(lngNumber) 
	Dim strBinary
	strBinary = ""
	While lngNumber > 0 
		If lngNumber Mod 2 = 0 Then
			strBinary = "0" & strBinary
		Else
		strBinary = "1" & strBinary
		End IF 
		lngNumber = lngNumber \ 2
	Wend
	Bin = strBinary
End Function

Function Viertallig(lngNumber)
	Dim strFour
	strFour=""
	While lngNumber > 0
		IF lngNumber Mod 4 = 0 Then
			strFour = "0" & strFour
		Else If lngNumber Mod 4 = 1 Then
			strFour = "1" & strFour
		Else If lngNumber Mod 4 = 2 Then
			strFour = "2" & strFour
		Else If lngNumber Mod 4 = 3 Then
			strFour = "3" & strFour
		End if
		End if
		End if
		End if
		lngNumber = lngNumber \ 4
	Wend
	Viertallig = strFour
End Function

Function Octaal(lngNumber)
	Dim strOct
	strOct=""
	While lngNumber > 0
		IF lngNumber Mod 8 = 0 Then
			strOct = "0" & strOct
		Else If lngNumber Mod 8 = 1 Then
			strOct = "1" & strOct
		Else If lngNumber Mod 8 = 2 Then
			strOct = "2" & strOct
		Else If lngNumber Mod 8 = 3 Then
			strOct = "3" & strOct
		Else If lngNumber Mod 8 = 4 Then
			strOct = "4" & strOct
		Else If lngNumber Mod 8 = 5 Then
			strOct = "5" & strOct
		Else If lngNumber Mod 8 = 6 Then
			strOct = "6" & strOct
		Else If lngNumber Mod 8 = 7 Then
			strOct = "7" & strOct
		End if
		End if
		End if
		End if
		End if
		End if
		End if
		End if
		lngNumber = lngNumber \ 8
	Wend
	Octaal = strOct
End Function

Function Hexadecimaal(lngNumber)
	Dim strHex
	strHex=""
	While lngNumber > 0
		IF lngNumber Mod 16 = 0 Then
			strHex = "0" & strHex
		Else If lngNumber Mod 16 = 1 Then
			strHex = "1" & strHex
		Else If lngNumber Mod 16 = 2 Then
			strHex = "2" & strHex
		Else If lngNumber Mod 16 = 3 Then
			strHex = "3" & strHex
		Else If lngNumber Mod 16 = 4 Then
			strHex = "4" & strHex
		Else If lngNumber Mod 16 = 5 Then
			strHex = "5" & strHex
		Else If lngNumber Mod 16 = 6 Then
			strHex = "6" & strHex
		Else If lngNumber Mod 16 = 7 Then
			strHex = "7" & strHex
		Else If lngNumber Mod 16 = 8 Then
			strHex = "8" & strHex
		Else If lngNumber Mod 16 = 9 Then
			strHex = "9" & strHex
		Else If lngNumber Mod 16 = 10 Then
			strHex = "A" & strHex
		Else If lngNumber Mod 16 = 11 Then
			strHex = "B" & strHex
		Else If lngNumber Mod 16 = 12 Then
			strHex = "C" & strHex
		Else If lngNumber Mod 16 = 13 Then
			strHex = "D" & strHex
		Else If lngNumber Mod 16 = 14 Then
			strHex = "E" & strHex
		Else If lngNumber Mod 16 = 15 Then
			strHex = "F" & strHex
		End if
		End if
		End if
		End if
		End if
		End if
		End if
		End if
		End if
		End if
		End if
		End if
		End if
		End if
		End if
		End if
		lngNumber = lngNumber \ 16
	Wend
	Hexadecimaal = strHex
End Function

%>