ผมไม่ทราบว่าต้องแก้ตรงไหนน่ะครับ
form ที่รับค่า
<%
Set Conn=Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("db/database.mdb"),"" , ""
sql ="Select * From Cus_tomer where id_code="&request.querystring("id_code")
Set Rs = Conn.Execute(sql)
If Rs.EOF Then
%>
ไม่มีข้อมูลในตาราง !
<%Else%>
<form name="form1
ฯลฯ
อันนี้โคดแก้ไขข้อมูล
<%
Set Conn=Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("db/database.mdb"),"" , ""
sql ="Select * From Cus_tomer where ID_code="&Request.Form("Id_code")
Set RS =Server.CreateObject("ADODB.Recordset")
RS.open Sql,Conn,1,3
Rs("password") = Request.Form("password")
Rs("Date") = Date
Rs("Name") = Request.Form("name")
Rs("Surname") =Request.Form("surname")
Rs("Email") = Request.Form("email")
Rs("Tel") = Request.Form("tel")
Rs("Address") = Request.Form("address")
Rs.Update
Conn.Close
response.write("แก้ไขข้อมูลเรียบร้อยแล้ว")
%>
Load balance : Server 04
