各位大侠好：
我想做一个注册页面，但在处理注册页面时，出错了，
出错页面：无法显示网页
试图访问的网页出现问题，无法显示。
--------------------------------------------------------------------------------
请尝试执行下列操作：
单击刷新按钮，或稍后重试。
打开 127.0.0.1 主页，然后查找与所需信息相关的链接。
HTTP 错误 500.100 - 内部服务器错误 - ASP 错误
Internet 信息服务
--------------------------------------------------------------------------------
技术信息（用于支持人员）
错误类型：
Microsoft JET Database Engine (0x80040E14)
FROM 子句语法错误。
/cl_reg1.asp, 第 6 行
浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)
网页：
POST 174 ??? /cl_reg1.asp
我的原程序是：
<!--#Include file="linkdatamdb.asp"-->
<%
Dim regrs,name,pass,xb,ln,gj,qq,eamil,tel,ah,xl,grzy,jj,date,ip
name=trim(request.form("name"))
pass=trim(request.form("pass"))
xb=trim(request.form("xb"))
ln=trim(request.form("ln"))
gj=trim(request.form("gj"))
qq=trim(request.form("qq"))
eamil1=trim(request.form("eamil1"))
tel=trim(request.form("tel"))
ah=trim(request.form("ah"))
xl=trim(request.form("xl"))
grzy=trim(request.form("grzy"))
jj=trim(request.form("jj"))
date=now
ip=Request.ServerVariables("REMOTE_ADDR")
if name="" or pass="" or xb="" or ln="" or gj="" or qq="" or eamil1="" or tel="" or ah="" or xl="" or grzy="" or jj="" then
Response.Write "<script language=javascript>alert('请填写完整 !!!');self.location=(""reg.asp"");</script>"
response.end
else
Set regrs=server.createobject("ADODB.Recordset") '创建表组件，RS就是内存里面虚拟表
dchSql="select * from user where userid=0" '将留言表所有字段查询出来打开，并不读出记录(lyid=0)
regrs.open dchsql,conn,1,3
regrs.Addnew
regrs("name")=name
regrs("pass")=pass
regrs("xb")=xb
regrs("ln")=ln
regrs("gj")=gj
regrs("qq")=qq
regrs("eamil1")=eamil1
regrs("tel")=tel
regrs("ah")=ah
regrs("xl")=xl
regrs("grzy")=grzy
regrs("jj")=jj
regrs("date")=date
regrs("ip")=ip
regrs.Update
Response.Write "<script language=javascript>alert('注册成功 !!!');self.location=(""reg.asp"");</script>"
end if
Call dchconn()
%>
