人防工程防化高工:vbs语句未结束的问题，求助！

<%
function Checkin(s)
s=trim(s)
s=replace(s," ","&nbsp;")
s=replace(s,"'","&#39;")
s=replace(s,"""","&quot;")
s=replace(s,"<","&lt;")
s=replace(s,">","&gt;")
Checkin=s
end function
dim username,password,repassword,sex,webname,question,answer,email
username=replace(trim(request.Form("name"))),"'","")
password=replace(trim(Request("password")),"'","")
repassword=replace(trim(Request("repassword")),"'","")
sex=request.Form("sex")
webname=replace(trim(request.Form("webname"))),"'","")
question=replace(trim(request.Form("question"))),"'","")
answer=replace(trim(request.Form("answer"))),"'","")
email=replace(trim(request.Form("email"))),"'","")
%>

运行时提示
错误类型：
Microsoft VBScript 编译器错误 (0x800A0401)
语句未结束
/reg.asp, line 169, column 60
password=Checkin(replace(request.Form("password")),"'","''"))
-----------------------------------------------------------^