<% init template_start__ %>
<% %>

free membership on bikefilms.com

<% dim f set f = create_email_form_object( "Unsubscribe" ) dim successful dim msg successful = false msg = "" if f.IsPostBack() then dim profile set profile = new cProfile if not profile.Load( request("e_mail") ) then msg = "This e-mail address is not in our records." else select case profile.get_attribute("mailing_list_status") case MAILING_LIST_STATUS_SUBSCRIBED Conn.Execute "UPDATE profiles " & _ "SET mailing_list_status=" & MAILING_LIST_STATUS_UNSUBSCRIBED & " " & _ "WHERE id=" & profile.get_attribute("id") successful = true %>Your address has been removed from our mailing list.<% case MAILING_LIST_STATUS_UNSUBSCRIBED msg = "You have already unsubscribed." case MAILING_LIST_STATUS_NEVER_SUBSCRIBED msg = "You are not subscribed to our mailing list." end select end if end if if not successful then if msg<>"" then %>

<%= msg %>

<% end if %>

Enter your e-mail below if you wish to unsubscribe from our mailing list:

<% e_mail_form_layout_with_button f end if %>
<% template_end %>