<% response.charset="utf-8" %> <% call SiteInfo dim MemID,mMemName,mGroupIdName,mRealName,mSex,mQusetion dim mCompany,mAddress,mZipCode,mTelephone,mFax,mMobile,mEmail,mHomepage,mAddTime,mLoginTimes,mLastLoginTime,mLastLoginIP call MemInfo() %> Sample kit

Sample kit

Sometimes, one real sample is better than 10 pictures or videos for your understanding and presentation with client.
To serve your better, some public samples are available. Choose the suitable one, our team will prepare for you accordingly.
Name: *
Email: *
Country: *
Samples
Maybelline    video    GIF U.P. USD : Sub-total USD :
Replaceable    video    GIF U.P. USD : Sub-total USD :
Pepsi    video    GIF U.P. USD : Sub-total USD :
Vichy (hybrid)    video    GIF U.P. USD : Sub-total USD :
Vichy (full)    video    GIF U.P. USD : Sub-total USD :
Ducados    video    GIF U.P. USD : Sub-total USD :
Adidas    video    GIF U.P. USD : Sub-total USD :
Tropicana    video    GIF U.P. USD : Sub-total USD :
Yopop    video    GIF U.P. USD : Sub-total USD :
Carlsberg    video    GIF U.P. USD : Sub-total USD :
Samples    video    GIF U.P. USD : Sub-total USD :
Samples    video    GIF U.P. USD : Sub-total USD :
Samples    video    GIF U.P. USD : Sub-total USD :
Samples    video    GIF U.P. USD : Sub-total USD :
Samples    video    GIF U.P. USD : Sub-total USD :
Total amount USD :
An order confirmation will be sent to the email address provide above.
<% sub MemInfo() dim rs,sql set rs = server.createobject("adodb.recordset") sql="select * from NwebCn_Members where MemName='"&session("MemName")&"'" rs.open sql,conn,1,1 if rs.eof then response.write "No details" else MemID=rs("ID") mMemName=rs("MemName") mGroupIdName=GroupName(rs("GroupID")) mRealName=rs("RealName") mSex=rs("Sex") mQusetion=rs("Question") mCompany=rs("Company") mAddress=rs("Address") mZipCode=rs("ZipCode") mTelephone=rs("Telephone") mFax=rs("Fax") mMobile=rs("Mobile") mEmail=rs("Email") mHomePage=rs("HomePage") mAddTime=rs("AddTime") mLoginTimes=rs("LoginTimes") mLastLoginTime=rs("LastLoginTime") mLastLoginIP=rs("LastLoginIP") end if rs.close set rs=nothing end sub function GroupName(GroupID) dim rs,sql set rs = server.createobject("adodb.recordset") sql="select * from NwebCn_MemGroup where GroupID='"&GroupID&"'" rs.open sql,conn,1,1 GroupName=rs("GroupName") rs.close set rs=nothing end function %>