Welcome, Guest ( Customer Panel | Login )




 All Forums
 VPCart Forum
 Customization
 Left column hypelink color
 New Topic  Reply to Topic
 Printer Friendly
Author Previous Topic Topic Next Topic  

microwil
Starting Member

14 Posts

Posted - January 06 2006 :  16:51:29  Show Profile  Reply with Quote
I was new to ASP and database, but with some html. I set up the left column as below to show one category of products for selection, but silly enough don't know how and where to change the link color of those products to my desired color. As it is not that simple as html, don't know where (shop$colors.asp ?) to start from. Please help me on this. Mnay thanks.


<table width="153" border="0" cellspacing="0" cellpadding="0" >
<tr>

<td width="152" height="17"><img src="Images/art_Lftshopbrand.jpg" width="152" height="27"></td>

</tr>
<tr>
<td width="152" height="94">

<%

Dim resultset,sqlstring,conn,hassubcategory
ShopOpenDatabase conn

sqlstring ="Select * from categories where highercategoryid=1 and cathide is null "


If getconfig("xselectproductsbylanguage")="Yes" and getsess("language")<>"" then
sqlstring=sqlstring & " and (catlanguage='" & getsess("language") & "'"
sqlstring=sqlstring & " or catlanguage is null)"
end if
sqlstring=sqlstring & " order by " & Getconfig("xsortcategories")
Set resultset=conn.execute(sqlstring)
While Not resultset.EOF

hassubcategory=resultset("hassubcategory")
If isnull(hassubcategory) then
hassubcategory=""
end if
if hasSubcategory ="" then
response.Write " <img src='Images/art_dot.jpg' width='5' height='5'><img src='Images/Spacing.gif' width='5' height='1'><a HREF='shopdisplayproducts.asp?id=" & resultset("categoryid") & "&cat=" & Server.URLEncode(resultset("catdescription")) & addwebsesslink & "' class='sidelinks'>" & resultset("catdescription") & "</a><BR>"
else
response.Write " <img src='Images/art_dot.jpg' width='5' height='5'><img src='Images/Spacing.gif' width='5' height='1'><a HREF='shopdisplaycategories.asp?id=" & resultset("categoryid") & "&cat=" & Server.URLEncode(resultset("catdescription")) & addwebsesslink & "' class='sidelinks'>" & resultset("catdescription") & "...</a><BR>"

end if

resultset.MoveNext
Wend

%>

</td>
</tr>

</table>

microwil
Starting Member

14 Posts

Posted - January 06 2006 :  17:17:08  Show Profile  Reply with Quote
Found the solution. It's in one of the CSS file. Thanks anyway.
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic  Reply to Topic
 Printer Friendly
Jump To:
Snitz Forums 2000
0 Item(s)
$0.00