Lave opdeling mellem felter
Hej !Nu kan jeg ikke gennemskue min egen kode mere...
http://test.totalpc.dk/booking/index2.asp
Der kan I se hvordan det ser ud nu. Men jeg vil gerne have en sort streg mellem de grønne firkanter nedad også, men jeg kan sgu ik lige greje den. Koden ser sådan her ud :
<html>
<head>
<title>Bordreservation</title>
</head>
<body><br><br><br>
<br><br><br>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="50%">
<tr>
<td><img src=firkantg.GIF></td>
<td><font face=verdana size=1>=Ledigt bord. Klik på det for at reservere!</font></td>
</tr>
<tr>
<td><img src=firkantr.GIF></td>
<td><font face=verdana size=1>=Reserveret! Hold musen over bordet for at se hvem der har reserveret!</font></td>
</tr>
</table>
</div>
<div align="center">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="50%" bordercolor="#000000" bgcolor="#C0C0C0" >
<tr>
<td>
<table border="1" cellpadding="0" cellspacing="0" style="border-width:0px; border-collapse: collapse" width="100%" id="table1">
<tr>
<td width='10%' style="border-style: none; border-width: medium"> </td>
<td width='10%' style="border-style: none; border-width: medium"><font face=verdana size=1>Indgang</td>
<td width='10%' style="border-style: none; border-width: medium"> </td>
<td width='10%' style="border-style: none; border-width: medium"><font face=verdana size=1>Til omklædningen</td>
</tr>
</table>
<br><br><br>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("booking.mdb")
Conn.Open DSN
%>
<!--
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="50%">
<tr>
<td><img src=firkantg.GIF></td>
<td><font face=verdana size=1>=Ledigt bord. Klik på det for at reservere!</font></td>
</tr>
<tr>
<td><img src=firkantr.GIF></td>
<td><font face=verdana size=1>=Reserveret! Hold musen over bordet for at se hvem der har reserveret!</font></td>
</tr>
</table>
-->
<div align="center">
<table border="1" width="50%" cellpadding='0' cellspacing='0' border='1' bordercolor='#000000' style='border-collapse: collapse'>
<tr>
<%
for row = 1 to 1
for plads = 1 to 6
strSQL = "SELECT * FROM bordreservation WHERE bord='1' AND reservation='optaget' AND plads='" & plads & "' AND row='" & row & "'"
set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
Response.Write"<td align='center' style='border-right-style: none; border-right-width: medium' height='10px' width='10%'>"
Response.Write"<A HREF='indtast_reservation.asp?plads=" & plads & "&row=" & row & "&bord=1&reservation=optaget'><img border=0 src='firkantg.gif' alt='Ledig' align='center'>"
Else
Response.Write"<td align='center' style='border-right-style: none; border-right-width: medium' height='10px' width='10%'>"
Response.Write"<img border=0 src='firkantr.gif' align='center' alt='" & rs("navn") & "'>"
rs.MoveNext
End if
next
next
%>
</td>
</tr>
<tr>
<td align="center" style="border-bottom-style: none; border-bottom-width: medium" >
<%
for row = 1 to 2
for plads = 1 to 1
strSQL = "SELECT * FROM bordreservation WHERE bord='2' AND reservation='optaget' AND plads='" & plads & "' AND row='" & row & "'"
set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
Response.Write"<A HREF='indtast_reservation.asp?plads=" & plads & "&row=" & row & "&bord=2&reservation=optaget'><img border=0 align='center' src='firkant9g.gif' alt='Ledig'><br>"
Else
Response.Write"<img border=0 src='firkant9r.gif' align='center' alt='" & rs("navn") & "'>"
rs.MoveNext
End if
next
next
%>
</td>
<td align="center" style="border-bottom-style: none; border-bottom-width: medium; border-right-style:none; border-right-width:medium" colspan="4"> </td>
<td align="center" style="border-bottom-style: none; border-bottom-width: medium">
<%
for row = 1 to 2
for plads = 1 to 1
strSQL = "SELECT * FROM bordreservation WHERE bord='3' AND reservation='optaget' AND plads='" & plads & "' AND row='" & row & "'"
set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
Response.Write"<A HREF='indtast_reservation.asp?plads=" & plads & "&row=" & row & "&bord=3&reservation=optaget'><img border=0 align='center' src='firkant9g.gif' alt='Ledig'><br>"
Else
Response.Write"<img border=0 src='firkant9r.gif' align='center' alt='" & rs("navn") & "'>"
rs.MoveNext
End if
next
next
%>
</td>
</tr>
<tr>
<td align="center" style="border-bottom-style: none; border-bottom-width: medium" >
<%
for row = 1 to 2
for plads = 1 to 1
strSQL = "SELECT * FROM bordreservation WHERE bord='4' AND reservation='optaget' AND plads='" & plads & "' AND row='" & row & "'"
set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
Response.Write"<A HREF='indtast_reservation.asp?plads=" & plads & "&row=" & row & "&bord=4&reservation=optaget'><img border=0 align='center' src='firkant9g.gif' alt='Ledig'><br>"
Else
Response.Write"<img border=0 src='firkant9r.gif' align='center' alt='" & rs("navn") & "'>"
rs.MoveNext
End if
next
next
%>
</td>
<td align="center" style="border-bottom-style: none; border-bottom-width: medium; border-right-style:none; border-right-width:medium" colspan="4"> </td>
<td align="center" style="border-bottom-style: none; border-bottom-width: medium">
<%
for row = 1 to 2
for plads = 1 to 1
strSQL = "SELECT * FROM bordreservation WHERE bord='5' AND reservation='optaget' AND plads='" & plads & "' AND row='" & row & "'"
set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
Response.Write"<A HREF='indtast_reservation.asp?plads=" & plads & "&row=" & row & "&bord=5&reservation=optaget'><img border=0 align='center' src='firkant9g.gif' alt='Ledig'><br>"
Else
Response.Write"<img border=0 src='firkant9r.gif' align='center' alt='" & rs("navn") & "'>"
rs.MoveNext
End if
next
next
%>
</td>
</tr> <tr>
<td align="center" style="border-bottom-style: none; border-bottom-width: medium" >
<%
for row = 1 to 2
for plads = 1 to 1
strSQL = "SELECT * FROM bordreservation WHERE bord='6' AND reservation='optaget' AND plads='" & plads & "' AND row='" & row & "'"
set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
Response.Write"<A HREF='indtast_reservation.asp?plads=" & plads & "&row=" & row & "&bord=6&reservation=optaget'><img border=0 align='center' src='firkant9g.gif' alt='Ledig'><br>"
Else
Response.Write"<img border=0 src='firkant9r.gif' align='center' alt='" & rs("navn") & "'>"
rs.MoveNext
End if
next
next
%>
</td>
<td align="center" style="border-bottom-style: none; border-bottom-width: medium; border-right-style:none; border-right-width:medium" colspan="4"> </td>
<td align="center" style="border-bottom-style: none; border-bottom-width: medium">
<%
for row = 1 to 2
for plads = 1 to 1
strSQL = "SELECT * FROM bordreservation WHERE bord='7' AND reservation='optaget' AND plads='" & plads & "' AND row='" & row & "'"
set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
Response.Write"<A HREF='indtast_reservation.asp?plads=" & plads & "&row=" & row & "&bord=7&reservation=optaget'><img border=0 align='center' src='firkant9g.gif' alt='Ledig'><br>"
Else
Response.Write"<img border=0 src='firkant9r.gif' align='center' alt='" & rs("navn") & "'>"
rs.MoveNext
End if
next
next
%>
</td>
</tr>
<tr>
<td align="center" style="border-bottom-style: none; border-bottom-width: medium" >
<%
for row = 1 to 2
for plads = 1 to 1
strSQL = "SELECT * FROM bordreservation WHERE bord='8' AND reservation='optaget' AND plads='" & plads & "' AND row='" & row & "'"
set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
Response.Write"<A HREF='indtast_reservation.asp?plads=" & plads & "&row=" & row & "&bord=8&reservation=optaget'><img border=0 align='center' src='firkant9g.gif' alt='Ledig'><br>"
Else
Response.Write"<img border=0 src='firkant9r.gif' align='center' alt='" & rs("navn") & "'>"
rs.MoveNext
End if
next
next
%>
</td>
<td align="center" style="border-bottom-style: none; border-bottom-width: medium; border-right-style:none; border-right-width:medium" colspan="4"> </td>
<td align="center" style="border-bottom-style: none; border-bottom-width: medium">
<%
for row = 1 to 2
for plads = 1 to 1
strSQL = "SELECT * FROM bordreservation WHERE bord='9' AND reservation='optaget' AND plads='" & plads & "' AND row='" & row & "'"
set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
Response.Write"<A HREF='indtast_reservation.asp?plads=" & plads & "&row=" & row & "&bord=9&reservation=optaget'><img border=0 align='center' src='firkant9g.gif' alt='Ledig'><br>"
Else
Response.Write"<img border=0 src='firkant9r.gif' align='center' alt='" & rs("navn") & "'>"
rs.MoveNext
End if
next
next
%>
</td>
</tr>
<tr>
<%
for row = 1 to 1
for plads = 1 to 6
strSQL = "SELECT * FROM bordreservation WHERE bord='10' AND reservation='optaget' AND plads='" & plads & "' AND row='" & row & "'"
set rs = Conn.Execute(strSQL)
if rs.EOF or rs.BOF then
Response.Write"<td align='center' style='border-right-style: none; border-right-width: medium' height='10px' width='10%'>"
Response.Write"<A HREF='indtast_reservation.asp?plads=" & plads & "&row=" & row & "&bord=10&reservation=optaget'><img border=0 src='firkantg.gif' alt='Ledig' align='center'>"
Else
Response.Write"<td align='center' style='border-right-style: none; border-right-width: medium' height='10px' width='10%'>"
Response.Write"<img border=0 src='firkantr.gif' align='center' alt='" & rs("navn") & "'>"
rs.MoveNext
End if
next
next
Conn.Close
Set Conn = Nothing
%>
</td>
</tr>
</table>
<br><br><br>
</div>
</body>
