Design problem: html and asp.

Discussion in 'ASP General' started by Ethics, Oct 11, 2004.

  1. Ethics

    Ethics Guest

    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 %>
    <!--#include file="adovbs.inc" -->
    <HTML>
    <HEAD>
    <META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
    </HEAD>
    <BODY>
    <pre><img src="../../images/Bestour-banner.gif" width="650" height="58"></pre>
    <!--Display the page data-->

    <br>
    <%

    'server-side function to check for empty/null strings
    Function CheckString(strValue)
    If Len(strValue & "") = 0 Then
    CheckString = "&nbsp;"
    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><STRONG>Country</STRONG></TD>
    <TD><STRONG>Destination</STRONG></TD>
    <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>

    </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><B>" &
    CheckString(objRec("CountryDesc")) & "</B></TD>" & vbCrLf
    Else
    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


    objRec.MoveNext
    Loop
    %>

    </TABLE>

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

    </BODY>
    </HTML>






    Regards,
     
    Ethics, Oct 11, 2004
    #1
    1. Advertising

  2. Ethics

    John Guest

    John, Oct 11, 2004
    #2
    1. Advertising

Want to reply to this thread or ask your own question?

It takes just 2 minutes to sign up (and it's free!). Just click the sign up button to choose a username and then you can ask your own questions on the forum.
Similar Threads
  1. Pallav singh
    Replies:
    0
    Views:
    410
    Pallav singh
    Jan 22, 2012
  2. Pallav singh
    Replies:
    0
    Views:
    433
    Pallav singh
    Jan 22, 2012
  3. Pallav singh
    Replies:
    1
    Views:
    471
    Peter Remmers
    Jan 22, 2012
  4. Adam Akhtar
    Replies:
    9
    Views:
    590
    Florian Gilcher
    Aug 16, 2008
  5. josh
    Replies:
    5
    Views:
    615
    Robert Klemme
    Dec 27, 2011
Loading...

Share This Page