求助：时间函数问题

[wangwen1759]

<%
dim asq,ff,gg,hh,zhou,xing,xingqi
ff=request("day")
gg=request("month")
hh=request("year")
zhou=DatePart("ww", ""&hh&"-"&gg&"-"&ff&"")
xing=DatePart("w", ""&hh&"-"&gg&"-"&ff&"")
xingqi=WeekdayName(xing)
if xingqi="星期日" then zhou=zhou-1 else zhou=zhou
end if
response.write zhou
response.write "<br>"
response.write xingqi
%>


出错说

Microsoft VBScript 编译器错误 错误 '800a0400'

缺少语句

/qq/4.asp，行 10

end if
^

希望各位大哥指教

[wangwm]

这样写

if xingqi="星期日" then
zhou=zhou-1
else
zhou=zhou
end if

[ronakitty]

if xingqi="星期日" then
zhou=zhou-1
else
zhou=zhou
end if

或者

if xingqi="星期日" then zhou=zhou-1 else zhou=zhou end if

[wangwen1759]

谢谢，是你们说的这样的