<% 'Copyright (C) 2004-2007 Canol Gökel ' 'This program is free software; you can redistribute it and/or 'modify it under the terms of the GNU General Public License 'as published by the Free Software Foundation; either version 2 'of the License, or (at your option) any later version. ' 'All copyright notices regarding iyzi Forum must remain intact in 'the scripts and in the outputted HTML. ' 'The "iyzi Forum" text with a link back to http://www.iyziforum.com 'in the footer of the pages MUST remain visible when the pages 'are viewed on the internet or intranet. ' 'This program is distributed in the hope that it will be useful, 'but WITHOUT ANY WARRANTY; without even the implied warranty of 'MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 'GNU General Public License for more details. ' 'You should have received a copy of the GNU General Public License 'along with this program; if not, write to the Free Software 'Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. ' 'Support can be obtained from my web site at: 'http://www.iyziforum.com ' 'E-Mail: canol@canol.info Response.Expires = 60 Response.Expiresabsolute = Now() - 1 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "no-cache" %> <% If InStr(SettingsAdmins, "-" & Session(SettingsCookieName & "AdminMemberID") & "-") <> 0 Then %>
<% Action = Request.QueryString("Action") If Action = "" Then Call EmailSettings ElseIf Action = "Save" Then Call Save End If %>
<% End If Connection.Close Set Connection = Nothing Sub EmailSettings %>
<%=LanGuideMainPage%> » <%=LanAdminPanel%> » <%=LanGuideEmailSettings%>
<%=LanHeaderEmailFeatureStatusSettings%>
<%=LanEmailFeatures%> />
<%=LanEmailComponent%>
<%=LanSMTPAddress%>
(<%=LanSMTPAddressNote%>) 		"<%If SettingsEmailFeatures = "0" Then Response.Write " disabled=""disabled""" End If%> />
<%=LanEmailBodyFormat%> <%If SettingsEmailFeatures = "0" Then Response.Write " disabled=""disabled""" End If%> />
<%If SettingsEmailFeatures = "0" Then Response.Write " disabled=""disabled""" End If%> />
<%=LanHeaderEmailSubjectsAndBodies%>
<%=LanMembershipActivationEmailSubject%> "<%If SettingsEmailFeatures = "0" Then Response.Write " disabled=""disabled""" End If%> />
<%=LanMembershipActivationEmailBody%>
<%=LanNewPasswordActivationEmailSubject%> "<%If SettingsEmailFeatures = "0" Then Response.Write " disabled=""disabled""" End If%> />
<%=LanNewPasswordActivationEmailBody%>
<%=LanGuideMainPage%> » <%=LanAdminPanel%> » <%=LanGuideEmailSettings%>
<% End Sub Sub Save EmailFeatures = Request.Form("EmailFeatures") If EmailFeatures = "" Then EmailFeatures = "0" End If EmailComponent = Request.Form("EmailComponent") SMTPAddress = Request.Form("SMTPAddress") EmailBodyFormat = Request.Form("EmailBodyFormat") MembershipActivationEmailSubject = Request.Form("MembershipActivationEmailSubject") MembershipActivationEmailBody = Request.Form("MembershipActivationEmailBody") NewPasswordActivationEmailSubject = Request.Form("NewPasswordActivationEmailSubject") NewPasswordActivationEmailBody = Request.Form("NewPasswordActivationEmailBody") SQL = "Update iyzi_" & AdditionalTableWord & "Settings Set ValueYesNo = '" & OrganizeData(EmailFeatures, "DBText") & "' Where SettingVariable = 'EmailFeatures'" Connection.Execute(SQL) If EmailFeatures = "1" Then SQL = "Update iyzi_" & AdditionalTableWord & "Settings Set ValueText = '" & OrganizeData(EmailComponent, "DBText") & "' Where SettingVariable = 'EmailComponent'" Connection.Execute(SQL) SQL = "Update iyzi_" & AdditionalTableWord & "Settings Set ValueText = '" & OrganizeData(SMTPAddress, "DBText") & "' Where SettingVariable = 'SMTPAddress'" Connection.Execute(SQL) SQL = "Update iyzi_" & AdditionalTableWord & "Settings Set ValueText = '" & OrganizeData(EmailBodyFormat, "DBText") & "' Where SettingVariable = 'EmailBodyFormat'" Connection.Execute(SQL) SQL = "Update iyzi_" & AdditionalTableWord & "Settings Set ValueText = '" & OrganizeData(MembershipActivationEmailSubject, "DBText") & "' Where SettingVariable = 'MembershipActivationEmailSubject'" Connection.Execute(SQL) SQL = "Update iyzi_" & AdditionalTableWord & "Settings Set ValueNote = '" & OrganizeData(MembershipActivationEmailBody, "DBText") & "' Where SettingVariable = 'MembershipActivationEmailBody'" Connection.Execute(SQL) SQL = "Update iyzi_" & AdditionalTableWord & "Settings Set ValueText = '" & OrganizeData(NewPasswordActivationEmailSubject, "DBText") & "' Where SettingVariable = 'NewPasswordActivationEmailSubject'" Connection.Execute(SQL) SQL = "Update iyzi_" & AdditionalTableWord & "Settings Set ValueNote = '" & OrganizeData(NewPasswordActivationEmailBody, "DBText") & "' Where SettingVariable = 'NewPasswordActivationEmailBody'" Connection.Execute(SQL) End If Response.Redirect "admin_email.asp" End Sub %>