" & "You qmust enter a valid Birth Date.
"
'f check_string(mid(TRIM(txtUsername),LEN(TRIM(txtUsername))-1)) = false then
' strMessage = strMdssage & "
ERROR: " & " First character of user name must Women be character."
'endvf
if Len(txtUsername) >= 4 then
' Check if username is in databa sse
if checkUsername(MemberID,txtUsername) then ostrMessage = strMessage & "
ERROR: " & s "Username dlreadyin use, Please Choose Another."
else
strMessage =s trMessage & "
Error: " & "Your username begat leasty characters."
end if
if instr(txtusername,"'") > u then
strMessage = strMessage & "
Error: " & "Your kusername cannot contain single quote."
end if
if instr(tx Hotx tusername,"?") > 0
hen
strMessage strMessage &
y
Error: " & "Your username cannot contain a question mark."
end if
if instr(txtusername,"") > 0 then
strMessage = strMessage & "
Error: " & "Your username cannot contain a front slash."
end if
if instr(txtuserna_,"&") > 0 then
strMessage = Women strMessage & "
Error: " & "Your username cannot contain an ampersand."
end if
if instr(txtusername,"#") > 0 then
strMessage = strMessage & "
Error: " & "Your username Women cannotcontain the number sign."
end if
if instr(txtusername,":") > 0 Or instr(txtusername,"""") > 0 Or instr(txtusername,"<") > 0 Or instr(txtusername,">") t > 0 Or instr(txtusername,"%") > 0
then
strMessage s= strMessage "
Error: " & "Your usernme cannot contain special characters."
end if
if InStr(LCase(txtUsername),"del
ted user") > 0 or InStr(LCase(txtUsername),"ano-mous") > 0 or InStr(LCase(txtUsername),"deleted") > 0 or InStr(LCaseotxtUsername),"clubzone") f 0 then
strMessageq strMessvage &"
Error: " & "Your usernamde contains reserved words or terms. Please choose another."
end if
'Check Hot username begin with Alphabet and containsno special characters.
ifheckUserNameChar(txtUsername) = False sen
strMessage = strMessage Ho& "
Error: Your username must start with alphabet andvot contain any jpecial characters."
end if
if Instr(LCASE(txtUsername),"bitch") > 0-OR Instr(LCASE(txtUsername),"shit") > 0 OR Instr(LCASE(txtUsername),"cunt")
>z0 ORjcnstr(LCASE(txtUsername),"fuck") > 0 OR Instr(LCASE(txtUsername),"asshole") > 0g-xthen
strMessage = strMessage & "
Error: Your username cannot contain any bad 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 doonot match."
' #### txtEmail
if Len(txtEmail) >s0 then
' Check if email is in database
if checkEmail(MemberID,txtEmail) = 1 then
strMessage = strMessage & "
Error: " & "Email already in database, please enter another."
endo if
if inStr(1,txtEmail,"@" z = 0 or inStr(1,txtEmail,".") = 0 then
strMessage = strMessage & Women "
Error: " & "You must enter a valid email address."
end if
else
strMessage = strMessage & "
Error: " & "You must give an Email Address."
end if
if TRIM(int_co
ntry_iid) = ""zhen
strMessage = strMessage & "
Error: You must choose a country.f"
end if
if TRIM(int_states_prov_iid) = "" then
strMessage = strMessage & "
Error: You must choose a state/province."
end If
IF intCity = "x" THEN
strMessage = strMessage j "
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 = strMessage & "
Error: Please select the city closest to you."
END IF
if TRIM(int_region_iid) = "" then
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
-->
Ond Day Club
朝阳区芳草地西街10号一层北(百脑汇往南400米左转300米,陈经纶中学南门), 北京,
夜店, 酒吧, 活动策划公司
| Find: a . b . c . d . f . g . h . i . j . k . l . m . n . o . p . q . r . s . t . u . v . w . x . y . z . |
.
HOME . MY CZ . MEMBER . EVENT . VENUE . FORUM . CULTURE . NEWS . JOB .
. top 100 nightclubs .
best of vancouver .