trække ud

Jeg skal på en side hente nogle oplysninger men kan ik få det til at virker.

<%
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"database.mdb\")
If Request.QueryString(\"id\") <> \"\" Then
    Set rs = Server.CreateObject(\"ADODB.RecordSet\")
    strSQL = \"SELECT * FROM joke WHERE (ID = \" & Request.QueryString(\"id\") & \")\"
    rs.Open strSQL, myConn, 1, 3
    If Not (rs.BOF Or rs.EOF) Then
    Response.write \"rs(\"overskrift\") & \"</B></FONT><BR><FONT SIZE=\"\"2\"\">Til føjet af: \" & rs(\"navn\") & \" den \" & rs(\"dato\") & \"</FONT><BR><FONT>\" & rs(\"joke\") & \"</FONT><BR><center><A HREF=\"\" TARGET=\"\" java script:history.back(1)\"\" _top\"\">Tilbage</A></center></p></TD></TR></TABLE>\"\"
      rs.Update
        rs.Close
        myConn.Close
        Set rs = Nothing
        Set myConn = Nothing
    End If
End If
%>
Hvad gør jeg galt ?