---
title: "Fel på kod?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/6208-fel-på-kod"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Brimba"
published: "2000-08-06T15:23:00.000Z"
updated: "2000-08-07T06:35:00.000Z"
replies: 2
views: 174
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/6208-fel-på-kod"
---

# Fel på kod?

## #1 — Brimba, 2000-08-06T15:23Z

Hej!

```
	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
```

Vad kan vara fel på denna kod?

Permalänk: https://www.webforum.nu/p/6208

## #2 — jispir, 2000-08-06T15:26Z

Vad får du för felmeddelande??

Permalänk: https://www.webforum.nu/p/245001

## #3 — Brimba, 2000-08-07T06:35Z

Här kommer ny kod:

```
	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?

Tack!

Permalänk: https://www.webforum.nu/p/245002

---

Tråden på webben: https://www.webforum.nu/amne/asp/6208-fel-på-kod