<% 'Begin with basic RegExp function to validate email addresses Function EmailCheck(sEmail) EmailCheck = false Dim regEx, retVal Set regEx = New RegExp regEx.Pattern ="^[\w-\.]{1,}\@([\da-zA-Z-]{1,}\.){1,}[\da-zA-Z-]{2,3}$" regEx.IgnoreCase = true retVal = regEx.Test(sEmail) If not retVal Then exit function End If EmailCheck = true End Function DateTime = Now() 'Store current time as variable %>
 
 

We are currently putting this trip together.

If you are interested in this trip, please contact us.

Please try again later.

FYI (For Your Information): There are six major Grand Tournaments (Bashos) during the year at the following locations:

Tokyo - January, May & September
Osaka - March
Nagoya - July (the biggest & most important)
Fukuoka - November

For more information about the Sumo Bashos and highly entertaining video clips of the last tournament, please visit http://sumo.goo.ne.jp/eng/index.html