---
title: "finn felet"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/10759-finn-felet"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "orvar"
published: "2001-07-24T17:27:00.000Z"
updated: "2001-07-24T18:54:00.000Z"
replies: 4
views: 155
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/10759-finn-felet"
---

# finn felet

## #1 — orvar, 2001-07-24T17:27Z

Hade varit skitbra om nån kunde tala om vad jag gör för fel...har följande skript:

```
<html>
<body>
<!-- #include virtual="/inc/adovbs.inc" -->

<% If Request.QueryString("ordna").Count > 0 Then 

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Artiklar"

Set RecSet = Server.CreateObject("ADODB.Recordset")
If Request.QueryString("ordna") = "rubrik" Then
  Lista = "SELECT ID, Rubrik, Last FROM Artiklar ORDER BY Rubrik"
Else If Request.QueryString("ordna") = "datum" Then
  Lista = "SELECT ID, Rubrik, Last FROM Artiklar ORDER BY ID"
Else If Request.QueryString("ordna") = "last" Then
  Lista = "SELECT ID, Rubrik, Last FROM Artiklar ORDER BY Last DESC"
End If
RecSet.Open Lista, Connect, adOpenStatic, adLockOptimistic

Do Until RecSet.EOF %>
<a href="default.asp?ID=<%=RecSet("ID")%>">
<%=RecSet("Rubrik")%></a><br>

<% RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
(((I BÖRJAN AV RADEN NEDAN ÄR FELET)))
ElseIf Request.QueryString("ID").Count > 0 Then

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Artiklar"

Set RecSet = Server.CreateObject("ADODB.Recordset")
Lista = "SELECT * FROM Artiklar WHERE ID = " & Trim(Request.QueryString("ID")) & " "
RecSet.Open Lista, Connect, adOpenStatic, adLockOptimistic 
RecSet("Last") = RecSet("Last")+1
RecSet.Update%>

IDnr:<br>
<%=RecSet("ID")%><br><br>
Rubriken:<br>
<%=RecSet("Rubrik")%><br><br>
Huvudtexten:<br>
<%=RecSet("Huvudtext")%><br><br>
Sidotexten:<br>
<%=RecSet("Sidotext")%><br><br>
Bild-URLn:<br>
<%=RecSet("Bildurl")%><br><br>
Datum:<br>
<%=RecSet("Datum")%><br><br>
Läst:<br>
<%=RecSet("Last")%><br><br>

<%
RecSet.Close
Connect.Close

Else %>
Skriv ?ID eller ?ordna vettja!
<% EndIf%>
</body>
</html>
```

När jag kör detta får jag ett fel som säger att "End" väntas, när jag lägger till det får jag att "If" vänder direkt efter. När jag lägger till det får jag "Expected statement" fel. Vet någon vad jag ska göra? Andra tips på änding i koden är också välkommen då jag är rätt ny på DBprogg.

Tack!

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

## #2 — Pace, 2001-07-24T17:31Z

End If ska det vara, med mellanslag.

Sedan kan du ju också "paketera ihop" så att du skriver följande parti med Response.Write:

```
IDnr:<br>
<%=RecSet("ID")%><br><br>
Rubriken:<br>
<%=RecSet("Rubrik")%><br><br>
Huvudtexten:<br>
<%=RecSet("Huvudtext")%><br><br>
Sidotexten:<br>
<%=RecSet("Sidotext")%><br><br>
Bild-URLn:<br>
<%=RecSet("Bildurl")%><br><br>
Datum:<br>
<%=RecSet("Datum")%><br><br>
Läst:<br>
<%=RecSet("Last")%><br><br>
```

Det går snabbare.

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

## #3 — orvar, 2001-07-24T18:24Z

Tack, fast nu blir det typ samma sak fast med End If på tredje sista raden.
Om jag skriver "End If" får jag felmeddelandet "Expected 'End'" Om jag bara skriver "End" (utan If) får jag får jag "Expected 'If'"
End
\__\_^

Och om jag skriver EndIf (ihopsatt) får jag "Expected Statement".

(Jag tog bort Else på raden med förra felet för att få det att fungera)

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

## #4 — LarsG, 2001-07-24T18:38Z

Om du skriver ihop else och if till ett ord så ...

```
If Request.QueryString("ordna") = "rubrik" Then
Lista = "SELECT ID, Rubrik, Last FROM Artiklar ORDER BY Rubrik"
ElseIf Request.QueryString("ordna") = "datum" Then
Lista = "SELECT ID, Rubrik, Last FROM Artiklar ORDER BY ID"
ElseIf Request.QueryString("ordna") = "last" Then
Lista = "SELECT ID, Rubrik, Last FROM Artiklar ORDER BY Last DESC"
End If
```

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

## #5 — orvar, 2001-07-24T18:54Z

tack!!
för resten av kvällen är du min gud =)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/10759-finn-felet