ASP.NET新手问题，主页无法显示（在线紧急求助）

zyzlh 2009-07-17 09:48:46

IIS设置完全没问题，电脑和浏览器也没问题，可以打开其他页面

之前都是可以的，不知道无意中改了什么地方
大家帮我看看哪里出了问题，

提示内部服务器错误 HTTP500

主页的代码
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

<%
Dim config
Dim config_cmd
Dim config_numRows

Set config_cmd = Server.CreateObject ("ADODB.Command")
config_cmd.ActiveConnection = MM_xw_STRING
config_cmd.CommandText = "SELECT mc FROM config"
config_cmd.Prepared = true

Set config = config_cmd.Execute
config_numRows = 0
%>
<%
Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows

Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")
Recordset1_cmd.ActiveConnection = MM_xw_STRING
Recordset1_cmd.CommandText = "SELECT lmmc FROM lm"
Recordset1_cmd.Prepared = true

Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title><%=(config.Fields.Item("mc").Value)%> --欢迎您！</title>
</head>




<body>
</body>
</html>
<%
config.Close()
Set config = Nothing
%>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>

...全文