Fejl i det lilel stykke kode jeg har lavet.. hjælp?

<%
    strSQL = "Select * from funnystuff_pictures"
    set rs = conn.execute(strSQL)

    do
        strNavn = rs("titel")
        strLink = "<a href=' rs("http") '>" & strNavn & "</a>"
        Response.Write "<li>" & strLink & "</li>"

        rs.movenext   
    loop while not rs.EOF

Conn.Close
Set Conn = Nothing
%>

Fejlen kommer i denne linie:
strLink = "<a href=' rs("http") '>" & strNavn & "</a>"

nogen der kan hjælpe mig her?