<%@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:




ODE is pleased to welcome to the Executive Board, Dr. J.J. Arias of Georgia College and State University and Dr. Rod Raehsler of Clarion University in the positions of Vice President.

The winner of the 2017 Frank W. Taussig Award is Elizabeth Samios of Christopher Newport University. Her paper, "The Effectiveness of Alexander Hamilton's Debt Assumption Plan and the Lasting Effect of His Economic Intervention," is eligible for submission to the American Economist.

The 2017 Distinguished Advisor Award goes to Dr. Daren Conrad of the University of the West Indies. ODE appreciates Dr. Conrad's dedication to the society, the chapter at UWI, and his students.

Dr. David Colander of Middlebury College was the recipient of the 2017 John R. Commons Award. Dr. Colander delivered the Commons Lecture, "The Scope and Method of Applied Policy Economics: The Courage to Be Utopian," at the ASSA meetings in Philadelphia in early January.

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