01.
<%
02.
Dim
Conn,strSQL,objExec
03.
Set
Conn = Server.Createobject(
"ADODB.Connection"
)
04.
Conn.Open
"DRIVER=Microsoft Access Driver (*.mdb);DBQ="
& Server.MapPath(
"db_chair.mdb"
),
""
,
""
05.
strSQL =
"UPDATE MAINTABLE SET "
06.
strSQL = strSQL&
"KEYID = '"
&Request.Form(
"txtKEYID"
)&
"' "
07.
strSQL = strSQL&
",CODE = '"
&Request.Form(
"txtCODE"
)&
"' "
08.
strSQL = strSQL&
",CLEVEL = '"
&Request.Form(
"txtCLEVEL"
)&
"' "
09.
strSQL = strSQL&
",SUPPLYCODE = '"
&Request.Form(
"txtSUPPLYCODE"
)&
"' "
10.
strSQL = strSQL&
",QUANTITY = '"
&Request.Form(
"txtQUANTITY"
)&
"' "
11.
strSQL = strSQL&
",PRICE = '"
&Request.Form(
"txtPRICE"
)&
"' "
12.
strSQL = strSQL&
",ID = '"
&Request.Form(
"txtID"
)&
"' "
13.
strSQL = strSQL&
",USERNAME = '"
&Request.Form(
"txtUSERNAME"
)&
"' "
14.
strSQL = strSQL&
",USESTATUS = '"
&Request.Form(
"txtUSESTATUS"
)&
"' "
15.
strSQL = strSQL&
",REMARK = '"
&Request.Form(
"txtREMARK"
)&
"' "
16.
strSQL = strSQL&
",COORDINATOR = '"
&Request.Form(
"txtCOORDINATOR"
)&
"' "
17.
strSQL = strSQL&
",TELEPHONE = '"
&Request.Form(
"txtTELEPHONE"
)&
"' "
18.
strSQL = strSQL&
",CHIEFCODE = '"
&Request.Form(
"txtCHIEFCODE"
)&
"' "
19.
strSQL = strSQL&
",DEPARTMENTCODE = '"
&Request.Form(
"txtDEPARTMENTCODE"
)&
"' "
20.
strSQL = strSQL&
",DIVISIONCODE = '"
&Request.Form(
"txtDIVISIONCODE"
)&
"' "
21.
strSQL = strSQL&
",SECTIONCODE = '"
&Request.Form(
"txtSECTIONCODE"
)&
"' "
22.
strSQL = strSQL&
",BUILDING = '"
&Request.Form(
"txtBUILDING"
)&
"' "
23.
strSQL = strSQL&
",FLOOR = '"
&Request.Form(
"txtFLOOR"
)&
"' "
24.
strSQL = strSQL&
",ROOM = '"
&Request.Form(
"txtROOM"
)&
"' "
25.
strSQL = strSQL&
",INSERTDATE = '"
&Request.Form(
"txtINSERTDATE"
)&
"' "
26.
strSQL = strSQL&
",DELETEDATE = '"
&Request.Form(
"txtDELETEDATE"
)&
"' "
27.
strSQL = strSQL&
",TRANFERDATE = '"
&Request.Form(
"txtTRANFERDATE"
)&
"' "
28.
strSQL = strSQL&
"WHERE KEYID = '"
&Request.QueryString(
"CusID"
)&
"' "
29.
Set
objExec = Conn.Execute(strSQL)
30.
If
Err.Number = 0
Then
31.
Response.write(
"บันทึกเรียบร้อยแล้วค่ะ"
)
32.
Else
33.
Response.write(
"Error Save ["
&strSQL&
"] ("
&Err.Description&
")"
)
34.
End
IF
35.
Conn.Close()
36.
Set
objExec =
Nothing
37.
Set
Conn =
Nothing
38.
%