<%Call SiteInfo()%> 订购产品 - <% =SiteTitle %> <% Dim Products Dim mMemID, mRealName, mSex, mCompany, mAddress, mZipCode, mTelephone, mFax, mMobile, mEmail If session("MemName")<>"" And session("MemLogin") = "Succeed" Then Call MemInfo() Else mSex = "先生" mMemID = 0 End If %>
<%=WebLocation()%>
 
标题: *选择产品
相关说明:
联系人: *
性别: /> 先生 /> 女士 *
单位名称/: *
详细地址:
联系电话: *
传真号码:
手机号码:
电子信箱:
验证码: *
 
 
<% Function WebMenu(ParentID, i, level) Dim rs, sql Set rs = server.CreateObject("adodb.recordset") sql = "select * from Qianbo_ProductSort where ViewFlag and ParentID="&ParentID&" order by ID asc" rs.Open sql, conn, 1, 1 If conn.Execute("select ID from Qianbo_ProductSort Where ViewFlag and ParentID=0").EOF Then response.Write "
暂无相关信息
" End If Do While Not rs.EOF If ISHTML = 1 Then AutoLink = ""&ProSortName&""&Separated&""&rs("ID")&""&Separated&"1."&HTMLName&"" Else AutoLink = "ProductList.Asp?SortID="&rs("ID")&"" End If response.Write ""&rs("SortName")&"" i = i + 1 If i首页 - 公司产品 - 订单"&vbCrLf End Function Sub MemInfo() Dim rs, sql Set rs = server.CreateObject("adodb.recordset") sql = "select * from Qianbo_Members where MemName='"&session("MemName")&"'" rs.Open sql, conn, 1, 1 If rs.bof And rs.EOF Then response.Write "
暂无相关信息
" Else mMemID = rs("ID") If Not rs("RealName") = "" Then mRealName = rs("RealName") Else mRealName = rs("MemName") End If mSex = rs("Sex") mCompany = rs("Company") mAddress = rs("Address") mZipCode = rs("ZipCode") mTelephone = rs("Telephone") mFax = rs("Fax") mMobile = rs("Mobile") mEmail = rs("Email") End If rs.Close Set rs = Nothing End Sub %>