Welcome to Musical Starstreams!
Discussion Forum


home    faq    offers    free    about    listen    playlists    affiliates    host    gallery    guestbook    tipjar   

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
 &QuestionNum=<%=PassPull.Fields("QuestionID")%>"><%=PassPull.Fields("MessageTitle")%>
posted by: "><%=PassPull.Fields("UserName")%> on <%=PassPull.Fields("MessageDate")%> - <%=PassPull.Fields("MessageTime")%> <% DooDah = PassPull.Fields("QuestionID") %>
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
<%END IF%>



Rent this Space

thanks for visiting and invite your friends...

©1981-2016. Musical Starstreams.® All Rights Reserved.
No content from this site may be copied, used or reproduced without prior permission. Terms of usage.