I have some code that I'm trying to add a CSS pseudoclass style for formatting purposes. Here is a snippet of the code I'm trying to add the pseudoclass to:

Dim tmpHTML
tmpHTML=""
tmpHTML = tmpHTML & "<table summary="""" id=""calendar"" cellspacing=""0"">" & Chr(10)
tmpHTML = tmpHTML & "<caption></caption>" & Chr(10)
tmpHTML = tmpHTML & "<tr id=""title"">" & Chr(10)
tmpHTML = tmpHTML & "<th colspan=""7"">" & Chr(10)
tmpHTML = tmpHTML & "<a href=""?EventDate=" & Server.URLEncode(DateAdd("m",-1, EventDate)) & """>#171;</a>" & CurMonthName & "#44;" & " "
tmpHTML = tmpHTML & CurYear & "<a href=""?EventDate=" & Server.URLEncode(DateAdd("m",1,EventDate)) & """>#187;</a>"
tmpHTML = tmpHTML & "</th>" & Chr(10) & "</tr>" & Chr(10) & "<tr id=""days"">"
Response.Write(tmpHTML)

I have setup the following styles for links:

table#calendar a:link {
 color: #0000FF;
 font-weight: bold;
 background-color: #CDD3C5;
}
table#calendar a:visited {
 color: #0000FF;
 font-weight: bold;
 background-color: #CDD3C5;
}
table#calendar a:hover {
 background: #860326;
 font-weight: bold;
 color: #FFFFFF;
}

I would like to create another pseudoclass that would apply to the links in these lines:

tmpHTML = tmpHTML & "<a href=""?EventDate=" & Server.URLEncode(DateAdd("m",-1, EventDate)) & """>#171;</a>" & CurMonthName & "#44;" & " "

tmpHTML = tmpHTML & CurYear & "<a href=""?EventDate=" & Server.URLEncode(DateAdd("m",1,EventDate)) & """>#187;</a>"

I've made several attempts without any luck. Can anyone offer any suggestions on how I can do this?
I have the new pseudoclass styles defined as follows:

.month a:link {
...
}
.month a:visited {
...
}
.month a:hover {
...
}

Thanks for any help.
-D-

Hey,

Try

a.month:link
a.month:visited
a.month:hover

Brian