I have a line of code where I am trying to append the actual TEXT of the day name at the end of a column where I am displaying the contents of the DATETIME. So that my column per records will look like:

DATETIME
Monday

or

DATETIME
Tuesday, etc.

I am having syntax problems and was wondering if anyone could help me by telling me where my problem is:

strWebLogActivityTable = strWebLogActivityTable & "<td align='left' bgcolor='#FFFF00' width='100'><b>" & trim(rs("access_date")) & "</b><br>"

If strday = 1 Then
 "<b>Monday</b>"
Elseif strday = 2 Then
 "<b>Tuesday</b>"
Elseif strday = 3 Then
 "<b>Wednesday</b>"
Elseif strday = 4 Then
 "<b>Thursday</b>"
Elseif strday = 5 Then
 "<b>Friday</b>"
Elseif strday = 6 Then
 "<b>Saturday</b>" & _
Elseif strday = 7 Then
 "<b>Sunday</b>" & _
strWebLogActivityTable = strWebLogActivityTable & "</td>"