Add Some PIZZAZZ To Your Band's Website!
 |
View Message: |
|
|
<% Rem Now extract the message list from the table and thread messages%>
<%
threadID=Request.QueryString("threadID")
If threadID = "" Then threadID = 0
MessageNo=Request.QueryString("MessageNo")
'MySql="SELECT messages.MessageID FROM threads INNER JOIN messages ON threads.ThreadID = messages.threadID WHERE ((threads.forumID)=1) ORDER BY messages.threadID DESC, messages.MessageID;"
MySql="SELECT messages.* FROM messages Where Messages.threadID=" & threadID & " ORDER BY messages.MessageID;"
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open MySql, my_Conn, adOpenStatic, adLockReadOnly, adCmdText
indents=0
do while Not RS.EOF
dim tt
tt = rs("messageID")
For n = 1 to len(tt)
if mid(tt, n, 1) = "." Then
indents = indents + 1
End If
next
Response.write ""
For n= 1 to indents
Response.write " "
Next
lpDate=RS("Posted")
If DateDiff("d",lpDate , DATE) < DAYflag then
lastpostday=weekday(lpDate)
pTime = formatdatetime(lpDate, 4)
lpDate =pweekday(lastpostday) & " " & pTime
End If
if MessageNo<>Trim(RS("MessageNo")) Then
Response.write "  " & rs("Subject") & " by " & rs("Poster") & " - " & lpDate & ""
Else
Response.write " " & rs("Subject") & " by " & rs("Poster") & " - " & lpDate & " - You are HERE!"
subject=RS("Subject")
poster=RS("Poster")
posted=RS("Posted")
email=RS("Email")
comments=RS("Message")
PrevID=RS("MessageID")
threadID=RS("threadID")
messageNo=rs("MessageNo")
End If
snow1 = rs("Posted")
If DateDiff("d", snow1, DATE) < NEWflag then
Response.write " - NEW!!"
End If
Response.write "" indents = 0 RS.MoveNext Loop %> <% Response.write "" Response.write " The following message (subject: " & subject & ") was posted by " If email<>"Not disclosed" Then Response.write "" & poster & "" else Response.write poster End If Response.write ", on " & posted & ". " Response.write "" & comments & " " %><% if (Session("name")="admin") or (session("name")=poster) Then response.write "Delete" if MessageNo=1 Then Response.write " (this will delete all messages in the thread)" End If session("deleter")="yes" response.write " " End If %> <% Rem Not draw the form where new messages can be entered:%> <% TypeofPost="Reply" my_conn.close %> | |||
|
Copyright 2001. Band Marketing Today |
|||
