<%=RSBODY("List_Name")%>
 Home
 Send Mailing
 View/Edit Subscribers
 Generate HTML
 Mail Archive
 Settings
 Support
 Log Out
 Mail Archive

<% Dim orderBy orderBy = request.querystring("orderby") dim SQL dim SearchFor dim SearchWhere SearchWhere = request("SearchWhere") SearchFor = request("SearchFor") dim SQL_SearchFor dim SQL_SearchWhere If (SearchWhere = "All") Then SQL_SearchWhere = "(Date LIKE ('%" & SearchFor & "%') OR Subject LIKE ('%" & SearchFor & "%') OR Body LIKE ('%" & SearchFor & "%'))" ElseIf (SearchWhere = "") Then SQL_SearchWhere = "" Else SQL_SearchWhere = SearchWhere & " LIKE ('%" & SearchFor & "%')" End If If NOT (SearchFor = "") Then SQL_SearchFor = " WHERE " & SQL_SearchWhere Else SQL_SearchFor = "" End If If orderBy = "Date_Up" Then SQL_OrderBy = " ORDER BY Date DESC" ElseIf orderBy = "Date_Down" Then SQL_OrderBy = " ORDER BY Date" ElseIf orderBy = "Subject_Up" Then SQL_OrderBy = " ORDER BY Subject DESC" ElseIf orderBy = "Subject_Down" Then SQL_OrderBy = " ORDER BY Subject" Else orderBy = "Date_Up" SQL_OrderBy = " ORDER BY Date DESC" End If SQL = "SELECT * FROM Archive" & SQL_SearchFor & SQL_OrderBy %>
Search for In
<% Set RS = Server.CreateObject("ADODB.Recordset") Dim colorchanger Dim color1 Dim color2 colorchanger = 0 color1 = "#C5D3E7" color2 = "#B0C4DE" dim intPage dim intPageCount dim intRecordCount If Request.QueryString("page") = "" Then intPage = 1 Else intPage = Request.QueryString("page") End If RS.CursorLocation = 3 RS.CursorType = 3 RS.ActiveConnection = Conn RS.Open SQL, Conn, 1, 3 RS.PageSize = 20 RS.CacheSize = RS.PageSize intPageCount = RS.PageCount intRecordCount = RS.RecordCount If NOT (RS.BOF AND RS.EOF) Then %> <% If CInt(intPage) > CInt(intPageCount) Then intPage = intPageCount If CInt(intPage) <= 0 Then intPage = 1 If intRecordCount > 0 Then RS.AbsolutePage = intPage intStart = RS.AbsolutePosition If CInt(intPage) = CInt(intPageCount) Then intFinish = intRecordCount Else intFinish = intStart + (RS.PageSize - 1) End if End If If intRecordCount > 0 Then For intRecord = 1 to RS.PageSize %> <% RS.MoveNext If colorchanger = 1 Then colorchanger = 0 color1 = "#C5D3E7" color2 = "#B0C4DE" Else colorchanger = 1 color1 = "#DAE3F0" color2 = "#C5D3E7" End If If RS.EOF Then Exit for Next %>
1<%Else%><%=intPage%><%End If%>&SearchFor=<%=SearchFor%>&SearchWhere=<%=SearchWhere%>"> Date 1<%Else%><%=intPage%><%End If%>&SearchFor=<%=SearchFor%>&SearchWhere=<%=SearchWhere%>"> 1<%Else%><%=intPage%><%End If%>&SearchFor=<%=SearchFor%>&SearchWhere=<%=SearchWhere%>"> Subject 1<%Else%><%=intPage%><%End If%>&SearchFor=<%=SearchFor%>&SearchWhere=<%=SearchWhere%>">  Format 
&orderby=<%=orderby%>&page=<%=intPage%>&SearchFor=<%=SearchFor%>&SearchWhere=<%=SearchWhere%>">View  &orderby=<%=orderby%>&page=<%=intPage%>&SearchFor=<%=SearchFor%>&SearchWhere=<%=SearchWhere%>">Remove <%=RS("Date")%> <%=RS("Subject")%> <%=RS("Format")%>
<%If cInt(intPage) > 1 Then%> << Prev <%End If%> <%If cInt(intPage) < cInt(intPageCount) Then%> Next >> <%End If%>

<%End If Else If (SearchFor = "") Then%>
There are currently no archived messages.
<%Else%>
There are currently no archived messages that match your search.
<%End If End If RS.close Set RS = Nothing %>
Maintained with the SiteBuilder Mailing List Manager v1.07