奥普特排气怎么样:http 500 错误

我在自己的电脑上用Deamwaver调试一个asp网站程序，老是会出现http 500 错误。不知道是不是我的asp程序有问题。
请各位大虾帮忙看看！

<%
sqlconn1="select * from admin"
set rsconn1=conn.execute(sqlconn1)
homeurl=rsconn1("homeurl")
pages=rsconn1("page")
BadWords =rsconn1("badword")
home=rsconn1("home")
s_id=rsconn1("s_id")
total=rsconn1("total")
admin4=rsconn1("admin")
set rsconn1=nothing

sqlconn="select * from announce order by a_time desc"
set rsconn=conn.execute(sqlconn)
if not(rsconn.bof and rsconn.eof) then
a_title=rsconn("a_title")
a_content=rsconn("a_content")
a_username=rsconn("a_username")
a_time=rsconn("a_time")
end if

sqlstyle="select * from stycss where s_id="&s_id&""
set rsstyle=conn.execute(sqlstyle)
background=rsstyle("background")
hColor=rsstyle("hColor")
tColor=rsstyle("tColor")
tColor1=rsstyle("tColor1")
tColor2=rsstyle("tColor2")
bgColor=rsstyle("bgColor")
bdtj=rsstyle("bdtj")
tdc =rsstyle("tdc")
tdc1=rsstyle("tdc1")
top1=rsstyle("top1")
link=rsstyle("link")
ttitle=rsstyle("ttitle")
set rsstyle=nothing

o_ip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
if o_ip = "" then o_ip = Request.ServerVariables("REMOTE_ADDR")
%>
HTTP 500 - 内部服务器错误