<% PageSection = "am2007" PageTitle = "2007 AAEA, WAEA & CAES Joint Annual Meeting" FormCode = "am2007reg" PageName = Request.ServerVariables("SCRIPT_NAME") Mode = Request("mode") 'test date or current date Dim ThisDate If Request.QueryString("date") <> "" Then ThisDate = Request.QueryString("date") Else ThisDate = Now() ThisDate = CDate(ThisDate) 'deadlines Dim dtmEarly, dtmAdvance dtmEarly = #7/4/2007 12:00:00 PM# dtmAdvance = #7/24/2007 12:00:00 AM# 'final deadline If Now() >= dtmAdvance Then Response.Redirect "registration.asp" 'deadline check Function ChkDate(ThisMode) ChkResult = "" Select Case ThisMode Case "early" If ThisDate >= dtmEarly Then ChkResult = " style=""display: none;""" Case "advance" If ThisDate >= dtmAdvance Or ThisDate < dtmEarly Then ChkResult = " style=""display: none;""" Case "onsite" If ThisDate < dtmAdvance Then ChkResult = " style=""display: none;""" End Select ChkDate = ChkResult End Function %>

2007 AAEA, WAEA & CAES Joint Annual Meeting
Registration Form

<% 'input processing modes If Mode = "review" Or Mode = "submit" Then Function GetVal(ThisStr) If ThisStr <> "" Then GetVal = CSng(Right(ThisStr, InStrRev(StrReverse(ThisStr), "$") - 1)) Else GetVal = 0 End Function Function SplitVal(ThisStr) ArrVals = Split(ThisStr, ",") TempVal = 0 For Each Val In ArrVals TempVal = TempVal + GetVal(Val) Next SplitVal = TempVal End Function 'build totals 'reg curRegType = GetVal(Request.Form("regtype")) 'guest 'curRegTypeGuest = SplitVal(Request.Form("regtypeguest")) If Request.Form("regtypeguest_quantity") <> "" And Request.Form("regtypeguest_quantity") <> "0" And IsNumeric(Request.Form("regtypeguest_quantity")) Then curRegTypeGuest = Int(Request.Form("regtypeguest_quantity")) * Int(Request.Form("regtypeguest_fee")) strGuests = "Spouse/Guest - number attending: " & Request.Form("regtypeguest_quantity") & "; Fee: $" & curRegTypeGuest & vbCrLf End If 'events curEvents = 0 strEvents = "" 'events data Dim arrEvents(17,1) ArrEvents(0,0) = "PC11 ""Fundamentals of Spatial Economics""" ArrEvents(0,1) = "pc11" ArrEvents(1,0) = "PC11S ""Fundamentals of Spatial Economics"" (Students)" ArrEvents(1,1) = "pc11s" ArrEvents(2,0) = "PC12 ""The 2007 Young Professionals Teaching Academy""" ArrEvents(2,1) = "pc12" ArrEvents(3,0) = "PC13 ""Extension Agricultural Education Tour""" ArrEvents(3,1) = "pc13" ArrEvents(4,0) = "PC21 ""Discrete Choice Methods""" ArrEvents(4,1) = "pc21" ArrEvents(5,0) = "PC21S ""Discrete Choice Methods"" (Students)" ArrEvents(5,1) = "pc21s" ArrEvents(6,0) = "SP11 COSBAE Speaker Series & Luncheon" ArrEvents(6,1) = "sp11" ArrEvents(7,0) = "SP12 CWAE Speaker Series & Luncheon" ArrEvents(7,1) = "sp12" ArrEvents(8,0) = "SP13 Extension Speaker Series & Luncheon" ArrEvents(8,1) = "sp13" ArrEvents(9,0) = "SP14 Galbraith Forum Speaker Series & Luncheon" ArrEvents(9,1) = "sp14" ArrEvents(10,0) = "SP14S Galbraith Forum Speaker Series & Luncheon (Students)" ArrEvents(10,1) = "sp14s" ArrEvents(11,0) = "SP21 Industry Speaker Series & Banquet" ArrEvents(11,1) = "sp21" ArrEvents(12,0) = "SP22 International Speaker Series & Banquet" ArrEvents(12,1) = "sp22" ArrEvents(13,0) = "ST11 Graduate Student Case Study Competition" ArrEvents(13,1) = "st11" ArrEvents(14,0) = "ST12 Graduate Student Business Meeting/Reception" ArrEvents(14,1) = "st12" ArrEvents(15,0) = "GN11 Senior Section Business Meeting & Breakfast" ArrEvents(15,1) = "gn11" ArrEvents(16,0) = "GN12 Breakfast with Dasgupta and Smith" ArrEvents(16,1) = "gn12" ArrEvents(17,0) = "GN13 CAES Awards Dinner" ArrEvents(17,1) = "gn13" For i = 0 To UBound(arrEvents) TempTotal = 0 If Request.Form(ArrEvents(i,1) & "_quantity") <> "" And Request.Form(ArrEvents(i,1) & "_quantity") <> "0" And IsNumeric(Request.Form(ArrEvents(i,1) & "_quantity")) Then TempTotal = Int(Request.Form(ArrEvents(i,1) & "_quantity")) * Int(Request.Form(ArrEvents(i,1) & "_fee")) curEvents = curEvents + TempTotal Execute(ArrEvents(i,1) & "_total = ""$" & TempTotal & """") strEvents = strEvents & ArrEvents(i,0) & " - Qty: " & Request.Form(ArrEvents(i,1) & "_quantity") & "; Fee: $" & TempTotal & vbCrLf End If Next 'total curTotal = FormatNumber(curRegType + curRegTypeGuest + curEvents, 2) 'show regtype total Function ShowRegTypeTotal(ThisVal) If InStr(Request.Form("regtype"), ThisVal) > 0 Then ShowRegTypeTotal = "$" & GetVal(Request.Form("regtype")) Else ShowRegTypeTotal = "" End Function 'validate If Request.Form("title") = "" Then ErrMsg = ErrMsg & "Please enter your title.
" & vbCrLf If Request.Form("firstname") = "" Then ErrMsg = ErrMsg & "Please enter your first name.
" & vbCrLf If Request.Form("lastname") = "" Then ErrMsg = ErrMsg & "Please enter your last name.
" & vbCrLf If Request.Form("address1") = "" Then ErrMsg = ErrMsg & "Please enter your address.
" & vbCrLf If Request.Form("city") = "" Then ErrMsg = ErrMsg & "Please enter your city.
" & vbCrLf If Request.Form("state") = "" Then ErrMsg = ErrMsg & "Please enter your state/province.
" & vbCrLf If Request.Form("zip") = "" Then ErrMsg = ErrMsg & "Please enter your ZIP/postal Code.
" & vbCrLf If Request.Form("country") = "" Then ErrMsg = ErrMsg & "Please enter your country.
" & vbCrLf If Request.Form("phone") = "" Then ErrMsg = ErrMsg & "Please enter your phone number.
" & vbCrLf If Request.Form("email") = "" Then ErrMsg = ErrMsg & "Please enter your email address.
" & vbCrLf If Request.Form("membership") = "" Then ErrMsg = ErrMsg & "Please indicate primary membership.
" & vbCrLf If Request.Form("specialneeds") <> "" And Request.Form("specialneedsdetails") = "" Then ErrMsg = ErrMsg & "Please indicate your special needs.
" & vbCrLf If Request.Form("regtype") = "" Then ErrMsg = ErrMsg & "Please select a meeting registration type.
" & vbCrLf If InStr(Request.Form("regtype"), " Member ") > 0 And Request.Form("membership") = "Non-Member" Then ErrMsg = ErrMsg & "Membership rates apply to AAEA, WAEA, CAES, ACCI, and AERE members. Please choose an appropriate registration type.
" & vbCrLf If Request.Form("cctype") = "" Then ErrMsg = ErrMsg & "Please enter your credit card type.
" & vbCrLf If Request.Form("ccnum") = "" Then ErrMsg = ErrMsg & "Please enter your credit card number.
" & vbCrLf If Request.Form("ccexp") = "" Then ErrMsg = ErrMsg & "Please enter your credit expiration date.
" & vbCrLf If Request.Form("ccname") = "" Then ErrMsg = ErrMsg & "Please enter your credit card name.
" & vbCrLf 'if errors, reset mode If ErrMsg <> "" Then Mode = "review" End If If Mode = "submit" Then 'build summary MsgBody = MsgBody & "REGISTRANT INFORMATION" & vbCrLf & _ "Title: " & Request.Form("title") & Request.Form("titleother") & vbCrLf & _ "First Name: " & Request.Form("firstname") & vbCrLf & _ "Middle Initial: " & Request.Form("middlename") & vbCrLf & _ "Last Name: " & Request.Form("lastname") & vbCrLf & _ "Affiliation: " & Request.Form("affiliation") & vbCrLf & _ "Name to appear on nametag (if different from above): " & Request.Form("nametag") & vbCrLf & _ "Address: " & Request.Form("address1") & vbCrLf & _ "(line 2): " & Request.Form("address2") & vbCrLf & _ "City: " & Request.Form("city") & vbCrLf & _ "State/Province: " & Request.Form("state") & vbCrLf & _ "ZIP/Postal Code: " & Request.Form("zip") & vbCrLf & _ "Country: " & Request.Form("country") & vbCrLf & _ "Daytime Phone: " & Request.Form("phone") & vbCrLf & _ "Fax Number: " & Request.Form("fax") & vbCrLf & _ "E-mail Address: " & Request.Form("email") & vbCrLf & _ "Spouse/Guest: " & Request.Form("guest") & vbCrLf & _ "Primary Membership: " & Request.Form("membership") & vbCrLf & _ Request.Form("updateaddress") & vbCrLf & _ Request.Form("specialneeds") & " " & Request.Form("specialneedsdetails") & vbCrLf & vbCrLf & _ Request.Form("firstmtg") & vbCrLf & vbCrLf MsgBody = MsgBody & "REGISTRATION FEES" & vbCrLf & _ Request.Form("regtype") & vbCrLf & _ strGuests & _ strEvents & vbCrLf MsgBody = MsgBody & "PAYMENT INFORMATION" & vbCrLf & _ "Total: $" & curTotal & vbCrLf & vbCrLf & _ "Card Type: " & Request.Form("cctype") & vbCrLf & _ "Expiration Date: " & Request.Form("ccexp") & vbCrLf & _ "Name as Printed on Card:" & Request.Form("ccname") & vbCrLf 'log transaction %> <% Set RS = Server.CreateObject("ADODB.Recordset") SQL = "SELECT * FROM fulllog" RS.Open SQL, Conn, 1, 2 RS.AddNew RS("datetime") = Now() RS("imisid") = Session("imisid") RS("fullname") = Request.Form("firstname") & " " & Request.Form("lastname") RS("email") = Request.Form("email") RS("formcode") = FormCode If Request("ccnum") <> "" Then RS("cardlast") = Right(Request("ccnum"), 4) RS("alldata") = MsgBody RS.Update RS.Close Conn.Close Set RS = Nothing Set Conn = Nothing 'staff email Set Mailer = Server.CreateObject("CDONTS.NewMail") Mailer.From = "registration@aaea.org" Mailer.To = "registration@aaea.org" 'Mailer.To = "sdimmer@execinc.com" Mailer.Subject = PageTitle Mailer.Body = MsgBody & "Card Number: " & Request.Form("ccnum") & vbCrLf Mailer.Send Set Mailer = Nothing If Err.Number = 0 Then MailStatus = "success" 'user email If Request.Form("email") <> "" Then Set Mailer = Server.CreateObject("CDONTS.NewMail") Mailer.From = "registration@aaea.org" Mailer.To = Request.Form("email") Mailer.Subject = PageTitle Mailer.Body = MsgBody Mailer.Send Set Mailer = Nothing End If End If End If 'screen output modes If Mode = "submit" Then If MailStatus <> "success" Then %>

