ASP Tutorial +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 ""
<body bgcolor= "#FFFFFF" text= "#000000"
<form name= "Form1" Post "method=". /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= "Submit" value= "Submission"
< Input type= "reset" name= "Submit2" value= "reset"
</form>
<br>
</body>