|
|
|
|||
| Aysms > Forum > Messaggio | ||||
|
|
|
|||
| Aysms > Forum > Messaggio | ||||
| Visualizzazione messaggio: |
|
||
<% Rem Now extract the message list from the table and thread messages%>
<%
threadID=Request.QueryString("threadID")
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") & " inviato da " & rs("Poster") & " il " & lpDate & ""
Else
Response.write " " & rs("Subject") & " inviato da " & rs("Poster") & " il " & lpDate & " - Sei qui"
subject=RS("Subject")
poster=RS("Poster")
posted=RS("Posted")
email=RS("Email")
comments=RS("Message")
PrevID=RS("MessageID")
threadID=RS("threadID")
End If
snow1 = Now
If DateDiff("d", snow1, DATE) < NEWflag then
Response.write " - Nuovo!"
End If
Response.write "" indents = 0 RS.MoveNext Loop %>
<%
Response.write ""
Response.write " Il seguente messaggio(soggetto: " & subject & ")č stato postato da "
If email<>"Not disclosed" Then
Response.write "" & poster & ""
else
Response.write poster
End If
Response.write ", il " & posted & ". " & comments & " | |||
