<% If Request.ServerVariables("REQUEST_METHOD") = "POST" Then Set msg = Server.CreateObject("JMail.Message") msg.Logging = true msg.silent = true msg.Subject = "Conference Registration" msg.From = "secretary@humesociety.org" msg.ReplyTo = Request.Form("Email") msg.FromName = "39th Hume Conference" 'msg.AddRecipient "wade.robison@gmail.com" msg.AddRecipient "mccartyr@ecu.edu" bodyText = "Submitted " & Now & " (Eastern)" & vbCrLf & vbCrLf bodyText = bodyText & Request.Form("Name") & vbCrLf If Request.Form("Affiliation") <> "" Then bodyText = bodyText & Request.Form("Affiliation") & vbCrLf End If bodyText = bodyText & Request.Form("Email") & vbCrLf & vbCrLf bodyText = bodyText & "Total: " & Request.Form("totalTotal") & vbCrLf & vbCrLf bodyText = bodyText & "Registration: " & Request.Form("registrationTotal") & vbCrLf bodyText = bodyText & "Proceedings: " If Request.Form("proceedings") = "on" Then bodyText = bodyText & "yes" & vbCrLf Else bodyText = bodyText & "no" & vbCrLf End If bodyText = bodyText & "Excursion: " & Request.Form("excursion") & " " If Request.Form("excursion") <> "3" then bodyText = bodyText & " " If Request.Form("excurstionTotal") <> "0" Then bodyText = bodyText & Request.Form("excursionTotal") End If bodyText = bodyText & vbCrLf bodyText = bodyText & "Banquet: " & Request.Form("banquet") & " " If Request.Form("banquet") = "1" Then bodyText = bodyText & " " If Request.Form("banqetTotal") <> "0" Then bodyText = bodyText & Request.Form("banquetTotal") End If bodyText = bodyText & vbCrLf If Request.Form("banquet") <> 0 Then strMenu = "" For Each item in Request.Form If Instr(item, "Menu") > 0 Then strMenu = strMenu & ", " & Request.Form(item) bodyText = bodyText & " " & Request.Form(item) & vbCrLf End If Next strMenu = Right(strMenu, Len(strMenu)-2) End If bodyText = bodyText & "T-shirt: " & Request.Form("tshirt") & " " If Request.Form("tshirtTotal") <> "0" Then bodyText = bodyText & Request.Form("tshirtTotal") End If bodyText = bodyText & vbCrLf If Request.Form("tshirt") <> 0 Then strSizes = "" For Each item in Request.Form If Instr(item, "gender1") Then strSizes = strSizes & ", " & Request.Form(item) & " " & Request.Form("size1") bodyText = bodyText & " " & Request.Form(item) & _ " " & Request.Form("size1") & vbCrLf End If If Instr(item, "gender2") Then strSizes = strSizes & ", " & Request.Form(item) & " " & Request.Form("size2") bodyText = bodyText & " " & Request.Form(item) & _ " " & Request.Form("size2") & vbCrLf End If Next strSizes = Right(strSizes, Len(strSizes)-2) End If msg.Body = bodyText MailResult = "" If Not msg.Send("mail.humesociety.org") Then MailResult = "Mail send failure. Error was " & msg.log Else 'MailResult = "Mail sent" End If End If %> Registration Form

REGISTRATION

<% If Request.ServerVariables("REQUEST_METHOD") = "POST" Then Response.Write "Calgary, Alberta, Canada -- " Response.Write "July 18-22, 2012

" Response.Write "Invoice Date: " & Date Response.Write "

" & _ "" & _ "" %>

 

<% If Request.Form("Affiliation") <> "" Then %> <% End If %> <% If Request.Form("proceedings") = "on" Then %> <% End If If Request.Form("excursion") > 0 Then %> <% End If If Request.Form("banquet") > 0 Then %> <% End If If Request.Form("tshirt") > 0 Then %> <% End If %>
<%=Request.Form("Name")%>
<%=Request.Form("Affiliation")%>
Conference Registration<%=Request.Form("registrationTotal")%>
Conference Proceedings0.00
Conference Excursion (<%=Request.Form("excursion")%>)<%=Request.Form("excursionTotal")%>
Conference Banquet (<%=Request.Form("banquet")%>)<%=Request.Form("banquetTotal")%>
  <%=strMenu%>
Conference T-Shirt (<%=Request.Form("tshirt")%>)<%=Request.Form("tshirtTotal")%>
  <%=strSizes%>
Total:US$ <%=Request.Form("totalTotal")%>


">
<% Else %>
Name:
Affiliation:
Email:

Registration Fee (US $) 0.00
   Regular, $90.00
   Student and Underemployed, $50.00
Proceedings (free on order) order 0.00
Excursion to Banff ($40.00 ea.)
   (now closed)		 qnty 0.00
Banquet ($75.00 ea.) qnty 0.00


T-Shirt ($14.00 ea.) qnty 0.00


 
Total:  0.00

<% End If Response.Write MailResult %>