为什么会有错误?
这是我写的一个ASP的程序,但是执行就有错误,说是500内部服务器错误,
为什么啊?
有人能帮帮我吗?
<!--#include file=conn.asp-->
<%
dim rs
dim sql
dim sername
dim sernum
dim serplaynum
dim youname
dim youqq
dim youemail
dim youtel
dim youidea
dim founderr
founderr=false
dim errmsg
if trim(Request("txtsername"))="" then
founderr=true
errmsg="服务器名字不能为空"
end if
if trim(Request("txtsernum"))="" then
founderr=true
errmsg="服务器支持人数不能为空"
end if
if trim(Request("txtserplaynum"))="" then
founderr=true
errmsg="服务器玩家数量不能为空"
end if
if trim(Request("txtyouname"))="" then
founderr=true
errmsg="您的名字不能为空"
end if
if trim(Request("txtyoutel"))="" then
founderr=true
errmsg="您的电话不能为空"
end if
set rs=server.createobject("adodb.recordset")
if founder=false then
sername=Request.form("txtsername")
sernum=Request.form("txtsernum")
serplaynum=Request.form("txtserplaynum")
youname=Request.form("txtyouname")
youtel=Request.form("txtyoutel")
if Request.form("txtyouqq")="" then
youqq="0"
else
youqq=Request.form("txtyouqq")
end if
if Request.form("txtyouemail")="" then
youemail="无"
youemail=Request.form("txtyouemail")
end if
if Request.form("txtcontent")="" then
youidea="无"
youidea=Request.form("txtyoucontent")
end if
sql="select * from data where (ID is null)"
rs.open sql,conn,1,1
rs.addnew
rs("sername")=sername
rs("sernum")=sernum
rs("serplaynum")=serplaynum
rs("youname")=youname
rs("youtel")=youtel
rs("youqq")=youqq
rs("youemail")=youemaill
rs("youidea")=youidea
rs.update
rs.close
conn.close
set rs=nothing
set conn=nothing
%>
<html>
<head>
<title>成功</title>
<link rel="stylesheet" type="text/css" href="style.css">
</head>
<body>
<div align="center"><center>
<br><br>
<table width="50%" border="1" cellpadding="0" cellspacing="0" bordercolor="#999999">
<tr>
<td width="100%" bgcolor="#999999" height="20"><p align="center"><font color="#FFFFFF"><b>
数据添加成功!!!</b></font></td>
</tr>
<tr>
<td width="100%"><p align="left"><br>恭喜你!</p>
您可以进行其他操作
</td>
</tr>
</table>
</center></div>
<%
else
response.write "由于以下的原因不能保存数据:"
response.write errmsg
end if
%>
</body>
</html>