提交页面
*********************** index.asp******************************
<form action="tj.asp" method="post" name="from1" id="from1">
<table width="66%" height="100" align="center" cellpadding="0" cellspacing="2">
          <tr>
            <td colspan="3">红色<span class="STYLE1">*</span>所标示的为必填项
          </tr>
          <tr>
            <td width="22%">用户名:
            <td width="41%"><label>
              <input name="yhm" type="text" id="yhm" size="15">
            </label></td>
            <td width="37%"><div align="left"><span class="STYLE1">*</span></div></td>
          </tr>
          <tr>
            <td>密　码:</td>
            <td><label>
              <input name="mima" type="password" id="mima" size="15">
            </label></td>
            <td><div align="left"><span class="STYLE1">*</span></div></td>
          </tr>
          <tr>
            <td>姓　名:</td>
            <td><label>
              <input name="xm" type="text" id="xm" size="15">
            </label></td>
            <td><div align="left"><span class="STYLE1">*</span></div></td>
          </tr>
          <tr>
            <td>性　别:</td>
            <td><label>
              <select name="xb" class="an" id="xb">
                <option value="1">男</option>
                <option value="0">女</option>
              </select>
            </label></td>
            <td><div align="left"><span class="STYLE1">*</span></div></td>
          </tr>
          <tr>
            <td>年　龄:</td>
            <td><label>
              <input name="nl" type="text" id="nl" size="5">
            </label></td>
            <td><div align="left"><span class="STYLE1">*</span></div></td>
          </tr>
          <tr>
            <td colspan="3"><label>
              <div align="center">
                <input name="Submit" type="submit" class="an" value="提交注册资料">　
                <input name="Submit2" type="reset" class="an" value="重置表单">
              </div>
            </label></td>
          </tr>
        </table>
        </form>


数据处理
********************** tj.asp  *************
<% 
'创建RECORDSER对象方法1
set new=Server.CreateObject("ADODB.recordset")
new.open "select * from mm where 用户名='" & request.Form("yhm") & "'",newconn,1,1
if new.recordcount>0 then
'如果存在这个用户名，对用户进行提示
response.Write "用户名：" & request.Form("yhm") & "已经被占用！请点击返回上一页！"
   new.close
   set new=nothing
   newconn.close
   set newconn=nothing
   response.End
  else
 new.close
new.open"mm",newconn,1,3
new.addnew '插入数据到mm表
new("用户名")=request.Form("yhm")
new("密码")=request.Form("mima")
new.update
new.close
'获取刚才插入数据的自动编号字段数值，id字段的值
set rst1=newconn.execute("SELECT @@IDENTITY AS ID")
ID=rst1("ID")
new.open "VIP",newconn,1,3
new.addnew '插入数据到VIP表
new("ID")=ID
new("姓名")=request.Form("xm")
new("性别")=request.Form("xb")
new("年龄")=request.Form("nl")
new.update
new.close
 end if
%>


那位大侠帮我看看  那里错了......