hvor fejler jeg (?)

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = dsn & \"DBQ=\" & server.mappath(\"source.mdb\")
Conn.Open DSN

    strSQL = \"SELECT * FROM source_links order by id\"
    Set rs = Conn.Execute(strSQL)
    If Not (rs.BOF Or rs.EOF) Then
        intID = rs(\"ID\")
        strURL = rs(\"URL\")
        strsource = rs(\"source\")
    End If
Conn.Close
%>
<HTML>
<BODY>
<SELECT name=\"sourceID\">
<%
Response.Write \"<OPTION VALUE=\"\"Source\"\">Vælg Link</OPTION>\"
DO WHILE NOT RS.EOF
Response.Write \"<OPTION VALUE=\" & strurl & \">\" & strSource & \"</OPTION>\"
RS.Movenext
LOOP
%>
</SELECT>

</BODY>
</HTML>

giver mig kun vælg link.-..

og jeg har fat i databasen..