Knap som kopiere

Hvordan gør jeg så hvis jeg nu har et billed jeg har hævet frem via:

  Set fs = CreateObject("Scripting.FileSystemObject")
  Set f = fs.GetFolder(server.mappath("../produktbilleder"))

  Set fc = f.Files
  For Each billed in fc
    if inStr(1,"gif,jpg,jpeg,bmp",LCase(fs.GetExtensionName(billed.name))) > 0 then
      Response.Write "<img border='' src=""../produktbilleder/" & billed.name & """></a> - " & billed.name & "<br><br>"
    end if
  next

Jeg vil så lave en knap ved siden af hver billede der kopiere en URL adresse jeg kan definere. Nogen der kan hjælpe?