<% dim RS Set RS = Server.CreateObject("ADODB.Recordset") RS.Open "List", Conn, 2, 2 RS.Find "ID='" & Request.Form("Member") & "'" RS("Email") = request("Email") RS("Name_First") = request("Name_First") RS("Name_Last") = request("Name_Last") If NOT (request("Date_In") = "") Then RS("Date_In") = request("Date_In") End If RS.update %> <%=RSBODY("List_Name")%>
 <%=RSBODY("List_Name")%>
 Home
 Send Mailing
 View/Edit Subscribers
 Generate HTML
 Mail Archive
 Settings
 Support
 Log Out
 View/Edit Subscribers
The Subscriber has been updated.

&page=<%=Request("page")%>&SearchFor=<%=Request("SearchFor")%>&SearchWhere=<%=Request("SearchWhere")%>"><< Return
Maintained with the SiteBuilder Mailing List Manager v1.07