สวนอันนี้เป็นสคริปสำหรับส่ง ครับ มีปัญหาส่งไม่ได้ช้วยดูสคริปให้ผมทีนะครับว่าต้องแก้ใขตรงไหนและทำยังไงดี
<%
Set Conn=Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("db/product.mdb"),"" , ""
sql ="Select * From product where barcode='"&Request.Form("barcode")&"'" ' ป้องกัน barcode ซ้ำ
Set RS =Server.CreateObject("ADODB.Recordset")
RS.open Sql,Conn,1,3
if NOT(RS.EOF) then
response.write("รหัส barcode นี้มีอยู่แล้ว")
else
Rs.AddNew
Rs("barcode") = Request.Form("barcode")
Rs("description") = Request.Form("description")
Rs("price") = Request.Form("price")
Rs("page") = Request.Form("page")
Rs("writer") = Request.Form("writer")
Rs.Update
Conn.Close
response.write("เพิ่มข้อมูลเรียบร้อยแล้ว")
end if
%>
พอผมกดส่งแล้วมันขึ้นข้อความเตื่อนอย่างนี้นะครับ
The page cannot be displayed
There is a problem with the page you are trying to reach and it cannot be displayed.
Open the localhost home page, and then look for links to the information you want.
HTTP 500.100 - Internal Server Error - ASP error
Internet Information Services
Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] Cannot update. Database or object is read-only.
/Sample3.asp, line 16
Browser Type:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)
Page:
POST 83 bytes to /Sample3.asp
POST Data:
barcode=0014&description=dasda&price=50&page=500&writer=%E4%C1%C1%E8&Submit2=Submit