不能打开注册表关键字的 '80004005' 错误
郁闷，老发不成功！！！算了！！
[此贴子已经被作者于2006-8-8 15:48:31编辑过]
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/conn3.asp" -->
<%
Dim RstNewsSubject
Dim RstNewsSubject_numRows
Set RstNewsSubject = Server.CreateObject("ADODB.Recordset")
RstNewsSubject.ActiveConnection = MM_conn3_STRING
RstNewsSubject.Source = "SELECT * FROM tNewsSubject"
RstNewsSubject.CursorType = 0
RstNewsSubject.CursorLocation = 2
RstNewsSubject.LockType = 1
RstNewsSubject.Open()
RstNewsSubject_numRows = 0
%>
<html>
<head>
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
-->
</style>
</head>
<body background="file:///C:\Inetpub\wwwroot\news2\images\bg01.gif">
<!--#include file="include/head.htm"-->
<%
RstNewsSubject.Close()
Set RstNewsSubject = Nothing
%>
<table width="750" align="center" ID="Table1">
<tr>
<td align="center" width="750"></td>
</tr>
</table>
<table width="750" align="center" ID="Table2">
<td><!--#include file="include/buttom.htm"--></td>
</table>
</body>
</html>
