<% dim RSSETTINGS Set RSSETTINGS = Server.CreateObject("ADODB.Recordset") RSSETTINGS.Open "Settings", Conn, 2, 2 RSSETTINGS.Find "ID='" & 1 & "'" RSSETTINGS("List_Name") = request("List_Name") RSSETTINGS("Admin_ID") = request("Admin_ID") RSSETTINGS("Admin_Email") = request("Admin_Email") RSSETTINGS("Admin_Pass") = request("Admin_Pass") RSSETTINGS("From_Email") = request("From_Email") RSSETTINGS("URL_Dir") = request("URL_Dir") RSSETTINGS("URL_Home") = request("URL_Home") RSSETTINGS("Component") = request("Component") If (request("SMTP") = "") Then RSSETTINGS("SMTP") = Null Else RSSETTINGS("SMTP") = request("SMTP") End If RSSETTINGS.update RSSETTINGS.close set RSSETTINGS = nothing %> <%=RSBODY("List_Name")%>
 <%=RSBODY("List_Name")%>
 Home
 Send Mailing
 View/Edit Subscribers
 Generate HTML
 Mail Archive
 Settings
 Support
 Log Out
 Settings
Your settings have been updated.

<< Return
Maintained with the SiteBuilder Mailing List Manager v1.07