<% Open_Database select case request("Call") case "" showform case "update" update_Registration_Record end select close_database sub showform %> BLITHEWOLD - Mansion, Gardens & Arboretum <% set rs=server.createobject("adodb.recordset") rs.open "select * from events",con,1,1 dim strprices dim strsessionid if rs.recordcount>0 then do while rs.eof=false strprices=strprices & rs("member_price") & "," & rs("non_member_price") & "," & rs("child_price") & "|" strsessionid=strsessionid & trim(rs("event_id")) & "," rs.movenext loop end if rs.close %>

 

  

PROGRAMS & EVENTS  |  Registration Form
To register for adult programs or special events, complete and submit this secure form with payment information. Registrations should be received no later than 3 days prior to the event date. After this day, registrations should be confirmed by calling 401-253-2707 ext. 21.

Refund and Cancellation Policy: Blithewold cannot refund programs in the event of a cancellation. In the unlikely event that this program is cancelled or postponed due to insufficient enrollments or unforeseen circumstances, Blithewold will fully refund registration fees.

Please complete a separate form for each paying participant. All fields marked with a red star are mandatory and must be completed to ensure a successful registration.

If you would rather print out a form and mail it with payment, please click here. You may also register via phone, Monday - Friday, 9:00 - 5:00, by calling 401-253-2707 ext. 21.
 My Information
   
I am a:

Fist Name: *
Last Name: *
Address: *
 
City: *
State: *    
Zip: *
E-mail: *
Day Phone:  * ex. (123)-123-4567   
Fax: ex. (123)-123-4567   
Evening Phone:  * Type "same" if same as day phone
   
 Special Events
 
<% rs.open "select * from events where event_category_id=1",con,1,1 if rs.recordcount>0 then do while rs.eof=false memberPrice=rs("member_price") nonMemberPrice=rs("non_member_price") childPrice=rs("child_price") %>
Name: <%=rs("name")%>
Date: <%=rs("event_month")%> <%=rs("event_day")%>, <%=rs("event_year")%>
Start Time: <%=rs("start_time")%>

End Time:

<%=rs("end_time")%>
Description: <%=rs("description")%>
   
Purchase:
" class="textMain" id="member<%=rs("event_id")%>" size="2" maxlength="14" style="font-weight: 700" onchange="intOnly(this);gettotal('<%=strprices%>','<%=strsessionid%>')" > Members
$<%=rs("member_price")%>		 " class="textMain" id="nonmember<%=rs("event_id")%>" size="2" maxlength="14" style="font-weight: 700" onchange="intOnly(this);gettotal('<%=strprices%>','<%=strsessionid%>')"> Non-Members
$<%=rs("non_member_price")%>		 " class="textMain" id="children<%=rs("event_id")%>" size="2" maxlength="14" style="font-weight: 700" onchange="intOnly(this);gettotal('<%=strprices%>','<%=strsessionid%>')"> Children
$<%=rs("child_price")%>
   
<% rs.movenext loop end if rs.close set rs=nothing %>
 Programs
 
<% set rs=server.createobject("adodb.recordset") rs.open "select * from events where event_category_id=2",con,1,1 if rs.recordcount>0 then do while rs.eof=false memberPrice1=rs("member_price") nonMemberPrice1=rs("non_member_price") childPrice1=rs("child_price") %>
Name: <%=rs("name")%>
Date: <%=rs("event_month")%> <%=rs("event_day")%>, <%=rs("event_year")%>
Start Time: <%=rs("start_time")%>

End Time:

<%=rs("end_time")%>
Description: <%=rs("description")%>
   
Purchase:
" class="textMain" id="member<%=rs("event_id")%>" size="2" maxlength="14" style="font-weight: 700" onchange="intOnly(this);gettotal('<%=strprices%>','<%=strsessionid%>')" > Members
$<%=rs("member_price")%>		 " class="textMain" id="nonmember<%=rs("event_id")%>" size="2" maxlength="14" style="font-weight: 700" onchange="intOnly(this);gettotal('<%=strprices%>','<%=strsessionid%>')" > Non-Members
$<%=rs("non_member_price")%>		 " class="textMain" id="children<%=rs("event_id")%>" size="2" maxlength="14" style="font-weight: 700" onchange="intOnly(this);gettotal('<%=strprices%>','<%=strsessionid%>')" > Children
$<%=rs("child_price")%>
   
