opdatering af JA/NEJ felt

Hej

Fejlen ligger nok i hvad der er du gemmer i din TxtArray(i) !!
Hvordan har du lavet dit Array??

Wrong number of arguments or invalid property assignment: 'replace' plejer gerne at betyde at du forsøger at erstatte i en streng uden indhold !

/Rasmus :-)

TxtVar = request.form()
TxtArray = Split(TxtVar,"&")

Problemet er at du gemmer hele parret i dit array(formfeltnavn=feltværdi), også skriver den det ud.
Prøv at gører sådan her istedet for nu du henter værdierne fra request.form ud:

<%    TxtVar = ""
    ' opbyg en streng med kun værdierne fra request.form objektet
    for each element in request.form
        TxtVar = TxtVar & request.form(element) & ","
    next
    TxtVar = left(TxtVar,len(TxtVar-1)) ' klip det sidste , af ellers går der kludder i senere løkker
    TxtArray = split(TxtArray,",") 'dan aray udfra strengen %>

Har du brug for form feltets navn kan du bruge:

for each element in request.form
    TxtVar = TxtVar & element & ","
next

Type mismatch: '[string: "on,on,on,"]'

TxtVar = left(TxtVar,len(TxtVar-1)) '?

jeg ikke forstå ...

det jeg gør er at opbygge en streng med værdierne fra request.form.

f.eks. 1,2,3,4,5,
da jeg hvergang jeg jeg sætter en ny værdi på strengen sætter et komma på til at splitte på, bliver jeg lige nødt til at fjerne det sidste tegn som er et komma.

Tror du skal erstatte TxtVar = TxtVar & request.form(element) & ","
med TxtVar = TxtVar & element & ","

nu udskriver den intet?

Dim TxtVar, SqlVar
TxtVar = ""
' opbyg en streng med kun værdierne fra request.form objektet
for each element in request.form
TxtVar = TxtVar & element & ","
next
TxtVar = left(TxtVar,len(TxtVar-1)) ' klip det sidste , af ellers går der kludder i senere løkker
TxtArray = split(TxtArray,",") 'dan array udfra strengen

For i = LBound(TxtArray) To UBound(TxtArray)
SqlVar = "INSERT into relation (produkt_id, cid, Valgt) VALUES (" & request("produkt_id") & "," & TxtArray(i) & ",True)"
response.Write(SqlVar)
'rs_relation.Execute (SqlVar)
Next

Jeg har siddet med det i tre dage nu og er ved at gå bananas, jeg skal ud af døren nu. Kikker når jeg kommer hjem.
takker ;o)

sorry en lille syntax fejl havde jeg lavet...

TxtVar = left(TxtVar,len(TxtVar)-1)

i for løkken giver request.form(element) værdien(value) fra felterne og element er navnet.

Sorry
Den opdaterer stadigt ikke feltet valgt?

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

<%
Set rs_relation = Server.CreateObject("ADODB.Connection")
rs_relation.Open MM_bst_STRING

'sletter alle records med produkt_id
SQL_d  = "DELETE FROM relation WHERE produkt_id = " & request("produkt_id")
rs_relation.Execute (SQL_d)

'tilføjer alle CID fra Child - der kunne være nye
SQL_a = "INSERT into relation (produkt_id, CID) SELECT " & request("produkt_id") & ",CID FROM child"
rs_relation.Execute (SQL_a)

Dim TxtVar, SqlVar
TxtVar = ""
' opbyg en streng med kun værdierne fra request.form objektet
for each element in request.form
TxtVar = TxtVar & element & ","
next
TxtVar = left(TxtVar,len(TxtVar)-1) ' klip det sidste , af ellers går der kludder i senere løkker
TxtArray = split(TxtArray,",") 'dan array udfra strengen

For i = LBound(TxtArray) To UBound(TxtArray)
SqlVar = "INSERT into relation (produkt_id, cid, Valgt) VALUES (" & request("produkt_id") & "," & TxtArray(i) & ",True)"
'response.Write(SqlVar)
rs_relation.Execute (SqlVar)
Next

'response.Redirect("rediger_produkt.asp?produkt_id="&request("produkt_id"))
%>

<%
rs_relation.Close()
Set rs_relation = Nothing
%>

Kan du gennemskue hvorfor:
SqlVar = "INSERT into relation (produkt_id, cid, Valgt) VALUES (" & request("produkt_id") & "," & TxtArray(i) & ",True)"
ikke opdatere valgt til True?

Hvilken database benytter du??
Får du en fejl, eller gør den bare ikke noget??

Jeg modtager ingen fejl, og jeg benytte access.

Den her udskriver intet?

Dim TxtVar, SqlVar
TxtVar = ""

for each element in request.form
TxtVar = TxtVar & element & ","
next
TxtVar = left(TxtVar,len(TxtVar)-1)
TxtArray = split(TxtArray,",")

For i = LBound(TxtArray) To UBound(TxtArray)
SqlVar = "INSERT into relation (produkt_id, cid, Valgt) VALUES (" & request("produkt_id") & "," & TxtArray(i) & ",True)"
response.Write(SqlVar)
'rs_relation.Execute (SqlVar)
Next

Prøv at udskrive din TxtVar efter du har lavet den, efter TxtArray = split(TxtArray,",")!! kan du se noget her??

Hvis jeg udskriver her:

for each element in request.form
TxtVar = TxtVar & element & ","
next
TxtVar = left(TxtVar,len(TxtVar)-1)
TxtArray = split(TxtArray,",")
response.Write(TxtVar)

giver det: 1 for felt 1 markeret
og 1,2,3 for de tre første felter markeret

giver det dig et clue?

Yes got it - tror jeg ;-)

du har skrevet TxtArray = split(TxtArray,",")
det skal være TxtArray = split(TxtVar,",")

Tror jeg fik skrevet forkert igår sorry !!

Takker 100000, det virker.