急!内部服务器错误!
<!--#include file="ndataconn.asp"-->
<!--#include file="inc/char.inc"-->
<%
dim webname
dim url
dim logo
dim type
dim tel
dim linkman
dim msn
dim email
dim qq
dim sql
dim rs
dim cansave
dim founderr
dim errmsg
founerr=false
if request.form("webname")="" then
founderr=true
errmsg=errmsg+"<li>网站名称不能为空</li>"
end if
if founderr=false then
webname=request.form("webname")
url=request.form("url")
logo=request.form("logo")
type=request.form("type")
tel=request.form("tel")
linkman=request.form("linkman")
email=request.form("email")
msn=request.form("msn")
qq=request.form("qq")
set rs=server.createobject("adodb.recordset")
sql="select * from link where (linkid is null)"
rs.open sql,conn,1,3
rs.addnew
rs("webname")=webname
rs("url")=url
rs("logo")=logo
rs("type")=type
rs("tel")=tel
rs("linkman")=linkman
rs("email")=email
rs("msn")=msn
rs("qq")=qq
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<html>
<head>
<meta HTTP-EQUIV="REFRESH" CONTENT="0;URL=updata6-1.asp">
<title><%=name%><%=domain%>[Ndata]后台数据库管理系统</title>
<link rel="stylesheet" type="text/css" href="style.css">
</head>
<body>
<div align="center"><center>
<table border="0" cellspacing="0" width="50%" cellpadding="0" height="58">
<tr>
<td width="100%" height="58" class="font1" align="center">添 加 成 功 1 秒 后 返
回 </td>
</tr>
</table>
</center></div><%
else
response.write "由于以下的原因不能保存数据:"
response.write errmsg
end if
%>