ASPCMS建站，前台会员注册报500错误！
AspCms v2.5.2 0315   前台页面注册报500错误，其他的都正常。后台注册添加的会员，前台能正常使用。就是前台填好了一点注册按钮报错！请高手指点，多谢

../member/reg.asp代码如下：

<!--#include file="../inc/AspCms_SettingClass.asp" -->
<%
dim action : action=getform("action","get")
if action = "reg" then
addUser()
elseif action = "editpass" then
editUser()
else
echoContent()
end if

Sub editPass
dim LoginName,userPass,reuserPass
LoginName=trim(session("loginName"))
userPass=getForm("userPass","post")
reuserPass=getForm("reuserPass","post")

if userPass<>reuserPass then alertMsgAndGo "两次输入密码不相同","-1" 
'die  "update {prefix}User set [Password]='"&md5(userPass,16)&"' where LoginName='"&LoginName&"'"
conn.Exec "update {prefix}User set [Password]='"&md5(userPass,16)&"' where LoginName='"&LoginName&"'","exe"
alertMsgAndGo "密码修改成功","editPass.asp"
End Sub

Sub editUser
dim LoginName,userPass,reuserPass,Email,Mobile,Address,PostCode,Gender,QQ,TrueName,Phone
LoginName=trim(session("loginName"))
userPass=getForm("userPass","post")
reuserPass=getForm("reuserPass","post")

Email=filterPara(getForm("Email","post"))
Mobile=filterPara(getForm("Mobile","post"))
Address=filterPara(getForm("Address","post"))
PostCode=filterPara(getForm("PostCode","post"))
Gender=filterPara(getForm("Gender","post"))
QQ=filterPara(getForm("QQ","post"))
TrueName=filterPara(getForm("TrueName","post"))
Phone=filterPara(getForm("Phone","post"))


if userPass<>reuserPass then alertMsgAndGo "两次输入密码不相同","-1" 

dim passStr
if not isnul(userPass) then passStr="[Password]='"&md5(userPass,16)&"',"

'Gender="1,groupid=1"
'alertMsgAndGo Gender,""
if not isnum(Gender) then gender = 1
'alertMsgAndGo Gender,""
dim sqlsql
sqlsql = "update {prefix}User set "&passStr&" Email='"&Email&"',QQ='"&QQ&"',Mobile='"&Mobile&"',Address='"&Address&"',PostCode='"&PostCode&"',Gender="&Gender&",Phone='"&Phone&"',TrueName='"&TrueName&"' where LoginName='"&LoginName&"'"
Conn.Exec sqlsql,"exe"
'response.Write(sqlsql)
alertMsgAndGo "修改成功","editPass.asp"
End Sub

Sub echoContent()
dim templateobj,templatePath : set templateobj = new TemplateClass
templatePath=sitePath&"/"&"templates/"&setting.defaultTemplate&"/"&setting.htmlFilePath&"/reg.html"
'die templatePath
if not CheckTemplateFile(templatePath) then echo "reg.html"&err_16


with templateObj 
.content=loadFile(templatePath) 
.parseHtml()
.parseCommon
echo .content 
end with
set templateobj =nothing : terminateAllObjects
End Sub



Sub addUser
'dim UserID,GroupID,LanguageID,SceneID,LoginName,Password,PswQuestion,PswAnswer,UserStatus,RegTime,RegIP,LastLoginIP,LastLoginTime,LoginCount,TrueName,Gender,Birthday,Country,Province,City,Address,PostCode,Phone,Mobile,Email,QQ,MSN,Permissions,AdminDesc

Dim LoginName,Password,verifyPass,Email,Mobile,Address,PostCode,Gender,QQ,UserStatus,RegTim