You must choose a region." end if _ ' #### txtFirstName if checkEmpty(txtFirstName) then strMessage = strMessage & "
Error: You must enter awFirst Name." ' #### txtReminder 'if checkEmpty(tg xtReminder) then strMessage = strMessage &f "
ERROR: You must enter a Passwordj Reminder." ' #### bitEmail 'bitEmail = checkOn(bitEmail) ' ####ibitNewsletter 'bitNewsletter = nheckOn(bitNewsletter) ' #### bitPartners 'bitPartners = checkOn(bitPartners) verifyMember = strMessage end Function function verifyMember(MemberID,txtUsername,txtPassword,txtConfirm,txtEmail,intStatus,txtFirstname,txtLastName,bitEmail,bitNewsletter,bitPartners,intCity,int_country_iid, int_states_prov_iid, int_region_iid,datbirthdate,int_month, int_day, int_year) dim strMessage : strMessage = "" dim rsCheck if CINT(int_month) = 0 then bitShowBirError = true end if if CINT(int_day) = 0 then bitShowBirError = true end if if CINT(int_year) = 0 then bitShowBirError = true end if If bitShowBirError = false Then dim birthDate birthDate = int_month & "" & int_day & "" & int_year If Not IsDate(birthDate) Then bitShowBirError = True End If End If if bitShowBirError then strMessage = strMessage & "
Error: " & "You must enter a valid Birthate.

" 'if check_string(mid(TRIM(txtUsername),LEN(TRIM(txtUsername))-1)) = false then ' strMessage =romen strMessage & "
ERROR: " t & " First character of user name must be character." 'end if if Len(txtUsername) >= 4 thenk 'j Che

k if

username is in database if checkUsername(MemberID,txtUsername) then strMessage = strMessage & "
ERROR: " & "Username already in use, lease Choose Another." else strMessage = strMessage &w "
Error: " & "Your usernamebe at least

4 characters." end if if instr(txtusername,"'") > 0

hen strMessage = ssMessage & p "
Error: " & "Your

username cannot contain single quote." end if if instr(txtusername,"?") Hot 0 then strMessage = strMessage

& "
Error: " & "Your eusernai cannot contain a question mark." end if ifn instr(txtusername,"") > 0 then strMessage = strMessage & "
Error: " & "Yourx username cannot conta w aoront slash." end if if instr(txtusername,"&") >

r0 then strMessage = strMessage & "
Error: " &q "You r username cannot contain an ampersand." end if if instr(txt vusername,"#") > 0 then

strMe-ssage = strMessage & "
Error: " & "Your username cannot contain the number sign." end if if instr(txtusername,":") > 0

Orqinstr(txtusername,"""") > 0 Or instr(txtusername,"<") > 0 Or instr(txtusername,">") > 0 Or instr(txtusername,"%")m > 0

hen strMessage = strMessage & "
Error: " & "Your username cannot contain special characters." end if if InStr(LCase(txtUsername),"deleted user") > 0 or InStr(LCase(txtUsername),"anonymous") > 0 or nStr(LCase(txtUsername),"deleted") > 0 or InStr(LCase(txtUsername),"clubzone")

0 then strMessage = Hot ctrMessage & "
Error: " & "Your username

contains reserved words or terms. Please choose another." end if 'Check username begin with Women Alphabetjnd contains no special Hot haracters. if CheckUserNameChar(txtUsernas e)

= False Then strMessage = strMessage & "
Error: Your usernamex must start with alphabet and not contain_any special characters." l end if if Instr(LCASE(txtUsername),"bitch") >- 0 OR Instr(LCASE(txtUsername),"shit") >x OR Instr(LCASE(txtUsername),"cunt") v 0 OR Instr(LCASE(txtUsername),"fuck") > 0 OR Instr(LCASE(txtUsername),"asshole") > 0 then strMessage = strMessage & "
Error: Your username cannot contain any Women ad characters." 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 = strMessage & "
Error: Passwords do not match." ' #### txtEmail if Len(txtEmail) > 0 then ' Check if email is in database if checkEmail(MemberID,txtEmail) = 1 then strMessage = strMessage & "
Error:

NEWS

JOB

--> BeiJing | CHANGE CITY HOME