Få flere funktioner på

Hej!

Jeg har lige fundet dette script, som omdanner f.eks. www.snuseren.dk til et hyperlink. Ligesom her på eks. hvor noget der f.eks. starter med www. bliver til hyperlink.

Problemet er at jeg ikke kan finde ud af at få flere funktioner på. Her på scriptet skal url'erne starte med http:// , og jeg kan ikke få den til bare at være www. Den som kan gøre sådan at den både laver link med email adresser, www. adresser, og http:// adresser får 100 point.

Scriptet ser sådan ud:

<%@ LANGUAGE=JScript %>
<% Response.ContentType = "text/HTML" %>
<%
// Indsendt af Crax

function autoHighLight(streng) {
  length = streng.length
  URL = false
  linkname = new String()
  for(x=0; x<length; x++){
    C = streng.charAt(x)
    // Det antages at alle links starter med "http://"
    if(streng.substr(x, 7) == "http://") {
      Response.write("<a href='")
      URL = true
}


   
   
   
    if(URL){
      // Hvis der er mellemrum i teksten og URL er sand, må linket være slut
      // Dette klarer "klik her http://www.test.com for at..."
      // Hvis der er et punktum og et mellemrum og URL er sand, er linket slut
      // Dette klarer "klik her http://www.test.com. Eller..."
      // Hvis der er et komma og er mellemrum og URL er sand, er linket slut
      // Dette klarer "klik her http://www.test.com, for at..."
      // Til sidst kontrolleres på diverse kontroltegn, der bl.a. bevirker linjeskift
      if(C == " " || streng.substr(x, 2) == ", " || streng.substr(x, 2) == ". " || C == "\n" ){
        Response.write("'>"+linkname+"</a>")
        URL = false
        linkname = ""
      }
      linkname = linkname + C
    }
    // Udskriv tegnet
    Response.write(streng.charAt(x))
  }
  // Hvis slutningen af teksten er nået og URL er sand, skal linket afsluttes
  if(URL)
    Response.write("'>"+linkname+"</a>")
   
     
   
}
streng = "hej http://www.eksperten.dk www.snuseren.dk anders@snuseren.dk";
%>
<%=autoHighLight(streng)%>

MVH
Anders