|
Sign
up here and get the benefits
| <%=GroupName%>
|
| Jump
to a new Recomended Links: |
|
|
|
Add
URL
<%
On Error Resume Next
DB.Close
Set DB = Nothing
Set DB = Server.CreateObject("ADODB.Connection")
DB.Open strConnect
sqlCommand = "SELECT DISTINCTROW Message.ID, Message.Subject, Message.From, Message.Email, Message.When, Message.MsgLevel, Message.PrevRef, Message.ThreadPos, Message.Body FROM Message WHERE (MsgLevel = 1) AND (GroupName = '" & ChosenGroup & "') ORDER BY Message.When DESC;"
Set RS = db.Execute(sqlCommand)
If Not RS.EOF Then
arrRecTop = RS.GetRows(cMaxTopLevel)
SQLQuery = "SELECT Message.ID, Message.Subject, Message.From, Message.Email, Message.When, Message.MsgLevel, Message.PrevRef, Message.ThreadPos, Message.Body FROM Message WHERE (GroupName = '" & ChosenGroup & "') AND (MsgLevel > 1) ;"
Set RS=db.Execute(SQLQuery)
If Not RS.EOF Then
arrRecRest = RS.GetRows()
Else
Dim arrRecRest
arrRecRest = Empty
End If
gLastMsgLevel = 0
For intTopLevelRow = 0 To UBound(arrRecTop, 2)
GenList arrRecTop(cMsgLevel, intTopLevelRow), arrRecTop, intTopLevelRow
If Not IsEmpty(arrRecRest) Then
ExpandFrom arrRecTop(cID, intTopLevelRow), 1
End If
Next
GenList 0, 0, 0
Else
Response.Write "No Links"
End If
Sub ExpandFrom(lngID, intThreadPos)
If intThreadPos <= 10 Then 'Continue processing.
For lngRow = 0 To UBound(arrRecRest, 2)
If (arrRecRest(cPrevRef, lngRow) = lngID) And (arrRecRest(cThreadPos, lngRow) = intThreadPos) Then 'A child message found.
'Output row.
GenList arrRecRest(cMsgLevel, lngRow), arrRecRest, lngRow 'Expand current branch.
ExpandFrom arrRecRest(cID, lngRow), 1
Exit For
End If
Next
ExpandFrom lngID, intThreadPos + 1 'Expand branches below current branch.
End If
End Sub
%>
<% = RS.Fields("Body") %> |
<%
On Error Resume Next
Function GenList(intNewMsgLevel, arrSourceArray, intRow)
Dim intIndex
For intIndex = gLastMsgLevel To intNewMsgLevel -1
MsgIndent=0
MsgLvl = arrSourceArray(cMsgLevel, intRow)
i=0
Do While i <> MsgLvl
MsgIndent = 15+MsgIndent
i = i+1
Loop
Response.Write "" & vbCrlf
Next
For intIndex = intNewMsgLevel To gLastMsgLevel -1
Response.Write " "
Next
If intNewMsgLevel > 0 Then
Response.Write ListItem(arrSourceArray, intRow)
End If
gLastMsgLevel = intNewMsgLevel
End Function
Function ListItem(arrSourceArray, intRow)
ListItem = "" & vbCrlf & " " _
& arrSourceArray(cFrom, intRow) & " - " & arrSourceArray(cEmail, intRow) _
& " (Added: " & arrSourceArray(cWhen, intRow) & ")" & strEnd & vbCrlf
End Function
Function From(arrSourceArray, intRow)
strName = arrSourceArray(cBody, intRow)
strEmail = arrSourceArray(cEmail, intRow)
If InStr(strEmail, "@") > 0 Then 'Email parameter given and is OK.
From = "" & strName & ""
Else
From = strName
End If
End Function
%>
Home
| Presentation | Video | Software | Research | Transcript | Brochure | Product
| Link Exchange
gdvtechnique.com @ 2001. All rights reserved |
