紧急求助，小弟新人，帮解决下日期判断问题

先说明，小弟新人，刚接触
现在做个已经在网站上面显示每天的日期了。但是我还想在日期后面加一些东西。比如：10月1日那天在 显示的日期后面加一段代码“国庆节生日快乐”

小弟 先贴出代码，是直接在表格里面显示的
<td style="padding-left:40px;" valign="middle">
今天是<%=year(Now())%>年<%=month(Now())%>月<%=day(Now())%>日 <%=WeekdayName(Weekday(Now()))%>，欢迎您的访问！
//<% %>之间内容是我加的
<%
dim m= month(Now())
dim n= day(Now())
if m=10 and n=1
then
Response.Write "国庆节快乐！"
end if
%>
</td>
显示的一直是报错
An error occurred on the server when processing the URL. Please contact the system administrator.

If you are the system administrator please click here to find out more about this error.

then要和if在同一行。
VBScript code

if m=10 and n=1 then
   Response.Write "国庆节快乐！"
end if