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

<% 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 = "(Email LIKE ('%" & SearchFor & "%') OR Name_First LIKE ('%" & SearchFor & "%') OR Name_Last LIKE ('%" & SearchFor & "%') OR Date_In LIKE ('%" & SearchFor & "%'))" Else SQL_SearchWhere = SearchWhere & " LIKE ('%" & SearchFor & "%')" End If If NOT (SearchFor = "") Then SQL_SearchFor = " WHERE " & SQL_SearchWhere Else SQL_SearchFor = "" End If If orderBy = "Email_Up" Then SQL_OrderBy = " ORDER BY Email DESC" ElseIf orderBy = "Email_Down" Then SQL_OrderBy = " ORDER BY Email" ElseIf orderBy = "Name_Last_Up" Then SQL_OrderBy = " ORDER BY Name_Last DESC" ElseIf orderBy = "Name_Last_Down" Then SQL_OrderBy = " ORDER BY Name_Last" ElseIf orderBy = "Name_First_Up" Then SQL_OrderBy = " ORDER BY Name_First DESC" ElseIf orderBy = "Name_First_Down" Then SQL_OrderBy = " ORDER BY Name_First" ElseIf orderBy = "Date_In_Up" Then SQL_OrderBy = " ORDER BY Date_In DESC" ElseIf orderBy = "Date_In_Down" Then SQL_OrderBy = " ORDER BY Date_In" Else orderBy = "Email_Down" SQL_OrderBy = " ORDER BY Email" End If SQL = "SELECT * FROM List" & 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%>"> Email 1<%Else%><%=intPage%><%End If%>&SearchFor=<%=SearchFor%>&SearchWhere=<%=SearchWhere%>"> 1<%Else%><%=intPage%><%End If%>&SearchFor=<%=SearchFor%>&SearchWhere=<%=SearchWhere%>"> Last Name 1<%Else%><%=intPage%><%End If%>&SearchFor=<%=SearchFor%>&SearchWhere=<%=SearchWhere%>"> 1<%Else%><%=intPage%><%End If%>&SearchFor=<%=SearchFor%>&SearchWhere=<%=SearchWhere%>"> First Name 1<%Else%><%=intPage%><%End If%>&SearchFor=<%=SearchFor%>&SearchWhere=<%=SearchWhere%>"> 1<%Else%><%=intPage%><%End If%>&SearchFor=<%=SearchFor%>&SearchWhere=<%=SearchWhere%>"> Date Joined 1<%Else%><%=intPage%><%End If%>&SearchFor=<%=SearchFor%>&SearchWhere=<%=SearchWhere%>">
&orderby=<%=orderby%>&page=<%=intPage%>&SearchFor=<%=SearchFor%>&SearchWhere=<%=SearchWhere%>">Edit  &orderby=<%=orderby%>&page=<%=intPage%>&SearchFor=<%=SearchFor%>&SearchWhere=<%=SearchWhere%>">Remove <%=RS("Email")%> <%=RS("Name_Last")%> <%=RS("Name_First")%> <%=RS("Date_In")%>
<%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 subscribers.
<%Else%>
There are currently no subscribers that match your search.
<%End If End If RS.close Set RS = Nothing %>
Maintained with the SiteBuilder Mailing List Manager v1.07