insertsupp.asp

一个购物网站

<%
 cSupplierID=Trim(Request.Form("txtSupplierID"))
    vSupplierName=Trim(Request.Form("txtSupplierName"))
    vSupplierAddress=Trim(Request.Form("txtSupplierAddress"))
    vSupplierCity=Trim(Request.Form("txtSupplierCity"))
    vSupplierZipCode=Trim(Request.Form("txtSupplierZipCode"))
    vEmailID=Trim(Request.Form("txtEmailID"))
    vFaxNumber=Trim(Request.Form("txtFaxNumber"))
    
   
    	mysql="Insert into Supplier values ('"&cSupplierID&"','"&vSupplierName&"','"&vSupplierAddress&"','"&vSuppliercity&"','"&vSupplierZipCode&"','"&vEmailID&"','"&vFaxNumber&"')"
        set con=Server.CreateObject("ADODB.Connection")
          con.open "PROVIDER=SQLOLEDB;DATA SOURCE=210.34.136.243;UID=user37;PWD=;DATABASE=project0104"
        con.Execute mysql
        
        
   Response.write "Your data is enter"
%>