<% Call SiteInfo Dim MesName, Content, SecretFlag, mMemID, mLinkman, mSex, mCompany, mAddress, mZipCode, mTelephone, mFax, mMobile, mEmail If Session("MemName") <> "" And Session("MemLogin") = "Succeed" Then Call QianboMessageWriteMemInfo() Else mSex = QianboLanguageTxt91 mMemID = 0 SecretFlag = "" & QianboLanguageTxt135 & "" End If %>