---
title: "funkar ej, kaputt, trasigt"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/10893-funkar-ej-kaputt-trasigt"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "aleborg"
published: "2001-08-02T08:53:00.000Z"
updated: "2001-08-02T15:37:00.000Z"
replies: 8
views: 283
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/10893-funkar-ej-kaputt-trasigt"
---

# funkar ej, kaputt, trasigt

## #1 — aleborg, 2001-08-02T08:53Z

Den här koden är skriven av LarsB, den är till för att ändra ett antal poster när en posts ordning ändras, så att alla poster blir numeriskt rätt, dvs 1,2,3,4,5,6,7,8,9 osv.

Får inte detta att funka:

```
SSSQL="Select MarkOrder From Markmat Where MarkID="& Request.QueryString("save")
Set mark=Conn.Execute(SSSQL)
If objUpload.Form("MarkOrder") <> mark("MarkOrder") Then
If objUpload.Form("MarkOrder") > mark("MarkOrder") Then
STSQL = "update Markmat set MarkOrder = MarkOrder - 1 where MarkBel="& mark("MarkBel") &" AND MarkOrder between " & mark("markorder") & " + 1 and " & objUpload.Form("MarkOrder")
else 
STSQL = "update Markmat set MarkOrder = MarkOrder + 1 where MarkBel="& mark("MarkBel") &" AND MarkOrder between " & objUpload.Form("MarkOrder") & " and " & mark("markorder") & " - 1 "
End If
conn.execute STSQL
SSSQL = "update markmat set MarkOrder = " & objUpload.Form("MarkOrder") & " where MarkID="& Request.QueryString("save")
conn.execute SSSQL
end if
mark.Close
Set mark=Nothing
```

Om man ändrar en siffra från 2 till 8 så funkar det men ändrar man från 8 till 2 så blir ordningen 1,2,2,3,4,5,6,7,9

Nån som vet vad felet är???? Please???

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

## #2 — icaaq, 2001-08-02T08:56Z

Vem är LarsB ;)

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

## #3 — aleborg, 2001-08-02T09:01Z

sorry LarsG :e

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

## #4 — emission, 2001-08-02T09:12Z

If cInt(objUpload.Form("MarkOrder")) \> mark("MarkOrder") Then

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

## #5 — aleborg, 2001-08-02T09:46Z

Ingen skillnad :(

```
SSSQL="Select MarkOrder From Markmat Where MarkID="& Request.QueryString("save")
Set mark=Conn.Execute(SSSQL)
If CInt(objUpload.Form("MarkOrder")) <> mark("MarkOrder") Then
If CInt(objUpload.Form("MarkOrder")) > mark("MarkOrder") Then
STSQL = "update Markmat set MarkOrder = MarkOrder - 1 where MarkBel="& mark("MarkBel") &" AND MarkOrder between " & mark("markorder") & " + 1 and " & CInt(objUpload.Form("MarkOrder"))
else 
STSQL = "update Markmat set MarkOrder = MarkOrder + 1 where MarkBel="& mark("MarkBel") &" AND MarkOrder between " & CInt(objUpload.Form("MarkOrder")) & " and " & mark("markorder") & " - 1 "
End If
conn.execute STSQL
SSSQL = "update markmat set MarkOrder = " & CInt(objUpload.Form("MarkOrder")) & " where MarkID="& Request.QueryString("save")
conn.execute SSSQL
end if
mark.Close
Set mark=Nothing
```

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

## #6 — emission, 2001-08-02T09:49Z

Vi Cint:ar vidare....

If CInt(objUpload.Form("MarkOrder")) \<\> CInt(mark("MarkOrder")) Then
If CInt(objUpload.Form("MarkOrder")) \> CInt(mark("MarkOrder")) Then

Det verkar nämligen som att den alltid går in i första satsen.

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

## #7 — aleborg, 2001-08-02T10:25Z

Nu är allt CInt:at
Men ingen skillnad :(

```
SSSQL="Select MarkOrder From Markmat Where MarkID="& Request.QueryString("save")
Set mark=Conn.Execute(SSSQL)
If CInt(objUpload.Form("MarkOrder")) <> CInt(mark("MarkOrder")) Then
If CInt(objUpload.Form("MarkOrder")) > CInt(mark("MarkOrder")) Then
STSQL = "update Markmat set MarkOrder = MarkOrder - 1 where MarkBel="& CInt(mark("MarkBel")) &" AND MarkOrder between " & CInt(mark("markorder")) & " + 1 and " & CInt(objUpload.Form("MarkOrder"))
else 
STSQL = "update Markmat set MarkOrder = MarkOrder + 1 where MarkBel="& CInt(mark("MarkBel")) &" AND MarkOrder between " & CInt(objUpload.Form("MarkOrder")) & " and " & CInt(mark("markorder")) & " - 1 "
End If
conn.execute STSQL
SSSQL = "update markmat set MarkOrder = " & CInt(objUpload.Form("MarkOrder")) & " where MarkID="& Request.QueryString("save")
conn.execute SSSQL
end if
mark.Close
Set mark=Nothing
```

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

## #8 — aleborg, 2001-08-02T10:30Z

Konstigt, på en annan sida har jag det här, och det funkar:

```
SSSQL="Select MarkPathOrder From MarkPath Where MarkPathID="& Request.QueryString("saveMapp")
Set mark=Conn.Execute(SSSQL)
If CInt(Request.Form("Order")) <> CInt(mark("MarkPathOrder")) Then
	If CInt(Request.Form("Order")) > CInt(mark("MarkPathOrder")) Then
		STSQL = "update MarkPath set MarkPathOrder = MarkPathOrder - 1 where MarkPathOrder between " & CInt(mark("MarkPathOrder")) & " + 1 and " & CInt(Request.Form("Order"))
	else
		STSQL = "update MarkPath set MarkPathOrder = MarkPathOrder + 1 where MarkPathOrder between " & CInt(Request.Form("Order")) & " and " & CInt(mark("MarkPathOrder")) & " - 1 "
	End If
		Conn.Execute STSQL
end if
		SQL1="Update MarkPath Set MarkPathName='"& replace (Request.Form("App"), "'", "''") &"', MarkPathOrder='"& replace (Request.Form("Order"), "'", "''") &"' Where MarkPathID="& Request.QueryString("saveMapp")
		Conn.Execute(SQL1)
mark.Close
Set mark=Nothing
```

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

## #9 — aleborg, 2001-08-02T15:37Z

ingen som vet?

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/10893-funkar-ej-kaputt-trasigt