%
'*******************************************************************************
'* 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
2124 NE 123 Street, Suite 210, Miami, FL 33181-2939 USA
Tel: 786-704-9722 or Fax: 509-355-1297 Magazine@iantd.com
<%
'
' 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
<% 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 %>