<%@LANGUAGE="VBSCRIPT"%> <%option explicit%> <% dim email, subname, orderNumber dim strHost dim strErr dim bsuccess dim strBody, strSendername, strSenderemail strHost = "mail.omicrondeltaepsilon.org" If Request("Send") <> "" Then strSendername = Request("o_name") strSenderemail = Request("o_email") ' message body strBody = "ODE Website mail from: " & strSendername & vbcrlf strbody = strBody & "Chapter: " & Request("o_chapter") & vbcrlf strBody = strBody & "Email: " & strSenderemail & vbcrlf & vbCrlf strBody = strBody & "Subject: " & Request("o_subject") & vbcrlf & vbcrlf strBody = strBody & "Query: " & Request("p_query") & vbcrlf & vbcrlf strBody = strBody & vbcrlf & vbcrlf & "IMPORTANT NOTE: This is a dynamically generated email. Please check the address before replying." strErr = "" Const cdoBasic = 1 'Use basic (clear-text) authentication. Const cdoSendUsingPort = 2 Dim iMsg Dim iConf Dim Flds Dim sMsg Dim strTo Dim strCC Dim strFrom Dim strSubject On Error Resume Next set iMsg = CreateObject("CDO.Message") set iConf = CreateObject("CDO.Configuration") Set Flds = iConf.Fields With Flds .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]" .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "abc123" .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strHost .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10 .Update End With strTo = "[email protected]" strCC = strSenderemail strFrom = strSenderemail strSubject = Request("o_subject") 'Apply the settings to the message object With iMsg Set .Configuration = iConf .To = strTo .From = strFrom If strCC <> "" Then .CC = strCC End If .Subject = strSubject .TextBody = strBody 'Send message .Send End With if iMsg.SendMail then bsuccess = true else bSuccess = False On Error Resume Next ' catch errors strErr = iMsg.Response End If ' cleanup mail objects Set iMsg = Nothing Set iConf = Nothing Set Flds = Nothing end if %> Omicron Delta Epsilon - The International Economics Honor Society
National Office
 National Officers
 New Chapter Petition
 History of Ο Δ Ε
 Past Officers
 What is ACHS?
Faculty Advisors
 Contact Us
 About Us
The American Economist

Contact Omicron Delta Epsilon

<% If strErr <> "" Then response.write ("

 An error occurred: " & strErr & "") End If If bSuccess Then response.write ("

 Your message has been sent. Thank you.") End If %>
By Phone:
(251) 928-0001
By Fax:
(251) 928-0015
By Mail:

Farhang Niroomand, Executive Secretary/Treasurer,
Omicron Delta Epsilon,
P.O. Box 2096,
Fiarhope, AL 36533

By Email:
or use this form:




REMINDER: As of July 1, 2017, membership fees will increase to $40. Please download and use new forms from the ODE website and destroy all old forms to ensure fee payments are correct and to prevent delays in processing applications.

CALL FOR NOMINATIONS: Nominations will be accepted until August 31, 2017 for the Distinguished Advisor award, recognizing service to ODE. Nominations are accepted from ODE chapter officers, economics faculty, and department chairs or deans. Self-nominations are accepted with a letter of support from the department chair or dean.

Two positions as vice-presidents will be open on the ODE Executive Board in the 2018 elections. Nominations will be accepted until August 31, 2017 and should be sent to the Nominations Committee chaired by ODE Executive President Alan Grant: [email protected]. New officers will be voted on during the Biennial Convention held during the ASSA meetings in Philadelphia in January 2018.

Omicron Delta Epsilon is proud to be a member of ACHS
Association of College Honor Societies