Søg
Avatar billede jannick281090 Nybegynder
20. november 2004 - 13:29 Der er 7 kommentarer og
1 løsning

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>

-----------------------------------------------------------------
Avatar billede hiks Nybegynder
20. november 2004 - 22:25 #1
hej

jeg mener det har noget at gøre med din måde at åbne den tabel du vil skrive til på. Prøv at ændre din åbning af dit recordset til update:

rs1.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

/hiks
Avatar billede jannick281090 Nybegynder
21. november 2004 - 10:51 #2
Altså det du mener er det her??

    Set rs1 = Server.CreateObject("ADODB.RecordSet")
    strSQL = "Update * From Lotto1"
    rs1.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
Avatar billede jannick281090 Nybegynder
21. november 2004 - 10:54 #3
adOpenKeyset, adLockOptimistic kommer den med en anden fejl...

Error Type:
ADODB.Recordset (0x800A0BB9)
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/RaiX/Community/AccepterKupon.asp, line 85
Avatar billede hiks Nybegynder
21. november 2004 - 11:11 #4
det er mit bedste bud på hvad der er galt. En fejl i låsningen altså.

prøv evt. at slette det du satte ind og så istedet inden du laver rs1.addnew at have disse to linier med:

rs1.CursorType = 1
rs1.LockType = 3
Avatar billede jannick281090 Nybegynder
21. november 2004 - 12:13 #5
Nope, det virker heller ik... :D
Avatar billede jannick281090 Nybegynder
21. november 2004 - 12:56 #6
*gg* har fundet fejlen :D prøvede at skrive i de samme felter hele vejen, kig lidt nedover scriptet så ser i det :D
Avatar billede jannick281090 Nybegynder
21. november 2004 - 13:03 #7
Har rettet til det her nu, der er samme fejl som i starten, så vi fortsætter...

<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("t1r2") = t1r2
      rs1("t2r2") = t2r2
      rs1("t3r2") = t3r2
      rs1("t4r2") = t4r2
      rs1("t5r2") = t5r2
      rs1("t6r2") = t6r2
      rs1("t7r2") = t7r2
      rs1("t1r3") = t1r3
      rs1("t2r3") = t2r3
      rs1("t3r3") = t3r3
      rs1("t4r3") = t4r3
      rs1("t5r3") = t5r3
      rs1("t6r3") = t6r3
      rs1("t7r3") = t7r3
      rs1("t1r4") = t1r4
      rs1("t2r4") = t2r4
      rs1("t3r4") = t3r4
      rs1("t4r4") = t4r4
      rs1("t5r4") = t5r4
      rs1("t6r4") = t6r4
      rs1("t7r4") = t7r4
      rs1("t1r5") = t1r5
      rs1("t2r5") = t2r5
      rs1("t3r5") = t3r5
      rs1("t4r5") = t4r5
      rs1("t5r5") = t5r5
      rs1("t6r5") = t6r5
      rs1("t7r5") = t7r5
      rs1("t1r6") = t1r6
      rs1("t2r6") = t2r6
      rs1("t3r6") = t3r6
      rs1("t4r6") = t4r6
      rs1("t5r6") = t5r6
      rs1("t6r6") = t6r6
      rs1("t7r6") = t7r6
      rs1("t1r7") = t1r7
      rs1("t2r7") = t2r7
      rs1("t3r7") = t3r7
      rs1("t4r7") = t4r7
      rs1("t5r7") = t5r7
      rs1("t6r7") = t6r7
      rs1("t7r7") = t7r7
      rs1("t1r8") = t1r8
      rs1("t2r8") = t2r8
      rs1("t3r8") = t3r8
      rs1("t4r8") = t4r8
      rs1("t5r8") = t5r8
      rs1("t6r8") = t6r8
      rs1("t7r8") = t7r8
      rs1("t1r9") = t1r9
      rs1("t2r9") = t2r9
      rs1("t3r9") = t3r9
      rs1("t4r9") = t4r9
      rs1("t5r9") = t5r9
      rs1("t6r9") = t6r9
      rs1("t7r9") = t7r9
      rs1("t1r10") = t1r10
      rs1("t2r10") = t2r10
      rs1("t3r10") = t3r10
      rs1("t4r10") = t4r10
      rs1("t5r10") = t5r10
      rs1("t6r10") = t6r10
      rs1("t7r10") = 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>Kuponen blev accepteret.</center>
</BODY>
</HTML>
Avatar billede jannick281090 Nybegynder
05. december 2004 - 22:49 #8
Afslutter, det har taget for lang tid.
Og skal ikke bruge scriptet alligevel...!
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 9 25/06/202622:20 29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 16:21 Installere Ubuntu på Virtuel Maskine Af Uvanga i Andet software
I går 09:38 Microsoft har igen ødelagt mit højreklik Af valby i Windows
30/0714:41 To mails fra YouSee - Jeg tror ikke altid på tilfældigheder Af mort1 i Andet sikkerhed
27/0714:34 Hjælp til at kunne skanne negativer på Plustek 8300i SE Af Mariann i Foto & video
27/0713:58 Mapperne Dokumenter og Overførsler er forsvundet efter geninstallation af Win11 Af bragger i Windows
White papers
Flere white papers »