Velocity Reviews - Design problem: html and asp.

Hi all,

I have a asp page that display database information at
http://tbm.com.my/Application/tourmasterd.asp. My problem is the vertical
line(90 deg) that I want to make it invisible at the white colour row exists
between each country. May I know how to remove/invisible the vertical line(90
deg) at the white colour row only ?

Please advise. The code is below:

<%@ Language=VBScript %>

<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
</HEAD>
<BODY>
<pre><img src="../../images/Bestour-banner.gif" width="650" height="58"></pre>


 
<%

'server-side function to check for empty/null strings
Function CheckString(strValue)
If Len(strValue & "") = 0 Then
CheckString = " "
Else
CheckString = strValue
End If
End Function

Dim objRec
Set objRec=Server.CreateObject ("ADODB.Recordset")
objRec.Open "Select * From TourMaster Order By CountryCode Asc",
"DSN=bestgolf", adOpenKeyset, adLockOptimistic
%>

<TABLE align="center" CELLPADDING="0" cellspacing="1" WIDTH="100%"
bgcolor="#CCCCCC" bordercolor="#000000">
<THEAD>
<TR CELLSPACING="1" border="1" bgcolor="B9F7B6">
<TD>Country</TD>
<TD>Destination</TD>
<TD>Twin Price from RM</TD>
<TD>Single Price from RM</TD>
<TD>Golf Club Venue</TD>

</TR>
</THEAD>

<%
Dim intCounter
Dim intColourCounter
Dim strCountryCode

intColourCounter = 50
Do Until objRec.EOF
If strCountryCode <> objRec("CountryCode") And intCounter > 0 Then
Response.Write "<TR border=0 CELLSPACING=0
bgcolor=#ffffff><TD> </TD><TD> </TD><TD> </TD><TD> </TD><TD> </TD></TR>"

End If

Response.Write "<TR bgcolor=FCD9BF>" & vbCrLf
If strCountryCode <> objRec("CountryCode") Then
Response.Write "<TD align=center CELLSPACING=0 border=0>" &
CheckString(objRec("CountryDesc")) & "</TD>" & vbCrLf
Else
Response.Write "<TD bgcolor=FCD9BF bordercolor=#FF9900></TD>"
End If

Response.Write " <TD align=center CELLSPACING=1 border=1>" &
CheckString(objRec("DestUrl")) & "</TD>" & vbCrLf
Response.Write " <TD align=center CELLSPACING=1 border=1>" &
FormatNumber(CheckString(objRec("TwinPrice")),2) & " </TD>" & vbCrLf
Response.Write " <TD align=center CELLSPACING=1 border=1>" &
FormatNumber(CheckString(objRec("SinglePrice")),2) & " </TD>" & vbCrLf
Response.Write " <TD align=center CELLSPACING=1 border=1>" &
CheckString(objRec("Venue")) & "</TD>" & vbCrLf

Response.Write "</TR>"
strCountryCode = objRec("CountryCode")
intCounter = intCounter + 1

intColourCounter = intColourCounter+50

objRec.MoveNext
Loop
%>

</TABLE>

| <a href="\index.htm">Home</a> | About Us
|Packages| <a href="\ContactUs.htm">Contact
Us</a>|
 

</BODY>
</HTML>

Regards,