请问这是什么错误，请看代码，十万火急

[xuallen]

当我输入ID时，即使是数据库中没有的记录也提示"经销商ID已经存在，请重新输入"，为什么呢？
<%
ID=request.form("ID")
Dealer=request.form("Dealer")
CompanyName=request.form("CompanyName")
Area=request.form("Area")
AccountName=request.form("AccountName")
Bank=request.form("Bank")
AccountNo=request.form("AccountNo")
Tel=request.form("Tel")
Fax=request.form("Fax")
Contact=request.form("Contact")

sql = "select ID from Dealer where ID='"& ID &"'"
set check = conn.Execute(sql)
if check.eof then
Response.Write ("经销商ID已经存在，请重新输入")
else
sqlAdd="insert into Dealer(ID,CompanyName,Dealer,Area,AccountName,Bank,AccountNo,Tel,Fax)"
sqlAdd=sqlAdd & "values('"& ID &"','"& Dealer &"','"& CompanyName &"','"& Area &"','"& AccountName &"','"& Bank &"','"& AccountNo &"','"& Tel &"','"& Fax &"')"
sqlAddPwd="insert into tblUser(UserID,Pwd)"
sqlAddPwd=sqlAddPwd & "values('"& ID &"','"& ID &"')"
'response.write sqlAdd & "<P>"
'response.end

Set rs = conn.execute (sqlAdd)
Set Pwdrs = conn.execute (sqlAddPwd)
response.redirect("admin_info_add.asp")
end if
%>

[angelheavens]

sql = "select ID from Dealer where ID='"& ID &"'"
如果你的ID是自动编号或是int,改成:
sql = "select ID from Dealer where ID="&ID


(如果有疑问,请发短信息来相互讨论)

[samillboy]

更改为
if not check.eof then
Response.Write ("经销商ID已经存在，请重新输入")
else

[angelheavens]

同时要判断ID=request.form("ID")是否为空:

ID=trim(request.form("ID"))
if ID="" or IsEmpty(ID)=true then
response.write "ID错误"
response.end
else
sql = "select ID from Dealer where ID="&ID
end if

[tigerwen01]

if check.eof then改为if not(check.eof )then

[aryou]

if check.eof then
Response.Write ("经销商ID已经存在，请重新输入")

改成

if not check.eof then
Response.Write ("经销商ID已经存在，请重新输入")

[pimple]

if NOT check.eof then
Response.Write ("经销商ID已经存在，请重新输入")

[aryou]

我靠，，，

被挤到最后了，，，

[angelheavens]

if Not check.eof then
Response.Write ("经销商ID已经存在，请重新输入")
else
'...继续执行程序

[htao007]

可能与记录集的一些参数有关，如 coursertype ...