Lave sitemap ved at crawle mit site

(er det bare mig eller virker søgefunktionen ikke?)
Jeg kunne godt tænke mig at lave et sitemap på min side ved at crawle den + som bonus lave en offline kopi af sitet.
i pseudokode:

Startpage = "http://etellerandet.dk"
Function crawlAway (startPage)
  page = getPage (startPage)
  savePage (page, filename)
  Array_Links = findLinks(page)
  for i = 0 to Ubound(Array_Links)
    crawlAway (Array_Links(i))
  next
end function

getPage klarer jeg med XMLHTTP
Mit størtste problem er at lave findLinks funktionen.
Er der nogen der kan hjælpe med at lave en regexp der finder alle links + sørger for at det er komplette links (enside.asp = http://etellerandet.dk/enside.asp)