我编的程序哪儿错了呢！？？？？--出现500内部错误

[wo12qw]

conn.asp文件:

<%@language=vbscript codepage=936 %>
<%
option explicit
response.buffer=true
dim conn
dim connstr
dim db
dim startime,endtime
startime=timer()
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={SQL Server};server=aaweb\aaweb; uid=sa;pwd=sa16;database=data"
conn.Open connstr
%>
说明一下(aaweb\aaweb就类似于local)
new.asp 文件：
<!--#include file=conn.asp-->
<%
dim sql,rs
Dim stringes,displays,title,display_X
set rs=server.createobject("adodb.recordset")
sql="select * from Config"
rs.open sql,conn
stringes=rs("stringe")
displays=rs("display")
rs.close
sql="Select top "&displays&" * From Data Order By Date DESC"
rs.open sql,conn
if not rs.eof then
rs.movefirst
display_X=display_X & ""
do while not rs.eof
if len(rs("Title"))>stringes then
title=left(rs("Title"),stringes)
else
title=rs("Title")
end if
display_X=display_X &"<img src=/goodgg/images/br_dot.gif><a href=javascript:openScript("/goodgg/Display_Data.asp?id=" & rs("id") & "",500,400)>"&title&"</a>[<font size=1>"&datevalue(rs("Date")) & "</font>]<br>"
rs.movenext
loop
display_X=display_X & "<script language=javaScript type=text/javascript SRC=/goodgg/Script/openScript.js></script>"
end if
rs.close
conn.close
set rs=nothing
set conn=nothing
display_X="document.write('"&display_X&"');"
response.write display_X
%>
一运行new.asp 就出现阶500- 内部服务器错

[stefli]

option explicit
写在文件的最上面。

[zbulrush]

rs.open sql,conn 需要参数
应该为：rs.open sql,conn,1,1

[zbulrush]

conn.Open "driver={SQL Server};server=aaweb\aaweb;
应该为：connstr="driver={SQL Server};server=aaweb\aaweb;

[swich]

option explicit放在最上面

[oowingoo]

建议你把IIS里头的自定义错误信息里面的500改为默认值，然后在运行程序，这样错误提示会清晰一点。