error '800a0bb9'

Der skal naturligvis stå:

        Set RS = Server.CreateObject("ADODB.RecordSet")
        SQL = "SELECT * FROM tblForsendelse"
        RS.CursorType = 2
        RS.LockType = 3
        RS.Open SQL, cString

... er midt i fejlsøgning, derfor lidt variabel miskmask i første eksempel

prøv at kom med lidt mere kode - du snakker om nogle ting vi slet ikke kan se ud fra ovenstående.

Så får du hele bunken :-)

Nedenstående er indsat som en include på hovedsiden.


<%
Dim badValue, badPris, opdateret

If Request.Form <> "" Then
   
    badValue            = False
    badPris                = False

    If isNumeric(Request.Form("pris")) Then
           
        Set RS = Server.CreateObject("ADODB.RecordSet")
        SQL = "SELECT * FROM tblForsendelse"
        RS.CursorType = 2
        RS.LockType = 3
        RS.Open SQL, cString

            RS("betegnelse")    = Request.Form("betegnelse")
            RS("pris")            = Request.Form("pris")
            If Request.Form("aktiv") = "ja" Then
                RS("aktiv")     = "ja"
            Else
                RS("aktiv")     = "nej"
            End if
           
        RS.Update
        RS.Close
        Set RS = Nothing
       
        opdateret = "ja"
        'Response.Redirect "?mode=sprog-vis&opdateret=ja"
    End If
   
    '*** Form udfyldt, men med fejl
    ' ... først identificerer vi hvor fejlen er - til brug for fejlmeddelelser
        If NOT isNumeric(Request.Form("pris"))  Then
            badValue        = True
            badPris            = True
        End If

        'Fyld variabler, så formen får "hukommelse"
        betegnelse            = Request.Form("betegnelse")
        pris                = Request.Form("pris")
End if

    'Generer fejlmeddelelser baseret på "bad" værdier tilskrevet tidligere
    If Request.Form <> "" AND badValue Then %>
        <center><table class="table_admin"><tr><td>
        <p class="errorText"><%=txtFejlIndtastning%></p>
        <p class="broed"><%=txtRetMarkering%></p>
        </td></tr></table></center>   
    <%End If

    'Lave en meddelelse, hvis filerne er opdaterede
    If opdateret = "ja" Then %>
        <center><table class="table_admin"><tr><td>
        <p class="errorText"><%=txtOpdateret%></p>
        </td></tr></table></center>   
    <%End If


    %>
    <!-------------------------- TABEL FORSENDELSE MM -------------------------------->
    <!----------------------------------------------------------------------------------->
    <%
    Set RSstart = Server.CreateObject("ADODB.RecordSet")
    startSQL = "SELECT * FROM tblForsendelse"
    RSstart.CursorType = 2
    RSstart.LockType = 3
    RSstart.Open startSQL, cString
   
    'bug hunting
    'Response.write "RSstart - systemTxt: " & RSstart("systemTxt") & "<br>"
    %>   

      <table class="table_indhold" width="620px">
        <tr>
          <td class="td_adminheader">Forsendelse mm.:</td>
        </tr>
        <tr>
          <td valign="top" class="td_adminindhold">
   
            <%If Not RSstart.EOF Then 'Udskriver (eventuelle) tilmeldte
                Do While Not RSstart.EOF%>
   
                      <form method="post" action="forsendelse/forsendelse-vis.asp" style="text-decoration: none;font-size: 10px;" name="UpdateForm">
                      <input type="hidden" name="id" value="<%=RSstart("id")%>">
                      <input type="hidden" name="mode" value="forsendelse-vis">
                      <input type="hidden" name="betegnelse" value="<%=RSstart("betegnelse")%>">
                      <table class="table_98" cellspacing="0">
                        <tr>
                            <td valign="top" width="120px">
                                <%=RSstart("betegnelse")%>
                            </td>
                            <td valign="top" width="40px">
                                <input type="text" name="pris" value="<%=RSstart("pris")%>" size="4">
                            </td>
                            <td width="80px">
                                <input name="aktiv" type="checkbox" value="ja" <% if RSstart("aktiv") = "ja" then response.write "checked" End if%>>&nbsp;Aktiv
                            </td>
                            <td><input class="button" type="submit" name="submitBtn" value="Gem">
                            <!--<a href="?mode=sprog-delete&amp;id=<%'=RSstart("id")%>">slet</a>-->
                            </td>
                            </td>
                        </tr>
                      </table>
                    </form>
                <%RSstart.MoveNext
                Loop
            Else
                Response.Write "Der er ingen registreringer i databasen ..."
            End If%>
                   
            <p class="lille"><br>Det er ikke muligt at rette betegnelse eller tilføje nye omkostninger.</p>       
          </td>
        </tr>
      </table>


    </center>
    <%
    RSstart.Close
    Set RSstart = Nothing

