Change this:
"<!--##### Email All Users Mod 3.4a #####-->" & vbNewLine & _
" <LI><span class=""spnMessageText""><a href=""admin_emaillist.asp"">E-mail List</a>"
if MemberID = intAdminMemberID then
Response.Write " <font size=""1"">(<a href=""javascript:openWindow3('admin_pop_mail.asp')"">Email All Users</a>)</font>"
end if
Response.Write "</span></LI>" & vbNewLine & _
"<!--####################################-->" & vbNewLine & _
to this:
"<!--##### Email All Users Mod 3.4a #####-->" & vbNewLine & _
" <LI><span class=""spnMessageText""><a href=""admin_emaillist.asp"">E-mail List</a> <font size=""1"">(<a href=""javascript:openWindow3('admin_pop_mail.asp')"">Email All Users</a>)</font>" & vbNewLine & _
"</span></LI>" & vbNewLine & _
"<!--####################################-->" & vbNewLine & _