Border problem på tabel

Ups

SQL = "SELECT Top 15 * FROM tb_Shops"
skal faktisk være
SQL = "SELECT * FROM tb_Shops"

Ok rent faktisk så er det denne kode:
-------------------------------------------------------------------------------------------------------------------------------
<table cellspacing="0" cellpadding="0" height="134" style="">
<%
CountSQL = "SELECT COUNT(ShopID) AS ShopCount FROM tb_Shops"
Set rsCount = Conn.Execute (CountSQL)
TotalItems = rsCount("ShopCount")
TotalRowNum = TotalItems / 5
TotalRowNum = left(TotalRowNum,1)

SQL = "SELECT * FROM tb_Shops"
Set rs1 = Conn.Execute (SQL)
If Not (rs1.BOF Or rs1.EOF) Then
  noPrRow = 0
  maxPrRow = 5
 
Do While Not rs1.EOF
'---------------------------------------------------------------------
UploadPath = Request.ServerVariables("APPL_PHYSICAL_PATH")&"images\uploaded\"
ImgFile    = "shop_"&rs1("ShopID")&"_logo"
set fs=Server.CreateObject("Scripting.FileSystemObject")
If fs.FileExists(UploadPath&ImgFile&".gif") then
  img="ok"
  imgname = ImgFile&".gif"
ElseIf fs.FileExists(UploadPath&ImgFile&".jpg") then
  img="ok"
  imgname = ImgFile&".jpg"
End If
  If noPrRow = 0 Then
%>
  <tr style="background-color: #ffffff;">
  <% End If %>
    <td width="133" height="134" style="<% If intRowNum <= CInt(TotalRowNum) Then %>border-bottom: 4px solid #694434;<% End If %><% If Not noPrRow = maxPrRow - 1 Then %>border-right: 4px solid #694434;<% End If %> cursor: hand;" onClick="location.href='./?catid=<%= rs1("ShopID") %>'"><% If imgname <> "" Then %><img src="/images/uploaded/<%= imgname %>" width="133" height="134" alt=""><% Else %>&nbsp;<% End If %></td>
<%
  noPrRow = noPrRow + 1
  If noPrRow = maxPrRow Then
    Response.Write "</tr>"
    noPrRow = 0
    intRowNum = intRowNum + 1
  End If
  intRecCount = intRecCount - 1
rs1.MoveNext
Loop
End If
If noPrRow > 0 Then Response.Write "</tr>"
%>
</table>-------------------------------------------------------------------------------------------------------------------------------

Sorry ;)

ok, kl. er 6 og jeg er mega træt. Jeg bliver ved med at poste den forkerte kode :)
Damn... Ok.. Her kommer den rigtige kode. uden pis :)
--------------------------------------------------------------------------------------------------------------------------------
<table cellspacing="0" cellpadding="0" height="134" style="">
<%
SQL = "SELECT * FROM tb_Shops"
Set rs1 = Conn.Execute (SQL)
If Not (rs1.BOF Or rs1.EOF) Then
  noPrRow = 0
  maxPrRow = 5
 
Do While Not rs1.EOF
'---------------------------------------------------------------------
  If noPrRow = 0 Then
%>
  <tr style="background-color: #ffffff;">
  <% End If %>
    <td width="133" height="134" style="border-bottom: 4px solid #694434;<% If Not noPrRow = maxPrRow - 1 Then %>border-right: 4px solid #694434;<% End If %> cursor: hand;">&nbsp;</td>
<%
  noPrRow = noPrRow + 1
  If noPrRow = maxPrRow Then
    Response.Write "</tr>"
    noPrRow = 0
  End If
rs1.MoveNext
Loop
End If
If noPrRow > 0 Then Response.Write "</tr>"
%>
</table>
--------------------------------------------------------------------------------------------------------------------------------

Sådan... ;)

Den if, du har omkring border-right kan du vel pakke din border-bottom ind i også?
(Det ville måske værer pænt med en else-del, der sætter border="0" ??)