<% '******************************************************************************* '* Title: iantd_members.asp * '* Author: Teddy Benson * '* Date: July 11, 1997 * '* Comments: * '* This ASP file performs the following: * '* Displays the membership form to the user. * '* Once the submit button is pressed, the form info is check for * '* completenessm then if it all exists it will be sent to IANTD. * '* Note: This ASP performs a two passes through the code * '* * '******************************************************************************* ' ' START HTML CODE FOR CREDIT FORM PAGE ' ' %> On-Line Membership Application Form

On-Line Membership Application Form

International Association of Nitrox and Technical Divers

1545 NE 104 Street, Miami Shores, FL 33138-26665 USA - Phone: 305-754-1027 or Fax: 509-355-1297

<% ' ' Check to see of we have loaded this asp file once already ' On Error Resume Next If Request.Form("hname1") = "" Then ' ' This is the first time, show the Form for user input ' %>
Please Fill & Complete All Fields
Note: Use "TAB" Key and/or Pointer to Move Between Fields


Section A: To be completed by all applicants.

Today's Date:
Title:
Mr.
Mrs.
Ms.
Other

First Name:
Middle Name:
Last Name:
Address:
City:
State and/or Province:
Country:
Zip or Postal Code:


Home Phone #:
Work Phone #:
Fax #:
Email Address:


Sex:
Date of Birth:
Month Day Year

I.A.N.T.D. Cert.: /
Open Water Cert.: / /


Section B: Instructors and Owners. Only complete if your facility
has a public Nitrox or Trimix fill station.

 Nitrox
 Trimix

Facility Name: 		
Address:       		
City:          		
State and/or Province:  
Country:		

Zip or Postal Code:     
Home Phone #:  		
Work Phone #: 		
Fax #:         		
Email Address: 		

Section C: All Applicants. Please complete this section(optional). A summary
will be published twice a year.

1 General Information


Years diving experience:
List advanced training programs completed:

2 Diving Profile

# of dives 10-30 fsw (3-9 msw)
# of dives 30-60 fsw (9-18 msw)
# of dives 60-90 fsw (18-27 msw)
# of dives 90-130 fsw (27-40 msw)
# of dives 130-160 fsw (40-49msw)
# of dives 160-190 fsw (49-58msw)
# of dives 190+ fsw (58+ msw)

Total # of dives
# of Trimix dives
Deepest dive
# of Cave dives
# of EANx dives
# of Wreck Penetration dives
# of Wall dives


3 Diving and safety practices

Do you practice basic survival skills (Equipment handling, gas sharing, etc.)?
Yes
 No
Do you classify yourself as a Safe Diver?
 Yes
 No
Have you ever been been in an out of air/gas situation?
 Yes
 No
If YES, how many times?

Have you assisted another diver who was out of air/gas?
 Yes
 No
If YES, how many times?

Do you practice the rule of thirds when diving below 100 fsw(30 msw),
on wreck penetration dives, on decompression dives, and/or
when cave diving?
 Yes
 No
If NO what rules do you follow?
 1/2 + 200 psig (14 bar)
 Play it by ear
 None

Do you support buddy system diving?
 Yes
 No
What percent of the time do you solo dive?


4 Travel and future training

Do you take dive travel vacations?
 Yes
 No
Your favorite location is?

Why?

Your least liked location is?

Why?

Would you support dive destinations that cater to technical diving?
 Yes
 No
If available, would you take Technical Diver Training at resorts?
 Yes
 No
What programs are you interested in?


Section D: Back Issues and Payments.

Membership in IANTD includes one year subscription to the IANTD's Nitrox Dive Magizine,
which is published four times a year.

Available Back Issues - Volume #'s: (Check box for Volume # requested)
92-1
93-1
93-2
93-3
93-4
94-1
94-2
94-3
94-4
95-1
95-2
95-3
95-4
96-1
96-2
96-3
96-4
97-1
97-2

Other: 

Check annual fee that will apply to you:
$40 USA
$50 Out of USA
Back Issues Ordered @ $10, Member Back Issues Ordered @ $5

Type of payment method you will be using: MC VISA CHECK

