Velocity Reviews

Velocity Reviews (
-   ASP General (
-   -   Design problem: html and asp. (

Ethics 10-11-2004 08:01 AM

Design problem: html and asp.
Hi all,

I have a asp page that display database information at 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 %>
<!--#include file="" -->
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<pre><img src="../../images/Bestour-banner.gif" width="650" height="58"></pre>
<!--Display the page data-->


'server-side function to check for empty/null strings
Function CheckString(strValue)
If Len(strValue & "") = 0 Then
CheckString = "&nbsp;"
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">
<TR CELLSPACING="1" border="1" bgcolor="B9F7B6">
<TD><STRONG>Twin Price<BR>from RM</STRONG></TD>
<TD><STRONG>Single Price<BR>from RM</STRONG></TD>
<TD><STRONG>Golf Club Venue</STRONG></TD>


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><B>" &
CheckString(objRec("CountryDesc")) & "</B></TD>" & vbCrLf
Response.Write "<TD bgcolor=FCD9BF bordercolor=#FF9900></TD>"
End If

Response.Write " <TD align=center CELLSPACING=1 border=1><B>" &
CheckString(objRec("DestUrl")) & "</B></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



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



John 10-11-2004 11:49 AM

Re: Design problem: html and asp.
Response.Write "<TD style=""border:0px""><STRONG>Country</STRONG></TD>"


All times are GMT. The time now is 08:02 AM.

Powered by vBulletin®. Copyright ©2000 - 2014, vBulletin Solutions, Inc.
SEO by vBSEO ©2010, Crawlability, Inc.