ASP问题,总说缺少end

<!--#include file="conn.asp"-->
<!--#include file="inc/bloginfo.asp"-->
<!--#include file="inc/syscode.asp"-->
<!--#include file="inc/function.asp"-->
<%
dim show
if Application(cachename&"index_update")=false and application(cachename&"index")<>"" then
show=application(cachename&"index")
else
dim rstmp
set rstmp=conn.execute("select skinmain from sysskin where isdefault='true'")
show=rstmp(0)
set rstmp=nothing
call indexshow()
Application.Lock
application(cachename&"index")=show
Application(cachename&"index_update")=false
Application.unLock
if Application(cachename&"siterefu")<>"" then
conn.execute("update [bloginfo] set siterefu_num="&Application(cachename&"siterefu&q