We're sorry. An error has occurred. Please contact AAEA for assistance.

<% Else %>

Thank you for your meeting registration!

A copy of your meeting registration information appears below and will be e-mailed to the address you provided.

If you need to become a member of a sponsoring organization follow the links listed:
American Agricultural Economics Association, www.aaea.org
Western Agricultural Economics Association, www.waeaonline.org
Canadian Agricultural Economics Society, www.caes.ca
American Council on Consumer Interests, www.consumerinterests.org
Association of Environmental and Resource Economists, www.aere.org

<% Response.Write Replace(MsgBody, vbCrLf, "
" & vbCrLf) End If Else If ErrMsg <> "" Then Response.Write "

" & ErrMsg & "

" ElseIf Mode = "review" Then Response.Write "

Please review your information below. If you need to make changes, edit the form and click the ""Review/Recalculate"" button. If no changes are necessary, click ""Submit.""

" Else Response.Write "

Please complete the information below, and click the ""Review/Calculate"" button to continue.

" End If %>
Registrant Information
Title:   >Mr.   >Ms.   >Miss   >Mrs.   >Dr.   >Prof.   > Other " size="3" maxlength="20" onchange="if (this.value != '') { document.getElementById('titleotherbox').checked = true; } else { document.getElementById('titleotherbox').checked = false; }">
First Name: " size="20" maxlength="50">   Middle Initial: " size="1" maxlength="4">
Last Name: " size="20" maxlength="50">
Affiliation: " size="20" maxlength="50">
Name to appear on nametag (if different from above):
" size="49" maxlength="100">
Address: " size="30" maxlength="100">
  " size="30" maxlength="100">
City: " size="20" maxlength="50">
State/Province: " size="20" maxlength="50">
ZIP/Postal Code: " size="20" maxlength="50">
Country: " size="20" maxlength="50">
Daytime Phone: " size="20" maxlength="50">
Fax Number: " size="20" maxlength="50">
E-mail Address: " size="30" maxlength="100">
Spouse/Guest: " size="30" maxlength="100">
Primary Membership (select only one):
> AAEA   > WAEA   > CAES   > ACCI   > AERE   > Non-Member
If you have not renewed your 2007 membership, you will have the opportunity to do so after you submit this form.
"" Then Response.Write " checked"%>> Update my address label permanently to the above address.
"" Then Response.Write " checked"%>> I have a need for special assistance (physical or dietary).
Details:
"" Then Response.Write " checked"%>> This is my first Annual Meeting.
Registration Fees
Membership rates apply to AAEA, WAEA, CAES, ACCI, and AERE members.

  >Early discount
(on or before July 3)		 >Advance
(July 4 - July 23)		 >On-site
(after July 23)		 Total
Professional Member > 0 Then Response.Write " checked" %><%=ChkDate("early")%>> $250 > 0 Then Response.Write " checked" %><%=ChkDate("advance")%>> $340 > 0 Then Response.Write " checked" %><%=ChkDate("onsite")%>> $420 <%=ShowRegTypeTotal("Professional Member")%>
Professional Non-Member > 0 Then Response.Write " checked" %><%=ChkDate("early")%>> $420 > 0 Then Response.Write " checked" %><%=ChkDate("advance")%>> $510 > 0 Then Response.Write " checked" %><%=ChkDate("onsite")%>> $600 <%=ShowRegTypeTotal("Professional Non-Member")%>
Senior Member > 0 Then Response.Write " checked" %><%=ChkDate("early")%>> $200 > 0 Then Response.Write " checked" %><%=ChkDate("advance")%>> $290 > 0 Then Response.Write " checked" %><%=ChkDate("onsite")%>> $370 <%=ShowRegTypeTotal("Senior Member")%>
Senior Non-Member > 0 Then Response.Write " checked" %><%=ChkDate("early")%>> $320 > 0 Then Response.Write " checked" %><%=ChkDate("advance")%>> $405 > 0 Then Response.Write " checked" %><%=ChkDate("onsite")%>> $490 <%=ShowRegTypeTotal("Senior Non-Member")%>
Graduate Student Member > 0 Then Response.Write " checked" %><%=ChkDate("early")%>> $70   > 0 Then Response.Write " checked" %><%=ChkDate("advance")%>> $105 > 0 Then Response.Write " checked" %><%=ChkDate("onsite")%>> $145 <%=ShowRegTypeTotal("Graduate Student Member")%>
Graduate Student Non-Member > 0 Then Response.Write " checked" %><%=ChkDate("early")%>> $160 > 0 Then Response.Write " checked" %><%=ChkDate("advance")%>> $195 > 0 Then Response.Write " checked" %><%=ChkDate("onsite")%>> $240 <%=ShowRegTypeTotal("Graduate Student Non-Member")%>
Undergraduate Student
(Member/Non-Member)		 > 0 Then Response.Write " checked" %><%=ChkDate("early")%>> $45   > 0 Then Response.Write " checked" %><%=ChkDate("advance")%>> $50   > 0 Then Response.Write " checked" %><%=ChkDate("onsite")%>> $65   <%=ShowRegTypeTotal("Undergraduate Student")%>
Spouse/Guest* - enter number attending: " size="1">      $25 <% If (curRegTypeGuest <> "") Then Response.Write "$" & curRegTypeGuest %>
* Guests include any interested party not professionally in the field of agricultural economics or a related discipline. Guest fees include the opening reception, plenary sessions and all education sessions.
<% If Mode = "review" Or Mode = "submit" Then %> <% End If %>
Pre-Conference Workshops # of Reg. Fee Total
PC11 "Fundamentals of Spatial Economics"
(Sat., July 28, 8 a.m. - 5 p.m.)		 Professionals " size="1"> $95 <%=pc11_total%>
PC11S "Fundamentals of Spatial Economics"
(Sat., July 28, 8 a.m. - 5 p.m.)		 Students " size="1"> $75 <%=pc11s_total%>
PC12 "The 2007 Young Professionals Teaching Academy"
(Sun., July 29, 11:30 a.m. - 4 p.m.)		 " size="1"> $80 <%=pc12_total%>
Pre-Conference Tour # of Reg. Fee Total
PC13 "Extension Agricultural Education Tour"
(Sat., July 28, 7:30 a.m. - 5:30 p.m.)		 " size="1" disabled> $65 <%=pc13_total%>
Post-Conference Workshops # of Reg. Fee Total
PC21 "Discrete Choice Methods"
(Wed., Aug. 1, 8 a.m. - 12:30 p.m.)		 Professionals " size="1" disabled> $80 <%=pc21_total%>
PC21S "Discrete Choice Methods"
(Wed., Aug. 1, 8 a.m. - 12:30 p.m.)		 Students " size="1" disabled> $60 <%=pc21s_total%>
Speaker Series # of Reg. Fee Total
SP11 COSBAE Speaker Series & Luncheon
(Tues., July 31, noon - 1:30 p.m.)		 " size="1"> $50 <%=sp11_total%>
SP12 CWAE Speaker Series & Luncheon
(Tues., July 31, noon - 1:30 p.m.)		 " size="1"> $50 <%=sp12_total%>
SP13 Extension Speaker Series & Luncheon
(Tues., July 31, noon - 1:30 p.m.)		 " size="1"> $50 <%=sp13_total%>
SP14 Galbraith Forum Speaker Series & Luncheon
(Mon., July 30, noon - 1:30 p.m.)		 Regular " size="1"> $50 <%=sp14_total%>
SP14S Galbraith Forum Speaker Series & Luncheon
(Mon., July 30, noon - 1:30 p.m.)		 Students " size="1"> $20 <%=sp14s_total%>
SP21 Industry Speaker Series & Banquet
(Mon., July 30, 7 p.m. - 9 p.m.)		 " size="1"> $55 <%=sp21_total%>
SP22 International Speaker Series & Banquet
(Mon., July 30, 7 p.m. - 9 p.m.)		 " size="1"> $55 <%=sp22_total%>
Student Events # of Reg. Fee Total
ST11 Graduate Student Case Study Competition
(Sun., July 29, 7 a.m. - 5 p.m.)		 " size="1"> $10 <%=st11_total%>
ST12 Graduate Student Business Meeting/Reception
(Sun., July 29, 4:30 p.m. - 6:30 p.m.)		 " size="1"> $10 <%=st12_total%>
Meetings # of Reg. Total
GN11 Senior Section Business Meeting & Breakfast
(Mon., July 30, 7:30 a.m. - 9 a.m.)		 " size="1"> $20 <%=gn11_total%>
Other Events # of Reg. Fee Total
GN12 Breakfast with Dasgupta and Smith
(Mon. July 30, 7 a.m. - 8:30 a.m.)		 " size="1"> $35 <%=gn12_total%>
GN13 CAES Awards Dinner
(Mon., July 30, 6 p.m. - 9 p.m.)		 " size="1"> $50 <%=gn13_total%>
Registration Total: $<%=curTotal%>
AAEA, WAEA, and CAES are committed to the "True Cost Pledge." The Associations attest that the fee associated with each special event is the "true cost" of the price to cover that event.
Payment Information
> Visa   > MasterCard   > American Express   > Discover
Card Number: " size="16" maxlength="16">
Expiration Date: " size="5" maxlength="10">
Name as Printed on Card: " size="20" maxlength="50">
  Rec<% Else %>C<% End If %>alculate" onclick="this.form.action = '<%=PageName%>?mode=review'"> <% If Mode = "review" And ErrMsg = "" Then %> <% End If %>
<% End If %>

Questions? Contact the AAEA office at (414) 918-3190 or registration@aaea.org.
Early Registrations due by 5:00 pm CDT July 3, 2007.