E
Ethics
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 = " "
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,
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 = " "
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,