ASP +access data Save insert Code

If request. QueryString ("AG") Then
Set Conn=server.createobject ("Adodb.connection")
Conn.Open "Driver={microsoft Access Driver (*.mdb)};d bq=" &server.mappath ("... /skyj.mdb ")
Ag=request.form ("AG")
Amount=request.form ("Amount")
Name2=request.form ("name")
Tel=request.form ("tel")
Email=request.form ("email")
Qq=request.form ("QQ")
Bolg=request.form ("Bolg")
Blank=request.form ("blank")
exec= "INSERT into order (order, quantity, person name, telephone, EMAIL,QQ, blog, bank card number) VALUES (' +ag+" ', ' ' +amount+ ', ' ' +name2+ ' ', ' ' +tel+ ' ', ' "' +email+ '") , ' +qq+ ', ' ' +bolg+ ', ' ' +blank+ '.
Conn.execute exec
Conn.close
Set conn=nothing
End If
%>
<% @LANGUAGE = "VBSCRIPT" codepage= "936"%>
<! DOCTYPE HTML PUBLIC "-//W3C//DTD XHTML 1.0 transitional//en" "Http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd ">


<title>asp +access Data Save insert Code </title>
<meta http-equiv= "Content-type" content= "text/html; charset=gb2312 ">

<body bgcolor= "#FFFFFF" text= "#000000" >
<form name= "Form1" method= "Post" action= ". /05-17/example5.asp ">
<table width= "70%" border= "0" >
<tr>
<td> Products
<input type= "text" Name= "AG" value= "" > </td>
<td> Quantity (kg)
<input type= "text" name= "Amount" "value=" "></td>
<td> Name
<input type= "text" name= "name" value= "" ></td>
<td> Telephone
<input type= "Text" name= "tel" value= "" ></td>
<td>email
<input type= "text" name= "email" value= "" ></td>
<td>qq
<input type= "text" name= "QQ" "value=" "></td>
<td> blog <input type= "text" name= "Bolg" value= "" ></td>
<td> Bank card number <input type= "text" name= "blank" value= "" ></td>
</tr>
</table>
<br>
<br>
<br>
<input type= "Submit" name= "Submission" value= "submitted" >
<input type= "reset" name= "Submit2" value= "reset" >

</form>
<br>
</body>

Database tutorial connection, add ASP as follows (example5.asp)