|
|
|
<%
mylimit = 10 'How many results to show per page
Dim mybg
IF tc = "" THEN
SET rsCount = Server.CreateObject("ADODB.Recordset")
mySQL = "SELECT Count(feed_id) AS totcount FROM mfeed WHERE feed_status =1"
rsCount.Open mySQL, strCon
totcount = Cint(rsCount("totcount"))
rsCount.Close
Set rsCount = Nothing
ELSE
totcount = tc
END IF
IF pgs > totcount THEN
adoConn.Close
Set adoConn = Nothing
Response.Redirect "feedback.asp"
END IF
Count = 0
SET rsFind = Server.CreateObject("ADODB.Recordset")
mySQL = "SELECT * FROM mfeed WHERE feed_status = 1 ORDER BY feed_id DESC LIMIT " & pgs & "," & mylimit
rsFind.Open mySQL, strCon
Response.Write ""
Response.Write "Recent Visitor Comments | "
Do While NOT rsFind.EOF
Response.Write "" & rsFind.Fields("feed_comment")
Response.Write " " & rsFind.Fields("feed_name") & " from " & rsFind.Fields("feed_town") & ", " & rsFind.Fields("feed_country") & " | "
Response.Write "
| "
Count = Count + 1
rsFind.MoveNext
Loop
Response.Write " "
topfig = pgs + Count
IF Count <1 THEN
Response.Write ""
Response.Write " There are no comments yet entered | "
ELSE
' To create the previous link
Response.Write "
"
IF pgs = 0 THEN
Response.Write " | "
ELSE
Response.Write ""
END IF
' creating which results we're looking at
Response.Write "Displaying Results " & pgs +1 & "-" & topfig & " of " & totcount & " | "
' Create next link
If Count < mylimit OR Cdbl(topfig) = Cdbl(totcount) THEN
Response.Write " | "
ELSE
response.write " | "
END IF
Response.Write " "
END IF
rsFind.Close
Set adoConn = Nothing
Set strCon = Nothing
Set rsFind = Nothing
%>
|
|
|
|