Har problem med et lille system.

Jeg har et problem med det her script.

Den melder fejl ved i line 87:
      rs1.AddNew

Dette er fejlen:
Error Type:
ADODB.Recordset (0x800A0CB3)
Object or provider is not capable of performing requested operation.
/RaiX/Community/AccepterKupon.asp, line 87


KODE:
-----------------------------------------------------------------

<html>
<!--#include file="WhoBanned.asp"-->
<%
Randomize
t1r1 = int(rnd * 100 + 1)
t2r1 = int(rnd * 100 + 1)
t3r1 = int(rnd * 100 + 1)
t4r1 = int(rnd * 100 + 1)
t5r1 = int(rnd * 100 + 1)
t6r1 = int(rnd * 100 + 1)
t7r1 = int(rnd * 100 + 1)
t1r2 = int(rnd * 100 + 1)
t2r2 = int(rnd * 100 + 1)
t3r2 = int(rnd * 100 + 1)
t4r2 = int(rnd * 100 + 1)
t5r2 = int(rnd * 100 + 1)
t6r2 = int(rnd * 100 + 1)
t7r2 = int(rnd * 100 + 1)
t1r3 = int(rnd * 100 + 1)
t2r3 = int(rnd * 100 + 1)
t3r3 = int(rnd * 100 + 1)
t4r3 = int(rnd * 100 + 1)
t5r3 = int(rnd * 100 + 1)
t6r3 = int(rnd * 100 + 1)
t7r3 = int(rnd * 100 + 1)
t1r4 = int(rnd * 100 + 1)
t2r4 = int(rnd * 100 + 1)
t3r4 = int(rnd * 100 + 1)
t4r4 = int(rnd * 100 + 1)
t5r4 = int(rnd * 100 + 1)
t6r4 = int(rnd * 100 + 1)
t7r4 = int(rnd * 100 + 1)
t1r5 = int(rnd * 100 + 1)
t2r5 = int(rnd * 100 + 1)
t3r5 = int(rnd * 100 + 1)
t4r5 = int(rnd * 100 + 1)
t5r5 = int(rnd * 100 + 1)
t6r5 = int(rnd * 100 + 1)
t7r5 = int(rnd * 100 + 1)
t1r6 = int(rnd * 100 + 1)
t2r6 = int(rnd * 100 + 1)
t3r6 = int(rnd * 100 + 1)
t4r6 = int(rnd * 100 + 1)
t5r6 = int(rnd * 100 + 1)
t6r6 = int(rnd * 100 + 1)
t7r6 = int(rnd * 100 + 1)
t1r7 = int(rnd * 100 + 1)
t2r7 = int(rnd * 100 + 1)
t3r7 = int(rnd * 100 + 1)
t4r7 = int(rnd * 100 + 1)
t5r7 = int(rnd * 100 + 1)
t6r7 = int(rnd * 100 + 1)
t7r7 = int(rnd * 100 + 1)
t1r8 = int(rnd * 100 + 1)
t2r8 = int(rnd * 100 + 1)
t3r8 = int(rnd * 100 + 1)
t4r8 = int(rnd * 100 + 1)
t5r8 = int(rnd * 100 + 1)
t6r8 = int(rnd * 100 + 1)
t7r8 = int(rnd * 100 + 1)
t1r9 = int(rnd * 100 + 1)
t2r9 = int(rnd * 100 + 1)
t3r9 = int(rnd * 100 + 1)
t4r9 = int(rnd * 100 + 1)
t5r9 = int(rnd * 100 + 1)
t6r9 = int(rnd * 100 + 1)
t7r9 = int(rnd * 100 + 1)
t1r10 = int(rnd * 100 + 1)
t2r10 = int(rnd * 100 + 1)
t3r10 = int(rnd * 100 + 1)
t4r10 = int(rnd * 100 + 1)
t5r10 = int(rnd * 100 + 1)
t6r10 = int(rnd * 100 + 1)
t7r10 = int(rnd * 100 + 1)

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../DB/Community.mdb") & ""

    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "Select * From Lotto WHERE id = " & Request.Querystring("id")
    rs.Open strSQL, Conn

    Set rs1 = Server.CreateObject("ADODB.RecordSet")
    strSQL = "Select * From Lotto1"
    rs1.Open strSQL, Conn

      rs1.AddNew
      rs1("brugernavn") = rs("brugernavn")
      rs1("ejer") = rs("ejer")
      rs1("ip") = Request.ServerVariables("REMOTE_ADDR")
      rs1("t1r1") = t1r1
      rs1("t2r1") = t2r1
      rs1("t3r1") = t3r1
      rs1("t4r1") = t4r1
      rs1("t5r1") = t5r1
      rs1("t6r1") = t6r1
      rs1("t7r1") = t7r1
      rs1("t1r1") = t1r2
      rs1("t2r1") = t2r2
      rs1("t3r1") = t3r2
      rs1("t4r1") = t4r2
      rs1("t5r1") = t5r2
      rs1("t6r1") = t6r2
      rs1("t7r1") = t7r2
      rs1("t1r1") = t1r3
      rs1("t2r1") = t2r3
      rs1("t3r1") = t3r3
      rs1("t4r1") = t4r3
      rs1("t5r1") = t5r3
      rs1("t6r1") = t6r3
      rs1("t7r1") = t7r3
      rs1("t1r1") = t1r4
      rs1("t2r1") = t2r4
      rs1("t3r1") = t3r4
      rs1("t4r1") = t4r4
      rs1("t5r1") = t5r4
      rs1("t6r1") = t6r4
      rs1("t7r1") = t7r4
      rs1("t1r1") = t1r5
      rs1("t2r1") = t2r5
      rs1("t3r1") = t3r5
      rs1("t4r1") = t4r5
      rs1("t5r1") = t5r5
      rs1("t6r1") = t6r5
      rs1("t7r1") = t7r5
      rs1("t1r1") = t1r6
      rs1("t2r1") = t2r6
      rs1("t3r1") = t3r6
      rs1("t4r1") = t4r6
      rs1("t5r1") = t5r6
      rs1("t6r1") = t6r6
      rs1("t7r1") = t7r6
      rs1("t1r1") = t1r7
      rs1("t2r1") = t2r7
      rs1("t3r1") = t3r7
      rs1("t4r1") = t4r7
      rs1("t5r1") = t5r7
      rs1("t6r1") = t6r7
      rs1("t7r1") = t7r7
      rs1("t1r1") = t1r8
      rs1("t2r1") = t2r8
      rs1("t3r1") = t3r8
      rs1("t4r1") = t4r8
      rs1("t5r1") = t5r8
      rs1("t6r1") = t6r8
      rs1("t7r1") = t7r8
      rs1("t1r1") = t1r9
      rs1("t2r1") = t2r9
      rs1("t3r1") = t3r9
      rs1("t4r1") = t4r9
      rs1("t5r1") = t5r9
      rs1("t6r1") = t6r9
      rs1("t7r1") = t7r9
      rs1("t1r1") = t1r10
      rs1("t2r1") = t2r10
      rs1("t3r1") = t3r10
      rs1("t4r1") = t4r10
      rs1("t5r1") = t5r10
      rs1("t6r1") = t6r10
      rs1("t7r1") = t7r10
      rs1.Update

    rs1.Close
    Set rs1 = Nothing
    rs.Close
    Set rs = Nothing

Conn.Close
set Conn = Nothing
%>
<HTML>
<HEAD>
    <TITLE>RaiX - Kreative nyheder!</TITLE>
</HEAD>
<BODY>
<b>Lotto :.</b>
<br><br>
<center>Kupon(er) blev accepteret.</center>
</BODY>
</HTML>

-----------------------------------------------------------------