我的问题比较麻烦，我尽量表述清楚点。
手上代码new.asp和new_exe.asp是实现用户信息（employee)增加的。但是当employee中分公司信息（Branch_ID）为空时，新增用户信息时会报错。报错信息如下：
Microsoft OLE DB Provider for SQL Server 错误 '80040e14'
第 1 行: ',' 附近有语法错误。
/employee/new_exe.asp，行 28
我不知怎么修改这个问题。现将new.asp咯new_exe.asp代码奉上，请高手指教！！
new.asp:
<!--#include file="../config.asp"-->
<!--#include file="../inc/check_login.asp"-->
<!--#include file="../inc/functions.asp"-->
<%
Application_ID = 5000300 '本功能编号，含义请查看编码表
if not CheckAuth(Session("Employee_ID"),Application_ID) then '验证权限
Server.Transfer "../err/un_authorized.htm"
response.end
end if
%>
<!--**************身份验证部分****************-->
<%
Branch_ID = request("Branch_ID")
if Trim(Branch_ID) = "" then Branch_ID = 1
LoginName = request("LoginName")
Password = request("Password")
Employee_Name = request("Employee_Name")
Gender = request("Gender")
Birthday = request("Birthday")
Department_ID = request("Department_ID")
Funcs = request("Funcs")
Tel = request("Tel")
Email = request("Email")
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Untitled</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK rel="stylesheet" type="text/css" href="../style.css">
</head>
<body>
<form name="frm" action="new_exe.asp" method="post" onSubmit="return CheckInput();">
新员工
<hr size=1>
<table bgcolor="#FFFFFF" border=0 cellpadding=1 cellspacing=1 width="100%">
<tr>
<td bgcolor="#EFEFEF">用户名</td><td><input type="text" name="LoginName" size="20" value="<%= LoginName %>"></td>
<td bgcolor="#EFEFEF">密码</td><td><input type="Password" name="Password" size="20" value="<%= Password %>"></td>
</tr>
<tr>
<td bgcolor="#EFEFEF">姓名</td><td>
<input type="text" name="Employee_Name" size="16" value="<%= Employee_Name %>">
<select name="Gender" size="1">
<% If Gender = 0 then %>
<option value="1">男</option>
<option value="0" SELECTED>女</option>
<% Else %>
<option value="1" SELECTED>男</option>
<option value="0">女</option>
<% End If %>
</select>
</td>
<td bgcolor="#EFEFEF">出生日期</td><td><input type="text" name="Birthday" size="12" value="<%= Birthday %>"></td>
</tr>
<tr>
<td bgcolor="#EFEFEF">分公司、部门</td>
<td>
<select name="Branch_ID" size="1" onChange="return chg_brch(this.value);">
<%
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
conn.open connstr
sql = "sp_Employee_Branch"
'response.write sql
set rs = conn.execute(sql)
while not rs.eof
if CStr(Branch_ID) = CStr(rs("Branch_ID")) then
tag = "selected"
else
tag = ""
end if
response.write "<option value=" & rs("Branch_ID") & " " & tag & ">" & rs("Branch_Name") & "</option>"
rs.movenext
wend
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
</select>
<select name="Department_ID" size="1">
<%
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
conn.open connstr
sql = "sp_Employee_Department " & Branch_ID
'response.write sql
set rs = conn.execute(sql)
while not rs.eof
Department_ID = rs("Department_ID")
Department_Name = rs("Department_Name")
if trim(Department_Name) = "" then Department_Name = "不属于任何部门"
response.write "<option value=" & Department_ID & ">" & Department_Name & "</option>"
rs.movenext
wend
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
</select>
</td>
<td bgcolor="#EFEFEF">职务</td><td><input type="text" name="Funcs" size="12" value="<%= Funcs %>"></td>
</tr>
<tr>
<td bgcolor="#EFEFEF">电话</td><td><input type="text" name="Tel" size="32" value="<%= Tel %>"></td>
<td bgcolor="#EFEFEF">电子邮件</td><td><input type="text" name="Email" size="32" value="<%= Email %>"></td>
</tr>
</table>
<input type="submit" name="Submit" value="增加新员工">
</form>
</body>
</html>
<script language="JavaScript" type="text/javascript">
function chg_brch(Branch_ID){
var LoginName = document.frm.LoginName.value;
var Password = document.frm.Password.value;
var Employee_Name = document.frm.Employee_Name.value;
var Gender = document.frm.Gender.value;
var Birthday = document.frm.Birthday.value;
var Department_ID = document.frm.Department_ID.value;
var Funcs = document.frm.Funcs.value;
var Tel = document.frm.Tel.value;
var Email = document.frm.Email.value;
var url = 'new.asp?Branch_ID='+Branch_ID+'&LoginName='+LoginName+'&Password='+Password+'&Employee_Name='+Employee_Name+'&Gender='+Gender+'&Birthday='+Birthday+'&Funcs='+Funcs+'&Tel='+Tel+'&Email='+Email;
location.href = url;
}
</script>
<script language="JavaScript" type="text/javascript">
function CheckInput(){
var LoginName = document.frm.LoginName.value;
var Employee_Name = document.frm.Employee_Name.value;
if(LoginName.length < 1){
alert('请正确填写用户名。');
return false;
}else{
if(Employee_Name.length < 1){
alert('请正确填写员工姓名。');
return false;
}else{
return true;
}
}
}
</script>
以上是new.asp代码，功能是增加用户。
new_exe.asp:
<!--#include file="../config.asp"-->
<!--#include file="../inc/check_login.asp"-->
<!--#include file="../inc/functions.asp"-->
<%
Application_ID = 5000300 '本功能编号，含义请查看编码表
if not CheckAuth(Session("Employee_ID"),Application_ID) then '验证权限
Server.Transfer "../err/un_authorized.htm"
response.end
end if
%>
<!--**************身份验证部分****************-->
<%
LoginName = request("LoginName")
Password = request("Password")
Employee_Name = request("Employee_Name")
Gender = request("Gender")
Birthday = request("Birthday")
Branch_ID = request("Branch_ID")
Department_ID = request("Department_ID")
Funcs = request("Funcs")
Tel = request("Tel")
Email = request("Email")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open connstr
sql = "sp_Employee_New '" & LoginName & "','" & Password & "','" & Employee_Name & "'," & Gender & ",'" & Birthday & "'," & Branch_ID & "," & Department_ID & ",'" & Funcs & "','" & Tel & "','" & Email & "'"
'response.write sql
conn.execute(sql)
conn.close
set conn = nothing
'操作日志
Rec_Content = "添加新员工"
Command_Line = sql
call Op_Rec(Rec_Content,Command_Line)
%>
成功添加新员工！
<script language="JavaScript" type="text/javascript">
parent.main.location.reload();
</script>
