loopa igenom databas

Hej! Jag har en funktion att man kan köpa ett "rum" på en sida! Jag har redan rummen redo i databasen! Hur gör jag för att loopa ut alla? E rumet ledigt ska det stå Ledigt Brevid typ så här:

Rum 1 Ledigt Checka in
Rum 2 Upptaget
osv...

På checka in ska de vara en länk till en annan sida på...

Så här ser databasen ut:
id: automatisk räknare
rum: rums nr / nr
vems: Vem som äger det (dvs tomt ifall det e ledigt) /text
typ: Om rumet e "VIP" lr lyxigare /nr

Hoppas ni förstår!

while not rs.eof

if rs("vems")<>"" then
Response.write "Ledigt Checka in"
else
Response.write "Upptaget"
end if

rs.movenext
wend

oki tack! Nu har jag lagt till mina koder.... Men då får jag detta fel:

Microsoft VBScript runtime error '800a01a8' 

Object required: '' 

/!hotell/Checka.asp, line 48

Här e koden:

<%
Conn1.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("ensökväg.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM rummen"
rs.Open Addera, Conn1, 3, 3
%>
 <table border="0" width="241" cellpadding="0" cellspacing="0" height="1" align="right">
   <tr>
    <td width="133" height="1"><b><font size="2"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Rum</font></b></td>
    <td width="230" height="1">
    <p align="left"><font size="2"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Status</b></font></td>
  </tr>
<%while not rs.eof

if rs("vems")<>"" then
SQL2 = "SELECT * FROM rummen ORDER BY rum"

Set Rs = Conn1.Execute(SQL2)
Do Until Rs.EOF
Response.Write "<tr>"
Response.Write "<td width=100 align=left><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""1"">"&  Rs("rum") & "</td>"
Response.Write "<td width=100 align=center><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""1"">Ledigt</td>"
Response.Write "</tr>"
Rs.MoveNext

Loop
else
SQL1 = "SELECT * FROM rummen ORDER BY rum"

Set Rs = Conn1.Execute(SQL1)
Do Until Rs.EOF
Response.Write "<tr>"
Response.Write "<td width=100 align=left><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""1"">"&  Rs("rum") & "</td>"
Response.Write "<td width=100 align=center><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""1"">Upptaget</td>"
Response.Write "</tr>"
Rs.MoveNext

Loop

end if

rs.movenext
wend%>
</td>
</form>
</tr>
  </font></table>

OBS Kan se flummigt ut men jag har inte hållt på med ASP i flera månader =/

Tre sql-satser ser överflödigt ut.
Hur vill du ha resultatet?

3??? Jag ser bara 2...? Resultatet som jag vill ha är att de ska stå typ följande:
Rum: Status:
1 Ledigt Checka in
2 Ledigt Checka in
3 Upptaget
osv.....

Jag har redan fyllt i rummen i databasen så dom finns redan! Det jag vill är att den ska loppa ut alla i nummer ordning... Sen efter ska de stå upptaget lr Ledigt, de beror på om någon "bor" där eller inte (Om vems är ifyllt eller inte)

<%
Conn1.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("ensökväg.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
[red]Addera = "SELECT * FROM rummen"[/red]
rs.Open Addera, Conn1, 3, 3
%>
 <table border="0" width="241" cellpadding="0" cellspacing="0" height="1" align="right">
   <tr>
    <td width="133" height="1"><b><font size="2"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Rum</font></b></td>
    <td width="230" height="1">
    <p align="left"><font size="2"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Status</b></font></td>
  </tr>
<%while not rs.eof

if rs("vems")<>"" then
[red]SQL2 = "SELECT * FROM rummen ORDER BY rum"[/red]

Set Rs = Conn1.Execute(SQL2)
Do Until Rs.EOF
Response.Write "<tr>"
Response.Write "<td width=100 align=left><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""1"">"&  Rs("rum") & "</td>"
Response.Write "<td width=100 align=center><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""1"">Ledigt</td>"
Response.Write "</tr>"
Rs.MoveNext

Loop
else
[red]SQL1 = "SELECT * FROM rummen ORDER BY rum"[/red]

Set Rs = Conn1.Execute(SQL1)
Do Until Rs.EOF
Response.Write "<tr>"
Response.Write "<td width=100 align=left><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""1"">"&  Rs("rum") & "</td>"
Response.Write "<td width=100 align=center><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""1"">Upptaget</td>"
Response.Write "</tr>"
Rs.MoveNext

Loop

end if

rs.movenext
wend%>
</td>
</form>
</tr>
  </font></table>

<%
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("ensökväg.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM rummen order by rum"
rs.Open Addera, Conn, 3, 3
%>
 <table border="0" width="241" cellpadding="0" cellspacing="0" height="1" align="right">
   <tr>
    <td width="133" height="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Rum</font></b></td>
    <td width="230" height="1">
    <p align="left"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Status</font></b></td>
  </tr>
<%
Do while not rs.eof

Response.Write "<tr><td width=100 align=left><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""1"">"&  Rs("rum") & "</td>"&_
"<td width=100 align=center><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""1"">"
if rs("vems")<>"" then
Response.write "Ledigt"
Else
Response.write "Upptaget"
end if
Response.write "</td></tr>"

Rs.MoveNext
Loop
Rs.close 
Conn.close
%>
</td>
</tr>
</table>

F.Ö. Tänk på att font-taggar är ett utdöende släkte.
Tänk också på att detta är fel:
<font><b>Text</font></b>
Medans detta är rätt:
<font><b>Text</b></font>

Tja! Ledsen att jag inte svarat.. inte haft tid med websidan... Jag tog din nyaste kod du la in! Men får ändå sammafel! Jag ändrade conn till conne ifall jag har conn lr connect någon annanstanns (Efter som jag inkluderar några sidor) Men så här e felet:

Microsoft VBScript runtime error '800a01a8' 

Object required: '' 

/!hotell/Checka.asp, line 48

Rad 48:

<%
48-->Conne.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("hrmm")
Set rs4 = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM rummen order by rum"
rs4.Open Addera, Conne, 3, 3
%>

Jag antar att det ska stå så här på den raden:

Conn1.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("hrmm")

Utan att ha läst hela tråden, utan endast det sista inlägget:

Har du skapat objektet Conne då? Du kan inte öppna det om det inte är skapat.

oj oj oj va skämmit! Jag glömde lägga till de :r
haha tack JesperT och @nders för att ni hjälpte mig! Det funkar fin fint nu!