ASP表单保存页错误问题

<!--#include file="Include/conn.asp"-->
<!--#include file="Include/Nsql.asp"-->
<%
dim RegName,sex,Birth,National,Education,Credit,Remark,mycode,Email,Address
dim UserName,Telephone,Mobile,Poid
dim rs,sql
RegName=trim(request.form("RegName"))
sex=request.form("sex")
Birth=request.form("Birth")
National=request.form("National")
Education=trim(request.form("Education"))
Credit=trim(request.form("Credit"))
Remark=trim(request.form("Remark"))
UserName=trim(request.form("UserName"))
Address=trim(request.form("Address"))
Telephone=trim(request.form("Telephone"))
Mobile=trim(request.form("Mobile"))
Email=trim(request.form("Email"))
mycode=trim(request.form("mycode"))

if RegName="" or Birth="" or National="" or Address="" or Telephone="" then
Response.Write "<script language=javascript>alert('必填选项请输入,谢谢!');javascript:history.back();</script>"
Response.end()
end if
if mycode<>Session("getcode") then
Response.Write "<script language=javascript>alert('请输入正确验证码,谢谢!');javascript:history.back();</script>"
Response.end()
end if

set rs = server.createobject("adodb.recordset")
sql="select * from zhi_rui_s_po_Order"
rs.open sql,conn,1,3
rs.addnew
rs("RegName")=RegName
rs("sex")=sex
rs("Birth")=Birth
rs("National")=National
rs("Education")=Education
rs("Credit")=Credit
rs("Address")=Address
rs("Telephone")=Telephone
rs("Mobile")=Mobile
rs("Email")=Email
rs("Remark")=Remark
rs("AddTime")=now()
rs("LastLoginIP")=Request.ServerVariables("REMOTE_ADDR")
rs.update
rs.close
set rs=nothing
Call Alert ("恭喜你,网上报名提交成功！正在审核中","Regist.asp")
%>

以上代码是我表单的保存save页，可是运行就是错误。提示的错误是

Microsoft VBScript 编译器错误 错误 '800a0411'

名称重定义

?，行 0 dim RegName,sex,Birth,National,Education,Credit,Remark,mycode,Email,Address --------------------------------------------------------------^

该如何解决

查看
行 0 dim RegName,sex,Birth,National,Education,Credit,Remark,mycode,Email,Address --------------------------------------------------------------^
是否在

<!--#include file="Include/conn.asp"-->
<!--#include file="Include/Nsql.asp"-->
存在过。如果存在过的话，那重复代码是不可以的

查看头部的两个包含文件，将重复定义的变量删除，或者注释掉

把

<% dim RegName,sex,Birth,National,Education,Credit,Remark,mycode,Email,Address

这一行去掉可以。。你有可能是在

<!--#include file="Include/conn.asp"--> <!--#include file="Include/Nsql.asp"-->

这个里面已经定义了这些名的。

建议你换一个名字。。比如RegName_u之类的。。

dim RegName,sex,Birth,National,Education,Credit,Remark,mycode,Email,Address dim UserName,Telephone,Mobile,Poid dim rs,sql

以上变量与

<!--#include file="Include/conn.asp"--> <!--#include file="Include/Nsql.asp"-->

页的变量重复

最有可能的是<!--#include file="Include/conn.asp"-->这个页