slette og oprette dynamisk aftal records

Har du definere  rs_produkt  som et connection object og åbnet for connectionen til databaen??

Set rs_produkt = Server.CreateObject("ADODB.Connection")
rs_produkt.Open "Connection streng til database"

koden:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/t.asp" -->
<%

Set rs_produkt = Server.CreateObject("ADODB.Connection")
rs_produkt.Open "MM_bst_STRING"

SQL  = "DELETE FROM relation WHERE produkt_id = " & request("produkt_id")
set r = rs_produkter.Execute (SQL)

do until r.eof
    SQL  = "DELETE FROM relation WHERE produkt_id = " & r("produkt_id")
    response.Write("rs_produkt")
    'rs_produkt.Execute (SQL)
    r.movenext
loop

Response.Redirect("rediger_produkt.asp")
%>
<%=request.form("produkter_total")%>
<%
rs_produkter.Close()
Set rs_produkter = Nothing
%>



fejlen:
Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Driver Manager] Datakildenavnet blev ikke fundet, og der er ikke angivet en standarddriver.
line 6

Når det er en konstant som er angiver skal der ikke " omkring:

rs_produkt.Open MM_bst_STRING

Den connection du åbner hedder:  rs_produkt

Den som bruges til at udføre SQL sæningen med hedder: rs_produkter

Det skal nok være det samme navn i begge linier.

Hum,
det giver samme fejl,
men jeg må vist erkende er jeg er ved at gå kold for i dag.

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/t.asp" -->
<%

Set rs_produkter = Server.CreateObject("ADODB.Connection")
rs_produkter.Open "MM_bst_STRING"

SQL  = "DELETE FROM relation WHERE produkt_id = " & request("produkt_id")
set r = rs_produkter.Execute (SQL)

do until r.eof
    SQL  = "DELETE FROM relation WHERE produkt_id = " & r("produkt_id")
    response.Write("rs_produkt")
    'rs_produkter.Execute (SQL)
    r.movenext
loop

'Response.Redirect("rediger_produkt.asp")
%>
<%=request.form("produkter_total")%>
<%
rs_produkter.Close()
Set rs_produkter = Nothing
%>

kikker videre i morgen

Hvis du sletter for en database med SQL får du ikke et recordset tilbase så denne linie:
set r = rs_produkter.Execute (SQL)

kan rettes til:
rs_produkter.Execute (SQL)


Og deremd kan du også undvære dit loop:
do until r.eof
    SQL  = "DELETE FROM relation WHERE produkt_id = " & r("produkt_id")
    response.Write("rs_produkt")
    'rs_produkter.Execute (SQL)
    r.movenext
loop

Prøv også at rette denne linie:

rs_produkter.Open "MM_bst_STRING"

Til:
rs_produkter.Open MM_bst_STRING

ok den er på plads, jeg takker.

nu er det bare at skrive det nye antal records, der giver mig problemer:
'sletter
SQL_d  = "DELETE FROM relation WHERE produkt_id = " & request("produkt_id")
rs_produkter.Execute (SQL_d)

'skriver
SQL_a = "INSERT into relation ("produkt_id") values (request("produkt_id"))
rs_produkter.Execute (SQL_a)

SQL_a skal skrive antallet af records i tabellen child og skrive tallet CID i record CID i relationer. Request ("produkt_id") skal skrives alle stedet i produkt_id

Kan du hjælpe, jeg opretter et nye spørgsmål:

http://www.eksperten.dk/spm/264157