手动多功能绞肉机价格:我已经在页面中加入条件语句了,为什么还被记录到数据库？？

<%
set conn=Server.CreateObject("adodb.connection")
conn.open"Driver={microsoft access driver (*.mdb)};dbq="&Server.MapPath("data/db1.mdb")

dim Username,password,email,pay_account,fullname,address,city,state,zip,country
Username=trim(request("Username"))
password=trim(request("password"))
email=trim(request("email"))
pay_account=trim(request("pay_account"))
fullname=trim(request("fullname"))
address=trim(request("address"))
city=trim(request("city"))
state=trim(request("state"))
zip=trim(request("zip"))
country=trim(request("country"))
SignupIP = Request.serverVariables("REMOTE_ADDR")
ProxyIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")

sql="select * from member"
set rs=Server.CreateObject("Adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
rs("Username")=Username
rs("password")=password
rs("email")=email
rs("pay_account")=pay_account
rs("fullname")=fullname
rs("address")=address
rs("city")=city
rs("state")=state
rs("zip")=zip
rs("country")=country
rs("SignupTime")=date()
rs("SignupIP")=SignupIP
rs("ProxyIP")=ProxyIP
rs.update
rs.Close

rs.Open "Select UserName From member Where UserName = '" & UserName & "'",Conn
If NOT rs.EOF Then
response.write"<script>alert('Sorry, such user already exists! Please try another username. ');history.back();</script>"
Response.End
End if
rs.Close
rs.Open "Select email From member Where email = '" & email & "'",Conn
If NOT rs.EOF Then
response.write"<script>alert('Sorry, such Email Address already exists! Please try another email. ');history.back();</script>"
Response.End
End if
rs.Close
rs.Open "Select pay_account From member Where pay_account = '" & pay_account & "'",Conn
If NOT rs.EOF Then
response.write"<script>alert('Sorry, such egold Account already exists! Please try another egold. ');history.back();</script>"
Response.End
End if
rs.Close

response.write"<script>alert('We will be glad to help you!');location.href='index.asp';</script>"
set rs=nothing
conn.close
set conn=nothing
%>