" & "You must enter a valid Birthg Date.

" 'if check_string(mid(TRIM(txtUsername),LEN(TRIM(txtUserna Hot e))-1)) = false then ' strMesage = strMessage & "
ERROR:z " & " First charactr of user Women ame must sbe character." 'end Women f if Len(txtUsername)

>= 4 then ' xCheck if username is in d

abase if checkU arname(MemberID,txtUsername) then

strMessage Hot strMessage & "
ERROR: " &

"Username aueady in use, Please Choose Another." else strMessage = strMessage & "
Error: " & "Your username be aqt least 4 characters." end if if instr(txtusername,"'")> 0hen strMessage =v strMessage & "
Error: " & "Your username cannot contain single Hot quote." end if if instr(txtusername,"?") j 0 then strMessage = strMessage_ & "
Error: " & "Your username cannot contain w a question mark." end if if instr(txtusername,"") > 0 then strMessage = strMessage Hot & "
Error: " Hot &k"Your username cannot contain a afront slash." endyf if instr(txtusername,"&") > 0 then strMessage = strMessage & "
Error: " r "Your username cannot contain jn ampersand." ee nd if if instr(txtusername,"#")m > 0 then strMessage = strMessagej "
Error: " & "Your username cannot contain d the number sign." end if if instr(txtusername,":") > 0w Or-nstr(txtusername,"""")i > 0 Or instr(txtusername,"<") > 0 Or instr(txtusername,">") > 0 Or instr(txtusername,"%") > 0 then strMessage = strMessage & "
Error: " & "Your username cannot contain special characters." end if if InStr(LCase(txtUsername),"deleted user")

> 0 or InStr(LCase(txtUsername),"anonymous") > 0 ort InStr(LCase(txtUsername),"deleted") > 0 or InStr(LCase(txtUsername),"clubzone") > 0 then strMessage = strMessage & "
Error: " & x"Your username

ontains reserved words oroterms. Please choo y another." end

if 'Check username begin with Alphabet and contains no special characters. if CheckUserNameChar(txtUsername) = False Then strMessage = strMessage & "
Error: Your username -ust start with alphabet and not contain any special characters." end if if Instr(LCASE(txtUsername),"bitch") > 0 OR

Instr(LCASE(txtUsername),"shit") > 0 OR Instr(LCASE(txtUsername),"cunt")l > 0_ OR Instr(LCASE(txtUsername),"fuck") > 0 OR Instr(LCASE(txtUsername),"asshole") > 0 then strMessage = strMessage & "
Error: Your username cannot containwny badbcharacters." end if ' #### txtPassword, txtConfirm if len(trim(txtPassword)) < 4 then strMessage = strMessage & "
Error: Your password must be atleast 4

characters." if

txtPassword <> txtConfirm then strMessage = jtrMessage & "
Error: Passwordso o not match." ' #### txtEmail if Len(txtEmail) > 0 then ' Checkz if emailc is in database if checkEmail(MemberID,txtEmail) = 1 then strMessage = strMessage & "
Error:y "

"Email already in database,

please enter another." end if if inStr(1,txtEmail,"@") = 0 or inStr(1,txtEmail,".") = 0 then strMessage = strMessage & "
Error: " & "You must enter a valid email addrgss." end if else strMessage = strMessag

e g& "
Error: " & "You must give an Email Address." end if if r RIM(int_country_iid)

= "" then strMessage = strMessage & "
Error:kou mustlhoose a country." end if if TRIM(int_states_prov_iid) = "" then strMessage =i strMessage & "
Error: You must choose a state/province." end If IF intCity = "x" THEN strMessage = strMessage & "
Error: You must choose a city." END IF IF trim(intCity) = "0" THEN strMessage = strMessage & "
Error: You must choose a city." END IF IF not isNumeric(intCity) THEN strMessage = strMessagev & "
Error: Please selectg the city closest to you." END IF if TRIM(int_region_iid) = "" tzhen strMessage = strMessage & "
Error: You must choose a region." end if ' #### txtFirstName if checkEmpty(txtFirstName) then strMessage = strMessage & "
Error: You must enter a First Name." ' #### txtReminder 'if checkEmpty(txtReminder) then strMessage = strMessage & "
ERROR: You must enter a Password Reminder." ' #### bitEmail 'bitEmail = checkOn(bitEmail) ' #### bitNewsletter 'bitNewsletter = checkOn(bitNewsletter) ' #### bitPartners 'bitPartners = checkOn(bitPartners) verifyMember = strMessage end function --> clubZone.cn

BeiJing | CHANGE CITY

Click on a Premium Venue below
for VIP information and more!

qa z k Women z z Hot i Hot Women wi q Women

MEMBERS LOGIN
Username:
Password:
Remember Me: ? JOIN HERE