Konvertere vb-script til sql-funktion

Hej alle

Jeg har følgende vb-script, som jeg skal have lavet om til en indbygget sql-funktion, som skal indsættes i sql-serveren, som en indbygget funktion, hvis det er det, som det hedder.

Nogle, som kan hjælpe - kan ikke selv komme i gang og få noget til at virke.

Her er mit oprindelige vb-script:

<%

function findDomain(strFindDomainUrl, strSpecial)
   
    'gør alle tegn små og undgår null-værdier   
    strFindDomainUrl = lcase(trim(strFindDomainUrl & ""))

    'erstatter "," med "." hvis bruger har tastet forkert
    strFindDomainUrl = replace(strFindDomainUrl, ",", ".")
   
    'sletter unødvendige ting
    strFindDomainUrl = replace(strFindDomainUrl, "http://", "")
    strFindDomainUrl = replace(strFindDomainUrl, "https://", "")
    strFindDomainUrl = replace(strFindDomainUrl, "www.", "")
       
    if strFindDomainUrl <> "" then
        if inStr(strFindDomainUrl, "/") > 0 then
            strFindDomainUrl = left(strFindDomainUrl, inStr(strFindDomainUrl, "/") - 1)   
        end if
           
        if strSpecial = "excludeSubdomain" then
           
            'skal kun slette det sidste subdomæne-punktumet
            'og ikke landekode-punktumet, som det gør, hvis
            'man putter en url ind med kun et punktum - f.eks. min "hjemmeside.dk"
            if inStr(strFindDomainUrl, ".") > 0 then
                strFindDomainUrl = left(strFindDomainUrl, inStr(strFindDomainUrl, ".") - 1)
            end if
        end if
       
        findDomain = strFindDomainUrl
    else
        findDomain = ""
    end if
   
    'gør rent   
    strFindDomainUrl = ""

end function

%>