WASI | NASE Worldwide

<% dim pName, pAddress, pCity, pState, pZipCode, pCountry, pPhone, pEmail, pComments dim strHost, strMessage, strFirstName, strLastName, strUserName, pMessage If Request.form("submitted") = "" then pMessage = "A computer generated password and user name will be sent to your email address of record. You can use this password to logon to the member site and change the password to one of your own choosing." else ' get from the form pName =Request.Form("requiredname") pAddress =Request.Form("address") pCity =Request.Form("city") pState =Request.Form("state") pZipCode =Request.Form("zip") pCountry =Request.Form("country") pPhone =Request.Form("requiredphone") pEmail =Request.Form("requiredemail") pComments =Request.Form("comments") strMessage = "Name: " & pName & Chr(10) & "Address: " & pAddress & Chr(10) & "City: " & pCity & Chr(10) &_ "State: " & pState & Chr(10) & "Zip: " & pZipCode & Chr(10) &_ "Country : " & pCountry & Chr(10)& _ "Phone : " & pPhone & Chr(10) & _ "Email address: " & pEmail & Chr(10) & Chr(10) & _ "Comments:" & Chr(10) & pComments strHost = "mail.naseworldwide.org" Set Mail = Server.CreateObject("Persits.MailSender") ' enter valid SMTP host Mail.Host = strHost Mail.From = pEmail ' From address Mail.FromName = pName ' optional Mail.AddAddress "admin@naseworldwide.org" ' message subject Mail.Subject = "Featured Story " & Date() ' message body Mail.Body = strMessage strErr = "" bSuccess = False On Error Resume Next ' catch errors Mail.Send ' send message If Err <> 0 Then ' error occurred strErr = Err.Description else bSuccess = True End If End If %> WASI | NASE Worldwide - Travel

<%=pMessage%>

[ FEATURED ]

If you would like to contribute YOUR dive story or have some thoughts, fill out the form below.
(* required fields)

* Name:
Address:
City:
State/Province
Zip/Postal Code:
Country:
* Phone number:
* Email:
Your destination story:

We reserve the right to withhold stories that we feel are offensive or are not appropriate to this website.

> Dive Health News

First recreational scuba education facilty to be accredited in Europe
by the UK Health and Safety Executive as
of Jan. 18, '01...