Ifall det inte finns några kvar...

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'")

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

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

Tack! :P Gott nytt år

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