格尔木农垦集团刘宝石:ASP编程问题

请问我这段代码有错吗？为什么我不能向数据库添加记录
<!--#include file="Conn.asp"-->
<%
user=request.Form("user")
emil=request.Form("emil")
user=replace(user,"'","’")
emil=replace(emil,"'","’")
set rs=conn.execute("select * from book where user='"& user &"' or emil='"& emil &"'")
if rs.eof then

%>
<%
user=request.form("user")
sex=request.Form("sex")
bt=request.Form("bt")
img=request.Form("img")
qq=request.Form("qq")
home=request.Form("home")
emil=request.Form("emil")
ip=request.servervariables("remote_addr")
add=request.Form("add")
text=request.Form("text")
if qq="" and home="" then
qq="还没有呢"
home="http://"
end if
%>
<%
on error resume next
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select user,sex,bt,img,qq,home,emil,ip,add,text from book"
rs.open sql,conn,1,3
rs.Addnew

rs("user")=user
rs("sex")=sex
rs("bt")=bt
rs("img")=img
rs("qq")=qq
rs("home")=home
rs("emil")=emil
rs("ip")=request.servervariables("remote_addr")
rs("time")=now()
rs("add")=add
rs("text")=text

rs.update
rs.close
set rs=nothing '销毁记录集
conn.close '关闭连接
%>
<script language=vbscript>
MsgBox "您成功回复了内容！"
location.href = "index.asp"
</script>
<%
else
%>
<%
response.write"<SCRIPT language=JavaScript>alert('对不起用户名或邮箱已经存在,请返回!');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
%>
<% end if %>