Hjælp til et billede-script

Jeg har følgende script som finder billeder i en bestemt mappe..

<table border="0" width="100%">
<%
' Vi sætter variablen ImageDir til at være det interessante katalog
ImageDir = "/sponsor/button/"

maxPrRow = 2
noPrRow = 0

' Vi laver et objekt, der kan navigere i filsystemet = filesystemobject
Set objFS = CreateObject("Scripting.FileSystemObject")

' Vi bruger filsystemobjektet til at åbne det interessante katalog
Set objFolder = objFS.GetFolder(Server.MapPath(ImageDir))

' Vi putter alle filer i kataloget ind i variablen objFiles
Set objFiles = objFolder.Files

' Her tager den en fil ad gangen og skriver den - dvs billedet - på skærmen
For Each Image In objFiles
  if inStr(1,"gif,jpg,bmp",LCase(objFS.GetExtensionName(Image.name))) > 0 then
    if noPrRow = 0 then Response.Write "<tr>"
 
    Response.Write "<td align='center'><img src=" & ImageDir & Image.Name &" border='1'></td>"
   
    noPrRow = noPrRow + 1
    if noPrRow = maxPrRow then
      Response.Write "</tr>"
      noPrRow = 0
    end if
  End if
Next
if noPrRow > 0 then Response.Write "</tr>"

Set objFS = Nothing
%>
</table>

Det jeg gerne vil er at den tager navnet på billedet og tjekker op mod en database og tilføjer et link til billdet eller med et linknavn under billedet

tabellen hedder: links
feltet den skal tjekke op imod hedder: image
linkfeltet hedder: weblink
navnefeltet hedder: client