<% rs.movenext loop end if rs.close set rs=nothing %>
   
 Billing Information
   
Order Total:
Credit Card Type: *
Credit Card Number: * (no spaces or dashes)
Expiration Date: * 
Verification Code: * The last 3 or 4 digits on the back of your credit card
   
 
COPYRIGHT BLITHEWOLD

WEBSITE BY NEW BEDFORD INTERNET
<% end sub sub update_Registration_Record programids=Request("programsids1") & "," arr_programids=split(programids,",") specialeventids=Request("programsids") & "," arr_specialeventids=split(specialeventids,",") set rs=server.createobject("adodb.recordset") rs.open "event_registeration",con,2,2 rs.Addnew rs("registration_date")=date() rs("iam_a")=request("status") rs("first_name")=request("fname") rs("last_name")=request("lname") rs("address1")=request("address1") rs("address2")=request("address2") rs("city")=request("city") rs("state")=request("state") rs("zip")=request("zip") rs("email")=request("email") rs("day_phone")=request("dayphone") rs("fax")=request("fax") rs("evening_phone")=request("evephone") rs("total_amount")=request("totalamt") rs("credit_card_type")=request("credittype") rs("credit_card_number")=request("cardnumber") rs("exp_month")=request("expmonth") rs("exp_year")=request("expyear") rs("verification_code")=request("cardnumber0") rs.update rs.close set rs=nothing set rs1=server.createobject("Adodb.recordset") rs1.open "select max(event_registeration_id ) from event_registeration",con,1,1 regID=rs1(0) rs1.close set rs1=nothing set rs0=server.createobject("adodb.recordset") rs0.open "registration_event",con,2,2 for each val in arr_specialeventids if val<>"" then if(Request("member"+trim(val))<>"" or Request("nonmember"+trim(val))<>"" or Request("children"+trim(val))<>"")then rs0.addnew rs0("event_registeration_id")=regID rs0("event_id")=val if Request("member"+trim(val))="" then rs0("Members")= 0 else rs0("Members")= Request("member"+trim(val)) end if if Request("nonmember"+trim(val))="" then rs0("Non_Members")= 0 else rs0("Non_Members")= Request("nonmember"+trim(val)) end if if Request("children"+trim(val))="" then rs0("children")= 0 else rs0("children")= Request("children"+trim(val)) end if rs0.update end if end if next rs0.close set rs0=nothing set rs0=server.createobject("adodb.recordset") rs0.open "registration_event",con,3,3 for each val in arr_programids if val<>"" then if(Request("member"+trim(val))<>"" or Request("nonmember"+trim(val))<>"" or Request("children"+trim(val))<>"")then rs0.addnew rs0("event_registeration_id")=regID rs0("event_id")=val if Request("member"+trim(val))="" then rs0("Members")=0 else rs0("Members")= Request("member"+trim(val)) end if if Request("nonmember"+trim(val))="" then rs0("Non_Members")= 0 else rs0("Non_Members")=Request("nonmember"+trim(val)) end if if Request("children"+trim(val))="" then rs0("children")=0 else rs0("children")= Request("children"+trim(val)) end if rs0.update end if end if next rs0.close set rs0=nothing set rs=server.createobject("Adodb.recordset") rs.open "orders",con,2,2 rs.addnew rs("order_detail_id")=regID rs("order_date")=date() rs("name")=request("fname") & " " & request("lname") rs("order_type")=4 rs.update rs.close set rs=nothing send_eventRegistration_Mail regID response.redirect "events-registration-receipt.asp?id=" & regID end sub sub send_eventRegistration_Mail(regID) set rec=server.createobject("adodb.recordset") rec.open "select * from event_registeration where event_registeration_id= " & regID ,con,1,1 dt=monthname(month(date())) & " " & day(date()) & ", " & year(date()) emailadd=rec("email") mailbody="" mailbody=mailbody & "" mailbody=mailbody & "" mailbody=mailbody & "" mailbody=mailbody & "" mailbody=mailbody & "" mailbody=mailbody & "" mailbody=mailbody & "" mailbody=mailbody & "" mailbody=mailbody & "" mailbody=mailbody & "" mailbody=mailbody & "" mailbody=mailbody & "" mailbody=mailbody & "" mailbody=mailbody & "" mailbody=mailbody & "" mailbody=mailbody & "" mailbody=mailbody & "" mailbody=mailbody & "" mailbody=mailbody & "" mailbody=mailbody & "" mailbody=mailbody & "" mailbody=mailbody & "" mailbody=mailbody & "" mailbody=mailbody & "" mailbody=mailbody & "" set rst=server.createobject("Adodb.recordset") rst.open "select * from registration_event where event_registeration_id=" & regID & "",con,1,1 if rst.recordcount>0 then do while rst.eof=false set rst2=server.createobject("Adodb.recordset") rst2.open "select * from events where event_id=" & rst("event_id") & "",con,1,1 if rst2.recordcount>0 then do while rst2.eof=false mailbody=mailbody & "" mailbody=mailbody & "" mailbody=mailbody & "" mailbody=mailbody & "" mailbody=mailbody & "" mailbody=mailbody & "" mailbody=mailbody & "" rst2.movenext loop end if rst2.close set rst2=nothing rst.movenext loop end if rst.close set rst=nothing mailbody=mailbody & "" mailbody=mailbody & "" mailbody=mailbody & "" mailbody=mailbody & "" mailbody=mailbody & "" mailbody=mailbody & "" mailbody=mailbody & "
Thank you for your order. Below is your receipt - please keep this receipt for your records. Please visit www.blithewold.org again!
 