Payment Information: WE WILL CONTACT YOU! (this is not a secured server)
Additional Comments and/or Information:



<% Else ' ' This is the second pass of the ASP file, check for user input ' The user entered some data and/or hit the sunmit button ' Check info... If 0 then %>

Sorry!!! This site is currently still being designed!!!


Please try again at the end of this week!

WSI/IANTD © 1998

<% Else ' ' We have all data fields filled. 'Create DAFTools object Set DafTools = Server.CreateObject("daftools.daftools.1") 'Send the user info to iantd MailServer = "ns.netdor.com" ReturnPath = "info@iantd.com" Subject = " Membership from from IANTD!!! " MailTo = "iantdhq@ix.netcom.com" ' VALUE="iantd@travelbase.com" Data = "--------------- IANTD Membership ---------------" + chr(13) + chr(10) Data = Data + "Remote Address: " + Request.ServerVariables("REMOTE_ADDR") + chr(13) + chr(10) Data = Data + "Remote Host: " + Request.ServerVariables("REMOTE_HOST") + chr(13) + chr(10) Data = Data + "Browser type:" + Request.ServerVariables("HTTP_USER_AGENT") + chr(13) + chr(10) Data = Data + "Date" + Now + chr(13) + chr(10) + chr(13) + chr(10) Data = Data + "Today's Date: " + Request.Form("today") + chr(13) + chr(10) Data = Data + "Title: " + Request.Form("Salutation") + chr(13) + chr(10) Data = Data + "Other " + Request.Form("other_salutation") + chr(13) + chr(10) Data = Data + "First Name: " + Request.Form("fst_name") + chr(13) + chr(10) Data = Data + "Middle Name: " + Request.Form("mid_name") + chr(13) + chr(10) Data = Data + "Last Name: " + Request.Form("lst_name") + chr(13) + chr(10) Data = Data + "Address: " + Request.Form("address") + chr(13) + chr(10) Data = Data + "City: " + Request.Form("city") + chr(13) + chr(10) Data = Data + "State and/or Province: " + Request.Form("state") + chr(13) + chr(10) Data = Data + "Country: " + Request.Form("country") + chr(13) + chr(10) Data = Data + "Zip or Postal Code: " + Request.Form("zip") + chr(13) + chr(10) Data = Data + "Home Phone #: " + Request.Form("hm_phone") + chr(13) + chr(10) Data = Data + "Work Phone #: " + Request.Form("wk_phone") + chr(13) + chr(10) Data = Data + "Fax #: " + Request.Form("fax_phone") + chr(13) + chr(10) Data = Data + "Email Address: " + Request.Form("email") + chr(13) + chr(10) Data = Data + "I.A.N.T.D. Cert.: " + Request.Form("highest_level_iantd") + chr(13) + chr(10) Data = Data + " " + Request.Form("cert_number") + chr(13) + chr(10) Data = Data + "Open Water Cert.: " + Request.Form("agency") + chr(13) + chr(10) Data = Data + " " + Request.Form("highest_level_openwater") + chr(13) + chr(10) Data = Data + " " + Request.Form("openwater_number") + chr(13) + chr(10) Data = Data + "Gas Type: " + Request.Form("gas_type") + chr(13) + chr(10) Data = Data + "Facility Name: " + Request.Form("facility_name") + chr(13) + chr(10) Data = Data + "Address: " + Request.Form("address") + chr(13) + chr(10) Data = Data + "City: " + Request.Form("city") + chr(13) + chr(10) Data = Data + "State and/or Province: " + Request.Form("state2") + chr(13) + chr(10) Data = Data + "Country: " + Request.Form("country2") + chr(13) + chr(10) Data = Data + "Zip or Postal Code: " + Request.Form("zip") + chr(13) + chr(10) Data = Data + "Home Phone #: " + Request.Form("hm_phone") + chr(13) + chr(10) Data = Data + "Work Phone #: " + Request.Form("wk_phone") + chr(13) + chr(10) Data = Data + "Fax #: " + Request.Form("fax_phone") + chr(13) + chr(10) Data = Data + "Email Address: " + Request.Form("email") + chr(13) + chr(10) Data = Data + "Sex: " + Request.Form("gender") + chr(13) + chr(10) Data = Data + "DOB: " + Request.Form("BM") + Request.Form("BD") + Request.Form("BY") + chr(13) + chr(10) Data = Data + "Years diving experience:" + Request.Form("yrs_diving") + chr(13) + chr(10) Data = Data + "List advanced training programs completed:" + chr(13) + chr(10) Data = Data + "" + Request.Form("advanced_training") + chr(13) + chr(10) Data = Data + "# of dives 10-30 fsw (3-9 msw) " + Request.Form("10-30fsw") + chr(13) + chr(10) Data = Data + "# of dives 30-60 fsw (9-18 msw) " + Request.Form("30-60fsw") + chr(13) + chr(10) Data = Data + "# of dives 60-90 fsw (18-27 msw) " + Request.Form("60-90fsw") + chr(13) + chr(10) Data = Data + "# of dives 90-130 fsw (27-40 msw) " + Request.Form("90-130fsw") + chr(13) + chr(10) Data = Data + "# of dives 130-160 fsw (40-49msw) " + Request.Form("130-160fsw") + chr(13) + chr(10) Data = Data + "# of dives 160-190 fsw (49-58msw) " + Request.Form("160-190fsw") + chr(13) + chr(10) Data = Data + "# of dives 190+ fsw (58+ msw) " + Request.Form("190_plusfsw") + chr(13) + chr(10) Data = Data + "Total # of dives........... " + Request.Form("no_totaldives") + chr(13) + chr(10) Data = Data + "# of Trimix dives.......... " + Request.Form("trimix_dives") + chr(13) + chr(10) Data = Data + "Deepest dive............... " + Request.Form("deepest") + chr(13) + chr(10) Data = Data + "# of Cave dives............ " + Request.Form("cave_dives") + chr(13) + chr(10) Data = Data + "# of EANx dives............ " + Request.Form("EANx") + chr(13) + chr(10) Data = Data + "# of Wreck Penetration dives... " + Request.Form("wreck_dives") + chr(13) + chr(10) Data = Data + "# of Wall dives........... " + Request.Form("wall_dives") + chr(13) + chr(10) Data = Data + "Do you practice basic survival skills (Equipment handling, gas sharing, etc.)?" + chr(13) + chr(10) Data = Data + " " + Request.Form("survival_skills") + chr(13) + chr(10) Data = Data + "Do you classify yourself as a Safe Diver?" + chr(13) + chr(10) Data = Data + " " + Request.Form("safe_diver") + chr(13) + chr(10) Data = Data + "Have you ever been been in an out of air/gas situation?" + chr(13) + chr(10) Data = Data + " " + Request.Form("out_of_gas") + chr(13) + chr(10) Data = Data + "If YES, how many times?" + chr(13) + chr(10) Data = Data + " " + Request.Form("out_of_air_gas") + chr(13) + chr(10) Data = Data + "Have you assisted another diver who was out of air/gas?" + chr(13) + chr(10) Data = Data + " " + Request.Form("another_outofgas") + chr(13) + chr(10) Data = Data + "If YES, how many times?" + chr(13) + chr(10) Data = Data + " " + Request.Form("another_out_of_gas") + chr(13) + chr(10) Data = Data + "Do you practice the rule of thirds when diving below 100 fsw(30 msw)," + chr(13) + chr(10) Data = Data + "on wreck penetration dives, on decompression dives, and/or" + chr(13) + chr(10) Data = Data + "when cave diving?" + chr(13) + chr(10) Data = Data + " " + Request.Form("rule_of_thirds") + chr(13) + chr(10) Data = Data + "If NO what rules do you follow?" + chr(13) + chr(10) Data = Data + " " + Request.Form("if_not_thirds") + chr(13) + chr(10) Data = Data + "Do you support buddy system diving?" + chr(13) + chr(10) Data = Data + " " + Request.Form("buddy_system") + chr(13) + chr(10) Data = Data + "What percent of the time do you solo dive?" + chr(13) + chr(10) Data = Data + " " + Request.Form("solo_dive") + chr(13) + chr(10) Data = Data + "Do you take dive travel vacations?" + chr(13) + chr(10) Data = Data + " " + Request.Form("vacations") + chr(13) + chr(10) Data = Data + "Your favorite location is?" + chr(13) + chr(10) Data = Data + "" + Request.Form("favorite_location") + chr(13) + chr(10) Data = Data + "Why?" + chr(13) + chr(10) Data = Data + "" + Request.Form("why_favorite") + chr(13) + chr(10) Data = Data + "Your least liked location is?" + chr(13) + chr(10) Data = Data + " " + Request.Form("least_liked") + chr(13) + chr(10) Data = Data + "Why?" + chr(13) + chr(10) Data = Data + " " + Request.Form("why_least_liked") + chr(13) + chr(10) Data = Data + "Would you support dive destinations that cater to technical diving?" + chr(13) + chr(10) Data = Data + " " + Request.Form("support_tech_dest") + chr(13) + chr(10) Data = Data + "If available, would you take Technical Diver Training at resorts?" + chr(13) + chr(10) Data = Data + " " + Request.Form("dive_at_resorts") + chr(13) + chr(10) Data = Data + "What programs are you interested in?" + chr(13) + chr(10) Data = Data + " " + Request.Form("programs_interested_in") + chr(13) + chr(10) Data = Data + "Available Back Issues - Volume #'s: (Check box for Volume # requested)" + chr(13) + chr(10) Data = Data + " " + Request.Form("back_issues92-1") + chr(13) + chr(10) Data = Data + " " + Request.Form("back_issues93-1") + chr(13) + chr(10) Data = Data + " " + Request.Form("back_issues93-2") + chr(13) + chr(10) Data = Data + " " + Request.Form("back_issues93-3") + chr(13) + chr(10) Data = Data + " " + Request.Form("back_issues93-4") + chr(13) + chr(10) Data = Data + " " + Request.Form("back_issues94-1") + chr(13) + chr(10) Data = Data + " " + Request.Form("back_issues94-2") + chr(13) + chr(10) Data = Data + " " + Request.Form("back_issues94-3") + chr(13) + chr(10) Data = Data + " " + Request.Form("back_issues94-4") + chr(13) + chr(10) Data = Data + " " + Request.Form("back_issues95-1") + chr(13) + chr(10) Data = Data + " " + Request.Form("back_issues95-2") + chr(13) + chr(10) Data = Data + " " + Request.Form("back_issues95-3") + chr(13) + chr(10) Data = Data + " " + Request.Form("back_issues95-4") + chr(13) + chr(10) Data = Data + " " + Request.Form("back_issues96-1") + chr(13) + chr(10) Data = Data + " " + Request.Form("back_issues96-2") + chr(13) + chr(10) Data = Data + " " + Request.Form("back_issues96-3") + chr(13) + chr(10) Data = Data + " " + Request.Form("back_issues96-4") + chr(13) + chr(10) Data = Data + " " + Request.Form("back_issues97-1") + chr(13) + chr(10) Data = Data + " " + Request.Form("back_issues97-2") + chr(13) + chr(10) Data = Data + "Other:" + chr(13) + chr(10) Data = Data + "" + Request.Form("other_back_issues") + chr(13) + chr(10) Data = Data + "Check annual fee that will apply to you: " + chr(13) + chr(10) Data = Data + " " + Request.Form("annual_fee") + chr(13) + chr(10) Data = Data + " " + Request.Form("order_back_issues") + chr(13) + chr(10) Data = Data + "Type of payment method you will be using:" + chr(13) + chr(10) Data = Data + " " + Request.Form("payment") + chr(13) + chr(10) Data = Data + "Additional Comments and/or Information:" + chr(13) + chr(10) Data = Data + "" + Request.Form("comments") + chr(13) + chr(10) Status = DafTools.SendMail(MailServer,ReturnPath,Subject,MailTo,Data) if Status <> "OK" then 'Error in sending message Response.write DafTools.GetLastDAFToolsError else 'Succeed in sending end if Set DafTools = Nothing %>

Thank you for filling out the membership form in IANTD!


The following E-mail address was used to send your infomation: <%= Request.Form("email") %>
Click here to get back to the IANTD site!!!

IANTD/WSI © 1998

<% end if End if %>