ASP编的程序出现了问题。

ASP编辑的程序出现了问题。
Microsoft VBScript 编译器错误 错误 '800a03f6' 缺少 'End' /iisHelp/common/500-100.asp，行242 WisMaintFacades.fcdLoginMaint.1 错误 '80020009' 违反了 PRIMARY KEY 约束 'PK_T_SysLog'。不能在对象 'T_SysLog' 中插入重复键。 /WisWebSource/Global/CheckUser.asp，行23 
在页面登陆再登出用户名就不能再次登陆。
SQL数据库表syslogid主键出现 -32767以下是ASP
<%@ Language=VBScript %>
<%
<!-- #include file="../Scriptlet/ComServer.txt" -->  
vLoginName = Request.Form("LoginName")
vPasswd = Request.Form("Passwd")
On Error Resume Next
err.Clear
Set oLoginMaint = Server.CreateObject("WISMAINTFACADES.fcdLoginMaint")
'组件创建不成功，返回登录页面
if err<> 0 then
Response.Redirect("/WisWebSource/Global/Login.asp")
end if


vRoleID = oLoginMaint.ValidateUser(vLoginName,vPasswd)

if Err <> 0 then
Response.Redirect("/WisWebSource/Global/ReLogin.asp")
end if

set oOperatorRecords = oLoginMaint.Login(vLoginName,vPasswd)
vOperatorID = oOperatorRecords.Fields("OperatorID")
vOperatorName = oOperatorRecords.Fields("Name")
vOrganID = oOperatorRecords.Fields("OrganID")
vOrganName = oOperatorRecords.Fields("OrganName")
vRoleID = oOperatorRecords.Fields("RoleID")

set objOrganMaint = Server.CreateObject("WisMaintFacades.fcdOrganMaint")
set objOrganRecordset = objOrganMaint.GetOrganByID(vOrganID) 
vAdminLevelID = objOrganRecordset.Fields("AdminLevelID")
objOrganRecordset.Close
set objOrganRecordset = nothing
set objOrganMaint = nothing

'session
session.Timeout = 30
session("OperatorID") = vOperatorID
session("LoginName") = vLoginName
session("OperatorName") = vOperatorName
session("OrganID") = vOrganID
session("OrganName") = vOrganName
session("RoleID") = vRoleID
session("AdminLevelID") = vAdminLevelID
Response.Redirect("/WisWebSource/Global/Frames.asp")
%>
<html>
<head>
<meta name="VI60_defaultClientScript" content="VBScript">
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<META http-equiv="Content-Type" content="text ml; charset=gb2312">
<link rel="stylesheet" type="text/css" href="StyleSheets/GlobalStyle.css">
<script ID="clientEventHandlersVBS" LANGUAGE="vbscript">
</script>
</head>
<body>
<div id=aa>
<OBJECT id=ADC1 style="WIDTH: 19px; HEIGHT: 15px" 
classid=clsid:BD96C556-65A3-11D0-983A-00C04FC29E33><PARAM NAME="ExecuteOptions" VALUE="2"><PARAM NAME="FetchOptions" VALUE="3"><PARAM NAME="SortDirection" VALUE="-1"><PARAM NAME="InternetTimeout" VALUE="300000"></OBJECT><!-- RDS.DataSpace -->
<OBJECT id=ADS1 height=1 width=1 
classid=CLSID:BD96C556-65A3-11D0-983A-00C04FC29E36></OBJECT></div>
</body>
</HTML>