หน้าสอง addplc3.asp
<%
Set Conn=Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("db/Addlst.mdb"),"" , ""
sql ="Select * From Added where PlaceName='"& Request.Form("fname")&"'" ' »éͧ¡Ñ¹ª×èÍ«éÓ
Set RS =Server.CreateObject("ADODB.Recordset")
RS.open Sql,Conn,1,3
if NOT(RS.EOF) then
response.write("ª×èÍʶҹ·Õè¹ÕéÁÕÍÂÙèáÅéÇ")
else
Rs.AddNew
Rs("Place") = Request.Form("Place")
Rs("PlaceName") = Request.Form("PlaceName")
Rs("Email") = Request.Form("Email")
Rs("Website") = Request.Form("Website")
Rs("Day") = Request.Form("Day")
Rs("Time") = Request.Form("Time")
Rs("Close") = Request.Form("Close")
Rs("Alcohol") = Request.Form("Alcohol")== รับค่าจาก select option
Rs("Status") = Request.Form("Status")")== รับค่าจาก select option
Rs("Description") = Request.Form("Description")
Rs.Update ============================มันเออเร่อบรรทัดนี้น่ะ
Conn.Close
response.write("ºÑ¹·Ö¡¢éÍÁÙÅàÃÕºÃéÍÂáÅéÇ")
end if
%>
มันเออเร่อว่า
Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver]Error in row
/addplc3.asp, line 32