strColorCell ?

wuzzle · Dec 20, 2000

Ok, this code states that the link to the current page is hilighted. I still want it to be hilighted, but I don't want the cell to be blue. I want the text to be red.

Here is the first part:

<%
function strColorCell (strCellURL)
'Purpose: For Navbars -- bolds the cell background if it contains a link to the current page.
'Arguments:
'strCellURL -- a unique portion of the URL to which this cell links.
'Returns: an HTML string which either colors the cell's background, or leaves it alone.
dim strPresentURL
strPresentURL=Request.ServerVariables("PATH_INFO&quot

if instr (1,strPresentURL,strCellURL,1)>0 then
strColorCell=" bgcolor=#999CC"
else
strColorCell=""
end if
end function
%>

And here is where it's applied:

<td <%=strColorCell("/hosting/default.asp&quot

%>>
<font size=1 face="tahoma,arial"><b>
<a href="/hosting/" class=textBlack onMouseOver="this.className='textRed'" onMouseOut="this.className='textBlack'">Website Hosting</a>
</b></font>
</td>

Any suggestions for me? I tried strColorText...didn't work.
Thanks!

swilliams · Dec 20, 2000

I think this may be due to Request.ServerVariables("PATH_INFO&quot

not holding what you are expecting. There is nothing wrong with the script - I have got it to work, just changing the value that is passed into the function (ie "/hosting/default.asp&quot

.

To debug this, add the line:

strColorCell = " " & Request.ServerVaraibles("PATH_INFO&quot

immediately before the end function line. Refresh your page and then view source. You should see the variable contents written to the table <td> tag. Then, you can tell whether the InStr function will return 0 or not. I think it is returning 0, so the value of the function is "" - set in the else statement.

This is the page that works for me:

<html>
<head>
<title>Testing bgcolor in table cell</title>
<%
Private function strColorCell (strCellURL)
'Purpose: For Navbars -- bolds the cell background if it contains a link to the current page.
'Arguments:
'strCellURL -- a unique portion of the URL to which this cell links.
'Returns: an HTML string which either colors the cell's background, or leaves it alone.
dim strPresentURL
strPresentURL=Request.ServerVariables("PATH_INFO&quot

if instr(strPresentURL,strCellURL)>0 then
strColorCell=" bgcolor=#999CC"
else
strColorCell=""
end if

'strColorCell = Request.ServerVariables("PATH_INFO&quot

end function
%>
</head>
<body>
<table border=1>
<tr>
<td<%=strColorCell("/sdw/test6.asp&quot

%>>
<font size=1 face="tahoma,arial"><b>
<a href="/hosting/" class=textBlack onMouseOver="this.className='textRed'" onMouseOut="this.className='textBlack'">Website Hosting</a>
</b>
</font>
</td>
</tr>
<tr>
<td><a href="

http://www.QuoVadis.bm">QuoVadis</a></td>

<tr>
</table>

</body>
</html>

where the path /sdw sits in the default web folder (

http://wwwroot).

To do my debug suggestion, just remove the comment marker from the line.

Simon

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

strColorCell ?

wuzzle

Programmer

swilliams

Programmer

Part and Inventory Search

Sponsor