Hvad er der galt her?

Prøv evt.

<%
    Sub AddNew_tblFAG_UNDERVISER
        'Der indsættes en række i tblFAG_UNDERVISER
        Dim objRS_AddNew_tblFAG_UNDERVISER       
        Set objRS_AddNew_tblFAG_UNDERVISER = Server.CreateObject("ADODB.Recordset")
        With objRS_AddNew_tblFAG_UNDERVISER
            .Open "tblFAG_UNDERVISER", strConnect, adOpenStatic, adLockOptimistic, adCmdTable
            .MoveLast
            .AddNew
            ("Fagomraade").Value = strFagomraade
            ("Navn").Value = Session("ValgtUnderviser")
            .Update
            .Close
        End With
        set AddNew_tblFAG_UNDERVISER = Nothing
    End sub
%>

Prøv med .Fields.Item("xxxx").Value sådan her i With delen:


        With objRS_AddNew_tblFAG_UNDERVISER
            .Open "tblFAG_UNDERVISER", strConnect, adOpenStatic, adLockOptimistic, adCmdTable
            .MoveLast
            .AddNew
            .Fields.Item("Fagomraade").Value = strFagomraade
            .Fields.Item("Navn").Value = Session("ValgtUnderviser")
            .Update
            .Close
        End With

Det prøver jeg så snart jeg kommer hjem - en gang i eftermiddag / aften!!

eaqleeye:

har afprøve dit forslag og får nu følgende fejl:

Fejltype:
ADODB.Recordset (0x800A0BB9)
Argumenterne har en forkert type eller er uden for det angivne område, eller der er opstået en konflikt mellem dem.
/MySkills/subs.asp, line 23


Min aktuelle kode:

Sub AddNew_tblKURSUS_UNDERVISER
        'Indholdet af subOpret sendes til databasen
        Dim objRS_AddNew_tblKURSUS_UNDERVISER       
        Set objRS_AddNew_tblKURSUS_UNDERVISER = Server.CreateObject("ADODB.Recordset")
        With objRS_AddNew_tblKURSUS_UNDERVISER
            .Open "tblKURSUS_UNDERVISER", strConnect, adOpenStatic, adLockOptimistic, adCmdTable
            .Movelast
            .AddNew
            .Fields.Item("Fagomraade").value = strFagomraade
            .Fields.Item("Kursustitel").value = strKursustitel
            .Fields.Item("Navn").value = Session("ValgtUnderviser")
            .Fields.Item("Erfaring").value = 1
            .Fields.Item("K_Kommentar").value = strKommentar
            .Update
            .Close
        End With
        set objRS_AddNew_tblKURSUS_UNDERVISER = Nothing
    End sub

Hvilken er linie 23?

.Open "tblKURSUS_UNDERVISER", strConnect, adOpenStatic, adLockOptimistic, adCmdTable

Er de forskellige konstanter definere  strConnect, adOpenStatic, adLockOptimistic, adCmdTable

Prøv evt uden adCmdTable:

.Open "tblKURSUS_UNDERVISER", strConnect, adOpenStatic, adLockOptimistic

Jeg har nu ændret koden (noget anderledes end dit forslag dog) men får nu en anden fejl:

Fejltype:
Microsoft JET Database Engine (0x80040E09)
Databasen eller objektet er skrivebeskyttet og kan ikke opdateres.
/MySkills/subs.asp, line 27

Bemærk: DATABASEN ER ALTSÅ IKKE SKRIVEBESKYTTET!!!

Koden er nu:


Sub AddNew_tblKURSUS_UNDERVISER
        'Indholdet af subOpret sendes til databasen
        Dim objRS_AddNew_tblKURSUS_UNDERVISER       
        Set objRS_AddNew_tblKURSUS_UNDERVISER = Server.CreateObject("ADODB.Recordset")
        With objRS_AddNew_tblKURSUS_UNDERVISER
            .CursorType = 0
            .CursorLocation = 2
            .LockType = 2
            .Open "tblKURSUS_UNDERVISER", strConnect
            .AddNew
            .Fields.Item("Fagomraade").value = strFagomraade
            .Fields.Item("Kursustitel").value = strKursustitel
            .Fields.Item("Navn").value = Session("ValgtUnderviser")
            .Fields.Item("Erfaring").value = 1
            .Fields.Item("K_Kommentar").value = strKommentar
            .Update
            .Close
        End With
        set objRS_AddNew_tblKURSUS_UNDERVISER = Nothing
    End sub

Fejlen kan skyldes du ikke har skriverettigheder til enten databasen eller den folder dtabasen ligger i.

Se mere her:
http://activedeveloper.dk/aspdigital/kapitel2/updateable_query.asp

Eller så prøv at rette disse linier:
            .CursorType = 0
            .CursorLocation = 2
            .LockType = 2

Til:
            .CursorType = 2
            .LockType = 2

for hvis CursorType = 0 kan man ikke opdater/indsætte i databasen.

Det må være den sidste løsning det med filer er read only er hvis fejlkoden er  80004005 men stort set samme tekst.

