<% Dim conn Dim connstr Dim db '更改数据库名字 db="access-db\db1.mdb" set conn = Server.CreateObject("ADODB.Connection") connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"") conn.Open connstr sub connclose() conn.close set conn=nothing End sub Sub rsclose() rs.close set rs=nothing End Sub %> <% Producttitle=request("producttitle") If Request( "Submit" )<>"" Then date1=date set rs=server.createobject("adodb.recordset") SQL="select * from message where ID is Null" rs.open SQL,conn,1,3 rs.Addnew rs("title")=Trim( Request("title") ) rs("msg")=Trim( Request("content") ) rs("email")=Trim( Request("email") ) rs("tel")=Trim( Request("tel") ) rs("address")=Trim( Request("address") ) rs("msg_date")=date1 rs("answer")="NoRe" rs.Update rs.close Response.Redirect ("message.asp") end if %> china wholesalers,china wholesale,china wholesaler
China electronics wholesale
  

China Wholesale
home Product Payment/warranty Policy Order About US Contact US News Shipping  
Product Category
<% set rs=server.createobject("adodb.recordset") sqltext="select top 40 * from product_class where CdBigClassID=0 Order BY BigClassID " rs.open sqltext,conn,1,1 %>
<% Do While Not rs.Eof %>      .html" class="q1 STYLE2"><%=rs("BigClassName")%>

<% rs.movenext loop Rs.close %>

Best Sellers
Nokia 6820
Nokia 2610
Nokia 8890
Baby Monitors
 
 
　Home >> Book>>
　　Info:
Name： *
Phone： *
Add： *
Email： *
　　Feedback:
Order： *
Content： *
 
 
Cell phones銆�|銆�MP3 Players銆�|銆�Bluetooth Devices銆�|銆�Digital Cameras 銆�|銆�Car Monitors Car TV銆�|銆�Link Exchange銆�|銆�MP4 Players
www.china-wholesalers.com 2005-2007copyright
email:order@china-wholesalers.com

Dreambox 800 HD dreambox 500s dreambox 600s dreambox 600c dreambox 500c Accessoires phone portable accessoires Iphone accessoires Wii Accessoires Nintendo Wii Accessoires jeux Accessoires Sony PS2 Accessoires Sony PS3 Accessoires Xbox 360 Accessoires Samsung player one S5230 Accessoires Samsung phone portable Accessoires Nokia phone portable