Kun domain.dk

Hejsa,

Nogle som kan hjæle mig med et script som laver en url om til domain.dk ?

Her er et par eks:
http://www.test.dk/test.asp  -> test.dk
https://sub.domain.dk -> domain.dk
http://et-mere.com -> et-mere.com
www.minside.dk -> minside.dk
osv osv ;)

Jeg har selv prøvet med det her, men det dur langt fra optimalt:
<%
function findDom(a)
    dim firstDom
    firstDom = strReverse(left(strReverse(a),(inStr((inStr(strReverse(a),".")+1),strReverse(a),".")-1)))
    findDom = left(firstDom,(instr(firstDom,"/")-1))
end function

test = "http://www.test.dk/test.asp"
Response.Write findDom(test)
%>