Følgende fejl:

Fejltype:
Microsoft JET Database Engine (0x80040E09)
Databasen eller objektet er skrivebeskyttet og kan ikke opdateres.
/MySkills/subs.asp, line 29


Ved følgende kode:

Sub AddNew_tblKURSUS_UNDERVISER
        'Indholdet af subOpret sendes til databasen
        Dim objRS_AddNew_tblKURSUS_UNDERVISER       
        Set objRS_AddNew_tblKURSUS_UNDERVISER = Server.CreateObject("ADODB.Recordset")
        With objRS_AddNew_tblKURSUS_UNDERVISER
            .CursorType = 2
            .LockType = 2
            .Open "tblKURSUS_UNDERVISER", strConnect
            .Movelast
            .AddNew
            .Fields.Item("Fagomraade").value = strFagomraade
            .Fields.Item("Kursustitel").value = strKursustitel
            .Fields.Item("Navn").value = Session("ValgtUnderviser")
            .Fields.Item("Erfaring").value = 1
            .Fields.Item("K_Kommentar").value = strKommentar
            .Update
            .Close
        End With
        set objRS_AddNew_tblKURSUS_UNDERVISER = Nothing
    End sub

------------
.AddNew er linie 29

Følgende fejl:

Fejltype:
Microsoft JET Database Engine (0x80040E24)
Rækkesættet understøtter ikke baglæns hentning.
/MySkills/subs.asp, line 28


ved følgende kode:

Sub AddNew_tblKURSUS_UNDERVISER
        'Indholdet af subOpret sendes til databasen
        Dim objRS_AddNew_tblKURSUS_UNDERVISER       
        Set objRS_AddNew_tblKURSUS_UNDERVISER = Server.CreateObject("ADODB.Recordset")
        With objRS_AddNew_tblKURSUS_UNDERVISER
            .CursorType = 0
            .LockType = 1
            .Open "tblKURSUS_UNDERVISER", strConnect
            .Movelast
            .AddNew
            .Fields.Item("Fagomraade").value = strFagomraade
            .Fields.Item("Kursustitel").value = strKursustitel
            .Fields.Item("Navn").value = Session("ValgtUnderviser")
            .Fields.Item("Erfaring").value = 1
            .Fields.Item("K_Kommentar").value = strKommentar
            .Update
            .Close
        End With
        set objRS_AddNew_tblKURSUS_UNDERVISER = Nothing
    End sub

-------------
.Movelast er linie 28

du behøver ikke  .Movelast  når du skal bruge .AddNew

Du kan se her hvad forskellen er på de forskellige Cursor/Lock types:

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/adoce31/html/ado30ref_28.asp

Jeg er godt nok rådvild

har forsøgt mange kombinationer - hvad pokker er der galt!

Kan jeg gøre det på en anden måde.

Jeg skal smide 3 oplysninger i en række i hver deres felt. Er der en anden måde at lave forbindelsen til databasen!

Du kan lave det sådan her med SQL, her antager jeg alle dine kolonne er defineret som tekst undtagen kolonnnen  Erfaring :

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strConnect

SQL = "INSERT INTO tblKURSUS_UNDERVISER (Fagomraade, Kursustitel, Navn, Erfaring, K_Kommentar) VALUES ('" & strFagomraade & "', '" & strKursustitel & "', '" & Session("ValgtUnderviser") & "', 1, '" & strKommentar & "')"
Conn.Execute (SQL)
Conn.Close

OK - det er hermed afprøvet men virker desværre ikke.

Følgende fejl:

Fejltype:
Microsoft JET Database Engine (0x80004005)
Handlingen skal bruge en opdaterbar forespørgsel.
/MySkills/subs.asp, line 18

ved følgende kode:

Sub InsertInto_tblKURSUS_UNDERVISER
        'Indholdet af subOpret sendes til databasen
        Dim Conn,SQL
        Set Conn = Server.CreateObject("ADODB.Connection")
        Conn.Open strConnect
        SQL = "INSERT INTO tblKURSUS_UNDERVISER (Fagomraade, Kursustitel, Navn, Erfaring, K_Kommentar) VALUES ('" & strFagomraade & "', '" & strKursustitel & "', '" & Session("ValgtUnderviser") & "', 1, '" & strKommentar & "')"
        Conn.Execute SQL
        Conn.Close
    End sub

---------
"Conn.Execute SQL" er linie 18

Ok den fejl betyder at det er database filen eller folderen som er skrive beskyttet... Det er åbenbart to forskellige fejl koder.. :(

http://activedeveloper.dk/aspdigital/kapitel2/updateable_query.asp

Er det et hos et web-hotel eller din egen server?

min egen iis server

hvad gør jeg - jeg har prøvet at sætte skrive rettigheder hvor jeg lige kan komme til det!

Jeg er ret desperat efter at få det til at virke - det skal bruges på min arbejdsplads i morgen!!!

i må dele i porten - har ikke tid til at vurdere yderligere!