for i=1 to request.form("kats").count
thiskat=Server.HTMLEncode(request.form("kats")(i))
if request.form(thiskat) <> "" Then
RSObj.AddNew
RSObj("PaketID") = paketID
strArr=split(request.form(thiskat),";")
x = strArr(0)
y = strArr(1)
z = strArr(3)
RSObj(z & "ID") = x
RSObj(z & "Ant") = Server.HTMLEncode(request.form(thiskat & "qty"))
RSObj(z & "Exkl") = y
RSObj.Update
Else
End If
next
RSObj.Source = "T_Paket"
RSObj.Open
RSObj.AddNew
RSObj("PaketNamn") = request.form("paketnamn")
RSObj("PaketPris") = request.form("paketpris")
RSObj.Update
paketID = RSObj("PaketID")
RSObj.Close
RSObj.Source = "T_PaketDator"
RSObj.Open
for i=1 to request.form("kats").count
thiskat=Server.HTMLEncode(request.form("kats")(i))
if request.form(thiskat) <> "" Then
if RSObj("PaketID") = paketID Then
strArr=split(request.form(thiskat),";")
z = strArr(3)
RSObj(z & "ID") = strArr(0)
RSObj(z & "Ant") = Server.HTMLEncode(request.form(thiskat & "qty"))
RSObj(z) = strArr(2)
RSObj(z & "Exkl") = strArr(1)
RSObj.Update
Else
RSObj.AddNew
RSObj("PaketID") = paketID
strArr=split(request.form(thiskat),";")
z = strArr(3)
RSObj(z & "ID") = strArr(0)
RSObj(z & "Ant") = Server.HTMLEncode(request.form(thiskat & "qty"))
RSObj(z) = strArr(2)
RSObj(z & "Exkl") = strArr(1)
RSObj.Update
End If
Else
End If
next
Saken är den att jag har en räknare i tabellen T_Paket.
Denna kod fungerar perfekt om jag tar bort den sista raden ut T_Paket, men om jag försöker lägga till ett paket till så blir det flera rader i T_PaketDator istället för att den uppdateras som jag vill när "RSObj("PaketID") = paketID".
Någon som förstår mitt obegripliga inlägg, och problem?
