|
Click here to
post a NEW topic of discussion.
Read previously posted topics and reply to them below.
This is a MODERATED forum. Please read our Terms of Use* below.
Have a Question? Before posting it, please read our FAQ PAGE - it might be answered there.
Posts are recorded and show your IP address to avoid spam and antagonistic conduct. Please be civil. |
<%
Set Pass1 = Server.CreateObject("ADODB.Connection")
Set PassPull=Server.CreateObject("ADODB.Recordset")
Pass1.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("/starstreams.com/../cgi-bin/star.mdb;"))
'PassPull.Open "SELECT * FROM guestbook ORDER BY InDate DESC", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("/starstreams.com/./cgi-bin/star.mdb;"), adOpenStatic
PassPull.open "SELECT Main.* FROM Main WHERE ReplyID = 0 ORDER by MessageDate DESC, MessageTime DESC",Pass1,adOpenStatic
PassPull.PageSize=10
IF request.querystring("NewPage")="" THEN
PassPull.AbsolutePage= 1
AbPg= Abs(PassPull.AbsolutePage)
End If
IF request.querystring("NewPage")="Next" THEN
set AbPg = request.querystring("AbPg")
PassPull.AbsolutePage= AbPg + 1
AbPg=AbPg+1
End If
IF request.querystring("NewPage")="Prev" THEN
set AbPg = request.querystring("AbPg")
PassPull.AbsolutePage= AbPg - 1
AbPg=AbPg - 1
END IF
NumRows=0
WHILE NOT PassPull.EOF AND NumRows
|
|
| Replies: |
<%
Set dbRs = Pass1.Execute("SELECT * FROM Main WHERE ReplyID = " & DooDah & " ORDER by MessageDate, MessageTime")
%>
<% Do While Not dbRs.EOF %>
"><%=dbRs("MessageTitle")%>
from "><%=dbRs.Fields("UserName")%> on <%=dbRs.Fields("MessageDate")%>
<%dbRs.MoveNext%> <%loop%><%
Set dbRs = Nothing
%> |
<%PassPull.MoveNext
NumRows=NumRows+1
WEND
Pass1.Close
Set Pass1 = Nothing
%>
*TERMS OF USE: By participating here you understand this is a MODERATED forum and you agree that we reserve the right to delete posts we consider to be inappropriate, in bad taste, personal attacks, crude innuendo or contain links to same. Please try to be civil and direct topics and replys to the program and its content. Bottom Line: BE COOL or BE GONE. Additional Terms of Usage.
<%if AbPg >1 THEN%>
Previous 10 Threads |
<%else%>
<%End If%>
<%if NumRows
<%ELSE%>
Next 10 Threads |
