データベースへのアクセスを試みています。
下にエラーメッセージが表示される場合には、
データベースへのアクセスに問題がある場合があります。
ご確認ください。
|
<%
On Error Resume Next
Err.Clear
Dim Query
Query = "SELECT name FROM sysobjects WHERE (xtype = 'U') AND (status >= 0) ORDER BY name"
Set Content = OpenQuery(Query)
If Err.Source <> "" Then
Response.Write(Err.Source & "
" & vbCrLf)
Response.Write(Err.Description)
Else
Response.Write("エラーはありません")
End If
%>
|
|