<% Response.Expires = 0 Response.Buffer = True strHeader = request("txtHeader") strFooter = request("txtFooter") ' Create a recordset object to store specific table information Set objHeaderFooter = Server.CreateObject("ADODB.Recordset") 'Establish what records you want selected for the SQL query string SQL = "Select * From TblHeaderFooter" 'Set the recordset object equal to the SQL query string objHeaderFooter.Open SQL, objADO, 1, 3 'This code only runs if the submit button is clicked if Request.Form <> "" then objHeaderFooter("EmailHeader") = strHeader objHeaderFooter("EmailFooter") = strFooter objHeaderFooter.update Response.Redirect "sendmail.asp" end if %>

EMAIL HEADER/FOOTER

Input messages here that you would like to appear at the top and bottom of every email that is sent.

Use html tags to format your text the way you like it.

<% if Msg <> "" then %>
<%= Msg %>
<% end if %>
Email Header: Text that you want to appear at the beginning of every email
<% if Request.Form <> "" then %> <% else %> <% end if %>

Email Footer: Text that you want to appear at the end of every email
<% if Request.Form <> "" then %> <% else %> <% end if %>