<% Title = "Newsletter" FooterOffsetHeight = 350 RequestFlag = Request.Form("RequestFlag") if (RequestFlag = "") then RequestFlag = "none" FooterOffsetHeight = 100 end if Firstname = Replace(Request.Form("firstname"), "<", "") Firstname = Replace(Firstname, "'", "") Lastname = Replace(Request.Form("lastname"), "<", "") Lastname = Replace(Lastname, "'", "") Email = Replace(Request.Form("email"), "<", "") Email = Replace(Email, "'", "") %> <% GenerateHTMLTop "topitem_NewsEvents", "dropMenu_NewsEvents", "", "", FooterOffsetHeight, "Newsletter", "", "" GenerateBreadCrumb "83#114", 2 GenerateContentHeadline "Newsletter", "" if(RequestFlag = "none") then %>

Subscribe

Please fill out the form. You`ll get a confirmation email to your adress.


Please note our data protection


All fields marked with * must be filled out.


Persönliche Angaben


Submit



Unsubscribe

You won`t get our newsletter any longer? Then please fill in your email-adress in the form below:


E-Mail-Adresse
Submit
<% elseif (RequestFlag = "subscribe") then %> Thanks you for your request. An email has been sended to your address (<%=Email%>).
<% SQLStr= "SELECT COUNT(Email) AS Counter FROM tblEmail WHERE Email = '" & Email & "'" Set MainRS = Conn.Execute(SQLStr) Counter = MainRS("Counter") if(Counter = 0) then ' Datensatz in Tabelle einfügen SQLStr = "INSERT INTO tblEmail (Email, Lastname, Firstname, IsNewsletter) values ('" & Email & "', '" & Lastname & "', '" & Firstname & "', 1)" Conn.Execute(SQLStr) ' Datensatz in Tabelle einfügen else SQLStr = "UPDATE tblEmail SET IsNewsletter = 1 WHERE Email = '" & Email & "'" Conn.Execute(SQLStr) end if SendMail "sales@bit-industrial.com", Email, "Bit Tradition - Newsletter subscription", "Thank you for subscribing our newsletter ...", "" elseif (RequestFlag = "unsubscribe") then %> Thanks you for your request. You won't get the newsletter anymore.
<% SQLStr = "UPDATE tblEmail SET IsNewsletter = 0 WHERE Email = '" & Email & "'" Conn.Execute(SQLStr) end if GetHTMLButton() %>