I don't know why this error come,where i am wrong Please help me

Establish database connection-------
    Dim objrs, objcon,strcon
    Dim Id,orderdate,type,comm,disc,consigneename,lcno,dat e,amount,expdate,buyerorderno,buyerorderdate,curre ncy,remarks,commagent,style,model,deldate,unit
    Dim Id,orderdate,type,comm,disc,consigneename,lcno,dat e,amount,expdate,buyerorderno,buyerorderdate,curre ncy,remarks,commagent,style,model,deldate,unit
    Set objcon = Server.CreateObject("ADODB.Connection")
    strcon="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Inetpub\wwwroot\project\order.mdb;"
    objcon.Open strcon

    Id=Request.Form("Id")
    orderdate=Request.Form("orderdate")
    type=Request.Form("type")
    comm=Request.Form("comm")
    disc=Request.Form("disc")
    consigneename=Request.Form("consigneename")
    lcno=Request.Form("lcno")
    date=Request.Form("date")
    amount=Request.Form("amount")
    expdate=Request.Form("expdate")
    buyerorderno=Request.Form("buyerorderno")
    buyerorderdate=Request.Form("buyerorderdate")
    currency=Request.Form("currency")
    remarks=Request.Form("remarks")
    commagent=Request.Form("commagent")
    style=Request.Form("style")
    model=Request.Form("model")
    deldate=Request.Form("deldate")
    unit=Request.Form("unit")



    strdml="INSERT INTO order (Id,orderdate,type,comm,disc,consigneename,lcno,da te,amount,expdate,buyerorderno,buyerorderdate,curr ency,remarks,commagent,style,model,deldate,unit) &_
    VALUES ('"&Id&"','"&orderdate&"','"&type&"','"&comm&"','" &disc&"','"&consigneename&"','"&lcno&"','"&date""' ,'"&amount&"','"&expdate&"','"&buyerorderno&"','"& buyerorderdate&"','"&currency&"','"&remarks&"','"& commagent&"','"&style&"','"&model&"','"&deldate&"' ,'"&unit&"')"
    objcon.Execute strdml


  objcon.Close
  Set objcon = nothing
%>
<form method="post">
Id :<input type="text" name="Id" size=10>
Order Date:<input type="text" name="orderdate" size=10>
Type : <input type="text" name="type">
Comm :<input type="text" name="comm" size=10>
Discount :<input type="text" name="disc" size=10>
Consignee Name : <select name="consigneename"><option>a</option></select>
L.C.No. : <select name="lcno"><option>a</option></select>
Date :<input type="text" name="date" size=10>
Amount :<input type="text" name="amount" size=10>
Exp Date :<input type="text" name="expdate" size=10>
Buyer Order No :<input type="text" name="buyerorderno" size=10>
Date :<input type="text" name="buyerorderdate" size=10>
Currency :<input type="text" name="currency" size=10>
Remarks :<input type="text" name="remarks" size=10>
Comm. Agent :<select name="commagent"></select>
Style :<select name="style"><option>a</option></select>
Model :<select name="model"><option>a</option></select>
Del Date :<input type="text" name="deldate" size=10>
Unit :<select name="unit"><option>a</option></select>
<input type="submit" value="Submit">
</form>
</body>
</html>
and the error is
Expected identifier
/project/order.asp, line 9, column 17
Dim Id,orderdate,type,comm,disc,consigneename,lcno,dat e,amount,expdate,buyerorderno,buyerorderdate,curre ncy,remarks,commagent,style,model,deldate,unit
----------------^

Answered here: http://p2p.wrox.com/topic.asp?TOPIC_ID=38254