'org.nummer
nr = "551234-6789"



If Left(nr,2) = "96" Then
typ = "Handelsbolag"
Elseif Left(nr,2) = "55" Then
typ = "Aktiebolag"
Elseif Mid(nr,2,1) <= 1 Then
typ = "Enskild Firma"
Elseif Left(nr,2) = "70" Then
typ = "Ekonomisk Förening"
Elseif Left(nr,2) = "12" Then
typ = "Kommanditbolag"
Elseif Left(nr,2) = "54" OR Left(nr,2) = "52" Then
typ = "Ömsesidigt Försäkringsbolag"
Else
typ = "Övrig bolagsform"
End If


'skriver ut bolagsform
Response.Write "Org.nr: " & nr
Response.Write "
Bolagsform: " & typ