---
title: "Platser Ledig/Upptagen"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/71560-platser-ledig-upptagen"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "voigtann1"
published: "2003-03-19T14:24:36.000Z"
updated: "2003-03-19T17:25:31.000Z"
replies: 10
views: 274
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/71560-platser-ledig-upptagen"
---

# Platser Ledig/Upptagen

## #1 — voigtann1, 2003-03-19T14:24Z

Jag håller på med en kod som jag vill att den ska lista 4 bilder på rad (röda och gröna)
Den ska kolla om tex A1 finns i databasen.. då ska den bli röd annars ska den vara grön

så om plats A1 och A2 är upptagna så ska A3 och A4 vara gröna. Hur gör man detta?
kod jag kör nu (helt fel)

```
<%
SQL = "SELECT * " &_
      " FROM lan INNER JOIN users ON lan.username = users.id" &_
      " WHERE (((lan.vilket_lan)=# " & nextlan & "#)) order by dator=true,namn"
set Recset = Databas.Execute(SQL)

plats = recset("plats")

do until recset.eof

if plats = ("A"&a) then
  response.write "upptagen<br>"
else
  response.write "ledig<br>"
end if
a = a+1
recset.movenext
loop

%>
```

OBS: Jag kommer även köra fler rader som B1-B4 -\> D1-D4.. all hjälp här skulle sitta fint :e

ska se ut så här "när jag är färdig":

```
U L L L
U L L L
L L L L
L L L L
```

där L är ledig och U är upptagen :e

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

## #2 — Engine^, 2003-03-19T15:03Z

Räcker det inte om du stoppar in *plats = recset("plats")* innanför loopen?

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

## #3 — voigtann1, 2003-03-19T15:06Z

nej :( då skriver den alltid bara ut två ledig.. konstigt..

även om det skulle fungera så blir det ju inte riktigt som jag vill ha på slut resultatet..

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

## #4 — Engine^, 2003-03-19T15:15Z

```
do until recset.eof
  plats = recset("plats")

  for a = 1 to 4
    if plats = ("A" & a) then
      response.write "U&nbsp;"
    else
      response.write "L&nbsp;"
    end if

    if plats = ("B" & a) then
      response.write "U&nbsp;"
    else
      response.write "L&nbsp;"
    end if

    if plats = ("C" & a) then
      response.write "U&nbsp;"
    else
      response.write "L&nbsp;"
    end if

    if plats = ("D" & a) then
      response.write "U&nbsp;<br>"
    else
      response.write "L&nbsp;<br>"
    end if
  next

  recset.movenext
loop
```

Vad returnerar sql-satsen?

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

## #5 — voigtann1, 2003-03-19T15:17Z

har inte testat din kod men detta har jag fått "igång" men detta är väll klumpigt:

```
<%
a = 1

for a = a to 4

SQL = "SELECT * " &_
      " FROM lan INNER JOIN users ON lan.username = users.id" &_
      " WHERE (((lan.vilket_lan)=# " & nextlan & "# and lan.plats = 'A" &a&"'))"
set Recset = Databas.Execute(SQL)
if recset.eof then
response.write "Ledig<br>"
else
response.write recset("username") &"<br>"
end if
recset.close
set recset = nothing

next 

%>
```

där fungera A1-A4..

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

## #6 — voigtann1, 2003-03-19T15:19Z

Din kod fungera... nästan får 

```
1U L L L 
2L L L L 
3L L L L 
4L L L L 
1L L L L 
2U L L L 
3L L L L 
4L L L L
```

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

## #7 — voigtann1, 2003-03-19T15:24Z

för varje "träff" dvs om jag har A1 A2 och B2 då kommer din kod loopar sej tre gånger.. du kan ju tänka dej själv hur det blir :e

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

## #8 — Engine^, 2003-03-19T15:37Z

Hehe... jo det  är ju sant :)

Jag har feberyrsel tror jag... jag får problem att tänka när jag inte förstår vilken data du får ut. Trött nu...

Du skulle ju kunna göra så att du tar en tvådimensionell matris, som representerar platserna. Loopa igenom den och skriv ut... \*tänker högt\*

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

## #9 — voigtann1, 2003-03-19T15:44Z

typ något sånt ja :e

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

## #10 — voigtann1, 2003-03-19T15:55Z

```
<!-- #include file="database.asp" -->
<table class=no cellpadding="0">
<tr>
<%
a = 1

for a = a to 4

SQL = "SELECT * " &_
      " FROM lan INNER JOIN users ON lan.username = users.id" &_
      " WHERE (((lan.vilket_lan)=# " & nextlan & "# and lan.plats = 'A" &a&"'))"
set Recset = Databas.Execute(SQL)
if recset.eof then
response.write "<td><img src=pics/ledig.gif></td>"
else
response.write "<td><img src=pics/bokad.gif></td>"
end if
recset.close
set recset = nothing

SQL = "SELECT * " &_
      " FROM lan INNER JOIN users ON lan.username = users.id" &_
      " WHERE (((lan.vilket_lan)=# " & nextlan & "# and lan.plats = 'B" &a&"'))"
set Recset = Databas.Execute(SQL)
if recset.eof then
response.write "<td><img src=pics/ledig.gif></td>"
else
response.write "<td><img src=pics/bokad.gif></td>"
end if
recset.close
set recset = nothing

SQL = "SELECT * " &_
      " FROM lan INNER JOIN users ON lan.username = users.id" &_
      " WHERE (((lan.vilket_lan)=# " & nextlan & "# and lan.plats = 'C" &a&"'))"
set Recset = Databas.Execute(SQL)
if recset.eof then
response.write "<td><img src=pics/ledig.gif></td>"
else
response.write "<td><img src=pics/bokad.gif></td>"
end if
recset.close
set recset = nothing

SQL = "SELECT * " &_
      " FROM lan INNER JOIN users ON lan.username = users.id" &_
      " WHERE (((lan.vilket_lan)=# " & nextlan & "# and lan.plats = 'D" &a&"'))"
set Recset = Databas.Execute(SQL)
if recset.eof then
response.write "<td><img src=pics/ledig.gif></td></tr>"
else
response.write "<td><img src=pics/bokad.gif></td></tr>"
end if
recset.close
set recset = nothing

next 

%></tr></table>
```

Nu fungera det.. kan jag få höra "klumpig kod" mmm :e

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

## #11 — solbulle, 2003-03-19T17:25Z

Oj vilken klumpig kod! ;)
Inte för att jag vet om denna är så mycket smidigare:

```
<!-- #include file="database.asp" -->

<%
response.write "<table class=no cellpadding=""0""><tr>"

myArr = array("A","B","C","D")

For a = 1 to 4
	For i = 0 to ubound(myArr)
		Call checkdb(myArr(i)&a)
	Next 
Next

response.write "</tr></table>"

Sub checkdb(position)

SQL = "SELECT * " &_
      " FROM lan INNER JOIN users ON lan.username = users.id" &_
      " WHERE (((lan.vilket_lan)=# " & nextlan & "# and lan.plats = '" & position &"'))"
set Recset = Databas.Execute(SQL)
if recset.eof then
	pic = "ledig"
else
	pic = "bokad"
end if
response.write "<td><img src=pics/" & pic & ".gif></td>"
recset.close
set recset = nothing
End Sub
%>
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/71560-platser-ledig-upptagen