THIS IS THE ERROR
Error Type:
Microsoft VBScript runtime (0x800A01B6)
Object doesn't support this property or method: 'Fields'
/hunting/wwwroot/View_Comments.asp, line 23
<% @Language = VBScript %>
<% Option Explicit %>
<%
Dim dbConn, dbQuery, recordsetDB, strComments, strQueryString1
If IsObject(Session("users_dbConn") ) Then
Set dbConn= Session("users_dbConn")
Else
Set dbConn = Server.CreateObject("ADODB.Connection")
Call dbConn.Open ("Appdb1","Anyone","Anyone")
Set Session("users_dbConn")= dbConn
End If
%>
<%
strquerystring1 = "SELECT Comments.Comments FROM Comments "
recordsetDB = dbconn.execute(strquerystring1)
strComments = recordsetDB.Fields("Comments").Value
Set recordsetDB = dbConn.Execute(strquerystring1)
%>
<html>
<head>
<title>View Comments</title>
</head>
<body background="grback.jpg">
<form name = "Comments" method="POST" action="View_Comments.ASP">
<p><textarea rows="8" name="Comments" cols="41"></textarea></p>
</form>
</body>
</html>