Calmaris
02-11-2003, 02:55 PM
HOW DO YOU TAKE ALL OF THE COMMENTS OUT OF THE DATABASE AND PUT THEM ON THE WEB PAGE THE WAY THE THREAD SYSTEM WORKS IN THIS FORUM. I ONLY KNOW HOW TO PUT THE FIRST COMMENT IN THE DATABASE ONTO THE WEB PAGE. DO YOU USE A COUNT UNTIL EOF? AND HOW DO YOU SAY ONLY PUT LIKE 10 COMMENTS ON A PAGE THEN THE USER CLICKS NEXT AND THE WEB PAGE DISPLAYS THE NEXT 10 COMMENTS? SOME EXAMPLE CODE WOULD BE MUCH APPRECIATED!!
<% @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("Comments").VALUE
Set recordsetDB = dbConn.Execute(strquerystring1)
%>
<html>
<head>
<title>View Comments</title>
</head>
<body background="grback.jpg">
COMMENTS ABOUT THE SITE AND THE HUNTING TRIPS <BR>
<%=strComments%>
</body>
</html>
<% @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("Comments").VALUE
Set recordsetDB = dbConn.Execute(strquerystring1)
%>
<html>
<head>
<title>View Comments</title>
</head>
<body background="grback.jpg">
COMMENTS ABOUT THE SITE AND THE HUNTING TRIPS <BR>
<%=strComments%>
</body>
</html>