%>

hvilken linie fejler - synes ikke lige at linie 29 passer til noget i ovenstående? hvilke kolonnetyper bruger du?

Det er fordi jeg har slettet et par rem-linjer ... beklager. Den fejler ved første "RS.Open SQL, cString" som jo så i virkeligeheden er den anden RS.Open, fordi den først kaldes ved forsøg på at sende formularen ...

Arggggg ... stop alt

Har fundet fejlen. Den ligger i min form, som sender direkte til forsendelse/forsendelse-vis.asp. Den skal sende til index.asp med et mode=forsendelse-vis. Min cString bliver sat i en include fil ... som kaldes via index.asp

Beklager ulejligheden. Du tror det nok ikke, men jeg har rodet med det her p.. i næsten en uge. Utroligt at man ikke ser noget så simpelt.

Tak for indsatsen

Måske du kan hjælpe med noget andet ...

Efter at være gået fra access til mysql får jeg nu fejl, hvis jeg forsøger at opdatere en fil, uden at der er ændret i formularen. Altså hvis jeg bare loader siden og trykker på "send" eller "opdater" knappen. Det giver følgende fejl:

  Microsoft OLE DB Provider for ODBC Drivers error '80004005'

  Query-based update failed because the row to update could not be found.

  /admin/forsendelse/forsendelse-vis.asp, line 27

Hvorfor giver det fejl? Og hvorfor står der Microsoft, når jeg nu er gået væk fra access?

Det siger mig desværre ikke noget - du kunne evt prøve noget som jeg finder mere optimalt, nemlig en egentlig update-sql, fx;

UPDATE tabel SET kolonne1 = 'værdi', kolonne2 = 'andenværdi' WHERE id = 5

Det prøver jeg ved lejlighed ... tak

kommet videre?

Sjovt du spørger. Jeg har faktisk netop i går prøvet med en sql update. Det gik ikke så godt. Det er vist for lang tid siden og jeg har helt vænnet mig til recordset metodikken. Kan simpelthen ikke få sql strikket rigtig sammen.

Måske du kan give det et skud?

jeg vil hellere se hvad du indtil videre er nået frem til og hvad du evt får af fejl.

kommet videre?

svar

tak for hjælpen...

Hey keysersoze

Det var nu ikke for at være uhøflig. Men synes bare, at denne tråd var så gammel, at det ikke gav mening at begynde at kommunikere i den igen. Regnede faktisk ikke med, at du stadig overvågede tråden.

Jeg er for nylig blevet belært om, hvordan man lukker gamle spørgsmål. Så jeg løb en bunke igennem i går og tog den lette løsning på mange af dem ... inklusiv denne tråd.

Mht. UPDATE så nåede jeg aldrig til det i ovenstående sammenhæng. Men jeg er ved en senere omlægning af en anden side løbet ind i andre problemer med min RS tilgang. Så jeg har for nylig lavet alle UPDATEs om til mere rene SQL UPDATEs, som virker uden problemer.

Tak for din hjælp ...