Link til udtrækket

jeg har trukket de 5 nyeste ud af min database det kører fint der er en tekst og et billede men jeg kunne godt tænke mig at trække linket ud også hvorn gør ?
<%

ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/data/***.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnectString

sql = "select top 5 * from tblQAAuctions WHERE aucEnded = 'n' order by aucAvailDate desc"
set rs = Conn.Execute(SQL)
do until rs.eof
%>