在win7下测试通过，win2008服务器却通不过，附代码，请高人指导
编写网站的机器是win7，用得dwcs5，用同事的机器访问win7网站都正常，发布到win2008服务器上，一个判断登录的网页却总报如下错误：

此错误(HTTP 500 内部服务器错误)意味着您正在访问的网站出现了服务器问题，此问题阻止了该网页的显示。

有关 HTTP 错误的详细信息，请参阅帮助。


不知道是我代码的问题还是服务器的权限设置问题，我贴下代码，帮我看看在win2008上IIS设置里应该放开哪些权限。


<!--#include file="inc/conn.asp" -->
<!--#include file="md5.asp" -->


<%
dim usecode
dim usepass
dim yzm

usecode=request.Form("ucode")
usepass=mistake(request.Form("upass"))
yzm=request.Form("yzm")



 Set rs=conn.Execute("SELECT * FROM emplfile where empl_code='"&usecode&"' and empl_pw='"&usepass&"'")
response.Write(usepass)
If rs("empl_code")="" or rs("empl_code")=null  or rs.eof or rs.bof or yzm<>session("yzm") Then
    
 rs.close
 conn.close
 session("log_flag")=1
 set rs = nothing
 Set conn = Nothing
  session("emplcode")=null
 Response.redirect("login.asp")
 Response.End
 end if
 session("emplcode")=usecode
 session("emplpw")  =usepass
 session("emplname")=rs("empl_name")
 session("noteclass")=rs("note_class")
 session("emplevel")=rs("empl_level")
 response.Write("登录成功")
 response.Redirect("/kindeditor/asp/demofb.asp")
 
rs.close
set rs=nothing





%> 

 

------解决方案--------------------
代码有问题，但是你这个500错误应该是你的数据库连接有问题吧，你移动了网站，数据库连接检查下

<!--#include file="inc/conn.asp" -->
<!--#include file="md5.asp" -->


<%
dim usecode
dim usepass
dim yzm

usecode=request.Form("ucode")
usepass=mistake(request.Form("upass"))
yzm=request.Form("yzm")



 Set rs=conn.Execute("SELECT * FROM emplfile where empl_code='"&usecode&"' and empl_pw='"&usepass&"'")
response.Write(usepass)
If rs("empl_code")="" or rs("empl_code")=null  or rs.eof or rs.bof or yzm<>session("yzm") Then
    
 rs.close
 conn.close
 session("log_flag")=1
 set rs = nothing
 Set conn = Nothing
  session("emplcode")=null
 Response.redirect("login.asp")
 Response.End
 end if
 session("emplcode")=usecode
 session("emplpw")  =usepass
 session("emplname")=rs("empl_name")
 session("noteclass")=rs("note_class")
 session("emplevel")=rs("empl_level")
 response.Write("登录成功")
 response.Redirect("/kindeditor/asp/demofb.asp")
 
rs.close
set rs=nothing
红色部分永远不会执行