<% public ProductList if request("order")="产品更新" then Session("ProductList")="" end if ProductList = Session("ProductList") Sub PutToShopBag(Prodid, ProductList) If Len(ProductList) = 0 Then ProductList = "'" & Trim(Prodid) & "'" ElseIf InStr( ProductList, Prodid ) <= 0 Then ProductList = ProductList&", '"&Trim(Prodid)&"'" End If End Sub %> <% Product_Id = Trim(Request("Product_Id")) if instr(Product_Id,",")>0 then idArr=Split(Product_Id, ",") for i = 0 to ubound(idArr) PutToShopBag idArr(I), ProductList next else PutToShopBag Product_Id, ProductList end if %> <% Session("ProductList") = ProductList '判断购物车是否为空 if Productlist<>"''" then sql="select * from Products where Product_Id in ("&ProductList&") order by Product_Id" Set rs_price = conn.Execute(sql) else response.redirect "error.asp?error=007" response.end end if %> <% title="在线产品咨询" SiteContent="" %>
 
<% call ShowVote() %>
 
在线产品咨询
<%If Session("UserName")<>"" Then%>
会员:<%=Session("UserName")%>:  
  
<%end if%>
<% While Not rs_price.EOF %> <% rs_price.MoveNext Wend rs_price.close set rs_price=nothing %>
  <%=session("UserName")%> 您选取的产品明细如下:
 
选取 产品名称
" Checked>
<%=rs_price("Title")%>
<% sql="select * from [User] where UserName='"&session("UserName")&"'" set rs_price=server.createobject("adodb.recordset") rs_price.open sql,conn,1,1 Sex=rs_price("Sex") Phone=rs_price("Phone") Email=rs_price("Email") CompanyName=rs_price("CompanyName") Receiver=rs_price("Receiver") Add=rs_price("Add") Fax=rs_price("Fax") rs_price.close set rs_price=nothing %>
TO:
<%=CompanyName%> 
* 标题:
* 说明:
(20-4000字符)
谢谢你对我们的产品感兴趣,我们会尽快和你联系!
* 联系人:
> 先生
>
> 女士
* 公司名称:
> (4-100 字符)
地址:
>
* E-mail:
>
* 公司电话:
> ( 0592-2061212 )
传真:
> ( 0592-2061212 )