<% 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 dim p1,p2,p3,p4,b1,b2,b3,b4,b5,b6,b7,b8,b9,b10 call MemInfo() call Place_inquiry() %> Epdpop

Place an inquiry

<%if request.QueryString("action")="bj" then%> <%end if%>
EPOP estimated price calculation< 30,000mm2( eg. Display size300*90mm)
L: mm W: mm Qty:
Estimated price USD
Notes:
1) This calculation formula is subject to full animated solution. For the calculation of hybrid solution or inserting solution with special requirement of display box or stand, please add $ 2.50-$5.00/pc accordingly.
2) It is just for estimated price calculation. If exact quotation needed, please send formal inquiry to us.
<%if request.QueryString("bction")="zx" then%> <%end if%> <%if request.QueryString("bction")="zx" then%> <%end if%>
EPOP estimated packing calculation
*Please write down the whole size, not animated part size
L: mm W: mm H: mm Qty: pcs
G.W./ctn: kgs Measure/ctn: cbm
Total weight: kgs Total measure: cbm
Total carton: ctns pcs/ctn: pcs
Master carton size: 490*400*460mm    Inner carton size: 470*380*210mm
Notes:
It is estimated and ordinary packing information for your reference. Final packing details would be subject to specified requirements.
 
<% 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 sub Place_inquiry() dim action,bction,rs,sql,mailcontent action=request.QueryString("action") if action="js" then if trim(Request.Form("p1"))="" or trim(Request.Form("p1"))="0" or trim(Request.Form("p2"))="" or trim(Request.Form("p2"))="0" then response.write "" end if session("p1")=trim(Request.Form("p1")) session("p2")=trim(Request.Form("p2")) session("p3")=trim(Request.Form("p3")) if session("p1")*session("p2")<10001 then if trim(Request.Form("p3"))=100 then session("p4")=(session("p1")*session("p2")*0.010575+54)/6 elseif session("p3")=500 then session("p4")=(session("p1")*session("p2")*0.010225+54)/6 elseif session("p3")=1000 then session("p4")=(session("p1")*session("p2")*0.009550+54)/6 elseif session("p3")=3000 then session("p4")=(session("p1")*session("p2")*0.009165+54)/6 elseif session("p3")=5000 then session("p4")=(session("p1")*session("p2")*0.008460+54)/6 end if elseif session("p1")*session("p2")>10000 and session("p1")*session("p2")<20001 then if trim(Request.Form("p3"))=100 then session("p4")=(session("p1")*session("p2")*0.010200+60)/6 elseif session("p3")=500 then session("p4")=(session("p1")*session("p2")*0.009860+60)/6 elseif session("p3")=1000 then session("p4")=(session("p1")*session("p2")*0.009180+60)/6 elseif session("p3")=3000 then session("p4")=(session("p1")*session("p2")*0.008840+60)/6 elseif session("p3")=5000 then session("p4")=(session("p1")*session("p2")*0.008160+60)/6 end if elseif session("p1")*session("p2")>20000 and session("p1")*session("p2")<30001 then if trim(Request.Form("p3"))=100 then session("p4")=(session("p1")*session("p2")*0.009825+72)/6 elseif session("p3")=500 then session("p4")=(session("p1")*session("p2")*0.009500+72)/6 elseif session("p3")=1000 then session("p4")=(session("p1")*session("p2")*0.008850+72)/6 elseif session("p3")=3000 then session("p4")=(session("p1")*session("p2")*0.008515+72)/6 elseif session("p3")=5000 then session("p4")=(session("p1")*session("p2")*0.007860+72)/6 end if elseif session("p1")*session("p2")>30000 then response.write "" end if mailcontent=""&VbCrLf mailcontent=mailcontent&""&VbCrLf mailcontent=mailcontent&""&VbCrLf mailcontent=mailcontent&""&VbCrLf mailcontent=mailcontent&""&VbCrLf mailcontent=mailcontent&""&VbCrLf mailcontent=mailcontent&""&VbCrLf mailcontent=mailcontent&""&VbCrLf mailcontent=mailcontent&""&VbCrLf mailcontent=mailcontent&""&VbCrLf mailcontent=mailcontent&""&VbCrLf mailcontent=mailcontent&""&VbCrLf mailcontent=mailcontent&""&VbCrLf mailcontent=mailcontent&""&VbCrLf mailcontent=mailcontent&""&VbCrLf mailcontent=mailcontent&""&VbCrLf mailcontent=mailcontent&""&VbCrLf mailcontent=mailcontent&""&VbCrLf mailcontent=mailcontent&""&VbCrLf mailcontent=mailcontent&""&VbCrLf mailcontent=mailcontent&""&VbCrLf mailcontent=mailcontent&"
EPOP estimated price calculation
ID: "&trim(Request.Form("MemName"))&"
Name: "&trim(Request.Form("RealName"))&"
Email: "&trim(Request.Form("Email"))&"
L: "&trim(Request.Form("p1"))&" mmW: "&trim(Request.Form("p2"))&" mmQty: "&trim(Request.Form("p3"))&" pcs
Estimated price USD "&trim(Request.Form("p4"))&"
"&VbCrLf '一切顺利后进行下面操作 If sendmail(smtptoname,smtpsendto,smtpsubject,mailcontent,"",smtpfromname,smtpfrom,smtpaddress,smtpname,smtppassword) Then response.write "" response.end Else response.write "" response.end End If '关闭邮件对象 call closejmail() response.write "" elseif action="bj" then p1=session("p1") p2=session("p2") p3=session("p3") p4=Formatnumber(session("p4"),2,-1,0,0) else p1="" p2="" p3="" p4="" end if bction=request.QueryString("bction") if bction="bz" then if trim(Request.Form("b1"))<"0" or trim(Request.Form("b2"))<"0" or trim(Request.Form("b4"))<"0" then response.write "" end if session("b1")=trim(Request.Form("b1")) session("b2")=trim(Request.Form("b2")) session("b3")=trim(Request.Form("b3")) session("b4")=trim(Request.Form("b4")) response.write "" elseif bction="zx" then b1=session("b1") b2=session("b2") b3=session("b3") b4=session("b4") b5=Formatnumber((b1*b2*10/1000/1000*1.4+0.01)*(fix(470/(b1+15))*fix(380/(b2+15))*20)+2,2,-1,0,0) b6=Formatnumber(490*400*460/1000/1000/1000,2,-1,0,0) b9=Formatnumber(b4/(fix(470/(b1+15))*fix(380/(b2+15))*20),2,-1,0,0) b10=fix(470/(b1+15))*fix(380/(b2+15))*20 b7=Formatnumber(b9*b5,2,-1,0,0) b8=Formatnumber(b9*b6,2,-1,0,0) else b1="" b2="" b3="10" b4="" b5="" b6="" b7="" b8="" b9="" b10="" end if end sub %>