This is part of the code for a drop down list that displays data by headings and then it lists everything that belongs to that heading.

That all works fine, it displals propertly,etc, but I would like to make the heading bold to look like the following example, can that be done.



Week
Monday
Tuesday
Wednesday
Thurday



call Rec.Open("SELECT ProductID, Heading, ProductName,ProductCode FROM Shipment.dbo.Products " & _
" ORDER BY Heading, ProductName", Con)




szHeading = ""
nCount = 0
do while Rec.EOF = false
if ISNULL(Rec("Heading")) = false then
if szHeading <> CStr(Rec("Heading")) then
if nCount <> 0 then
Response.Write("<OPTION value=""-1""></OPTION>")
end if
Response.Write("<OPTION value=""-1"">" & Rec("Heading") & "</OPTION>")
szHeading = CStr(Rec("Heading"))
end if
end if
Response.Write("<OPTION value=""" & Rec("ProductID") & """> &nbsp;· &nbsp;" & _
Rec("ProductName") & "</OPTION>")
nCount = nCount + 1
Rec.MoveNext
loop

Hope somebody can help me, thanks and regards