Tælle Links

Jeg vil tælle antal links i en .html
og have alle links skrevet ud.

jeg har leget lidt med koden her.
Men det blivet kun til 1 link, selv om der er flere :-(


function LinkURLs(ByRef asContent)
        Dim loRegExp    ' Regular Expression Object (Requires vbScript 5.0 and above)
       
        ' if no content was received, Exit the function
        if asContent = "" Then Exit function
       
        ' Create Regular Expression object
        Set loRegExp = New RegExp
       
        ' Keep finding links after the first one.               
        loRegExp.Global = True
       
        ' Ignore upper/lower Case
        loRegExp.IgnoreCase = True
        ' Look For URLs
        loRegExp.Pattern = "((ht|f)tps?://\S+[/]?[^\.])([\.]?.*)"
        ' Link URLs
        AntalLinks = AntalLinks + 1

       
        ' Release regular expression object
        Set oRegExp = Nothing
       
        Response.Write "AntalLinks:" & AntalLinks
       
    End function