---
title: "Ifall det inte finns några kvar..."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/93707-ifall-det-inte-finns-några-kvar"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "DiDjo"
published: "2003-12-31T16:09:04.000Z"
updated: "2003-12-31T22:05:30.000Z"
replies: 5
views: 172
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/93707-ifall-det-inte-finns-några-kvar"
---

# Ifall det inte finns några kvar...

## #1 — DiDjo, 2003-12-31T16:09Z

Hej! Hur gör jag en kod, som kollar om det finns några inlägg kvar i databasen där "rs"(vems") = "Ledig""?

Antagligen en if sats

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

## #2 — LeonL, 2003-12-31T16:11Z

Nej, du använder SQL för att kolla om den returnerar ett EOF. Ex:

```
Set objRS = objConn.Execute("SELECT vems FROM tblTabell WHERE vems = 'Ledig'")
```

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

## #3 — DiDjo, 2003-12-31T16:19Z

ja men om det inte finns några sånna poster då?

Skriver man inte

if rs.eof blabla eller nått sånt?

```
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath (".mdb")
Set rs1 = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM camping WHERE vad = '" & Request.Querystring("vad") & "' AND vems = 'Ledig'"
rs1.Open Addera, Connect, 3, 3
```

Så ser det ut nu! Men om det inte finns några poster som matchar det? Då ska man skickas tillbaka till camping.asp med en session

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

## #4 — Sebbe, 2003-12-31T17:42Z

```
If rs1.EOF Then
  Session("fel") = "Det fanns inga lediga platser."
  Response.Redirect("camping.asp")
Else
  'Annan kod
End If
```

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

## #5 — DiDjo, 2003-12-31T21:23Z

Tack! :P Gott nytt år

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

## #6 — mikul, 2003-12-31T22:05Z

Skulle dock göra så här ;)

```
Dim Sql 'as string
Dim connect, rs 'as objects

Sql = "SELECT * FROM camping WHERE vad = '" &_ 
     Request.Querystring("vad") & "' AND vems = 'Ledig';"

Set Connect = server.createobject("adodb.connection")
Connect.Open "provider=microsoft.jet.oledb.4.0; data source ="& Server.Mappath("db.mdb")

     set rs = Connect.execute(Sql)

          If rs.eof then
               Session("fel") = "Det fanns inga lediga platser."
               Response.Redirect("camping.asp")
          Else
               '// Annan kod
          End if

     rs. Close
     Set rs = Nothing

Connect.Close
Set Connect = Nothing
```

Gott nytt år! :bire

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/93707-ifall-det-inte-finns-några-kvar