Hjælp til array i link-checker

Jeg vil anvende noget kode, som checker links om de virker endnu, koden er ligesom denne: http://www.html.dk/scripts/asp/00009/

Hvordan får jeg brugt koden på nogle links jeg har liggende i en database?

<%
Set rs = Server.CreateObject("ADODB.Recordset")
Query = "SELECT * FROM Links WHERE ID=" & Request.QueryString("ID")
rs.Open Query, Connect, 1, 2
title = rs("Title")
id = rs("id")
url = rs("url")


'' Array med url'er
arrURLS = "url.dk"
arrURLS = arrURLS & ",http://url.dk"
arrURLS = Split(arrURLS,",")