帮忙看这些代码有什么地方不对..系统是Windows2003

[Gue]

ASP代码如下:
<!--#include file="conn.asp" -->
<%
response.buffer="True"
If request.form("pass")<>request.form("cpass") Then
response.write "<script>alert('对不起，您两次输入的密码不一致！');history.back();</Script>"
response.end
End If
%>

<%
set rs=server.createobject("adodb.recordset")
sql="select FLD_Account from TBL_Account where FLD_Account='"&request.form("Account")&"'"
rs.open sql,conn,1,1
if not rs.eof then
response.write "<script>alert('此帐号已有人使用！请从新填写！');location.href='default2.asp';</Script>"
response.end
else
end if
%>

<%
Set rs = Server.CreateObject("ADODB.RecordSet")
sql="INSERT INTO TBL_account (FLD_LOGINID,FLD_PASSWORD,FLD_QUIZ,FLD_BIRTHDAY,FLD_ADDRESS,FLD_ANSWER,FLD_USERNAME,FLD_EMAIL,FLD_PHONE,FLD_LOGINIP,FLD_LOGINDATE,FLD_REGDATE) VALUES ('"&Account&"','"&pwd&"','"&key1&"','"&birthday&"','"&abode&"','"&key2&"','"&tname&"','"&email&"','"&movtel&"','127.0.0.1','2004-11-26','2004-11-26')"
set rs2=conn.execute(sql)
%>

<%
response.redirect "reg_list.asp"
%>



conn.asp代码如下:
<%
'option explicit
dim conn,connstr,connServerName,connDatabase,connUserName,connPassword

Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=SQLOLEDB.1;Password=164944;Persist Security Info=True;User ID=sa;Initial Catalog=ykDB;Data Source=127.0.0.1"
conn.Open connstr

if err.number<>0 then
response.write "连接数据库时出错."
response.end
end if
%>

访问这个页面是提示Http500 内部服务器错误..麻烦帮忙看看..谢谢了.

[「已注销」]

请把IE调试功能打开,你就能看到详细错误信息了.

IE->工具->Internet选项->高级->去掉"显示友好 HTTP 错误信息"前面的勾

[hflsj]

up

[gu1dai]

<%
'用我的连接字符串吧

sub openhpdb()
strconn = "Driver={SQL Server};Description=sqldemo;SERVER=192.168.0.1;" _
&"UID=sa;Password=;DATABASE=me001"
set conn = server.createobject("adodb.connection")
conn.open strconn
set rs=server.createobject("adodb.recordset")
end sub

sub closedb
rs.close
set rs=nothing
conn.close
set conn=nothing
end sub
%>

[UAM_Richard]

set rs2=conn.execute(sql)

应该是

conn.execute (sql)

insert操作不产生记录集