<% 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() %> Epdpop

Quotation

We are glad can have the chance to work further with you to reach the best effect of epaper display. To save your time, please fill in the following tables with your specified requirements, our team will forward the details of quotation to you accordingly.
Name: *
Email: *
Country: *
Total size of project: *
Animated part size if
not full size display:
*
Estimated quantity:
Where will the project
be placed?
uploading if
image/file available
 
More details (e.g. frame, battery life, thickness, et..)
<% 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 %>