microwil
Starting Member
14 Posts |
Posted - January 06 2006 : 16:51:29
|
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>
|
|