Order Information
 
Order Total:$" & formatNumber(rec("total_amount"),2) & "
Order Number #:" & regID & "
Order Date:" & dt & "
 
My Information
 
I am a:" & rec("iam_a") & "
First Name:" & rec("first_name") & "
Last Name:" & rec("last_name") & "
Address 1:" & rec("address1") & "
Address 2:" & rec("address2") & "
City:" & rec("city") & "
State:" & rec("state") & "
Zip:" & rec("zip") & "
Email" & rec("email") & "
Day Phone:" & rec("day_phone") & "
Fax:" & rec("fax") & "
Evening Phone:" & rec("evening_phone") & "
 
Events
Name:" & rst2("name") & "
Date:" & rst2("event_month") & " " & rst2("event_day") & ", " & rst2("event_year") & "
Start Time:" & rst2("start_time") & "
End Time:" & rst2("end_time") & "
Purchased:" if rst("members")<>"0" then mailbody=mailbody & rst("members") & " Member(s)" end if if rst("non_members")<>"0" then mailbody=mailbody & "  " & rst("non_members") & " Non-Member(s)" end if if rst("children")<>"0" then mailbody=mailbody & "  " & rst("children") & " Children" end if mailbody=mailbody & "
Amount:$" & formatnumber((rst2("member_price") * rst("members")) + (rst2("non_member_price") * rst("non_members")) +(rst2("child_price") * rst("children")),2)& "
 
Billing Information
 
Order Total:$" & formatNumber(rec("total_amount"),2) & "
Credit Card Type:" & rec("credit_card_type") & "
Credit Card Number:**********" & right(rec("credit_card_number"),4) & "
Expiration Date:" & rec("exp_month") & "/" & rec("exp_year") & "
Verification Code:" & rec("verification_code") & "
" rec.close set rec=nothing sendmail "membership@blithewold.org",emailadd,"From the Blithewold Web Site",mailbody mailbody1="" mailbody1=mailbody1 & "" mailbody1=mailbody1 & "
Hello Blithewold Website Administrator,

" mailbody1=mailbody1 & "Someone has placed a secure order on the blithewold.org website. Please login to your control panel and process this order. Thank You!

" mailbody1=mailbody1 & "New Bedford Internet

" mailbody1=mailbody1 & "www.newbedfordinternet.com
" sendmail "membership@blithewold.org","membership@blithewold.org","From the Blithewold Web Site",mailbody1 end sub %>