หลังจากที่หายไปนานเพราะไปดูแลแม่ที่ต้องผ่าตัดสมอง ตอนนี้แม่ผมกลับมาอยู่บ้านแล้วนะครับ
มารบกวนวันนี้เรื่องติดต่อฐานข้อมูล Access ครับ ขึ้นเออเออร์แบบนี้ครับ
Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] Could not find file '(unknown)'.
/Refill/postform.asp, line 22
นี่คือโค๊ดทั้งหมดนะครับ
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-874">
<title>Untitled Document</title>
</head>
<body>
<p>การแสดงผลแบบ Post </p>
<p>
<%
pname = request.form("index_name")
pemail = request.form("index_email")
pmessage = request.form("index_message")
pdate = date
ptime = time
pnow = now
pmessage = replace(pmessage,chr(13), "<br>")
pip = request.ServerVariables("REMOTE_ADDR")
Set Conn = Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver(*.mdb);DBQ="&Server.MapPath("database.mdb;UID=admin;PWD=abc;") << ตรงนี้ครับที่มันเออเรอร์
sqlprofile = "SELECT*FROM profile Order BY ID DESC;"
set rsprofile = Server.CreateObject("adodb.recordset")
rsprofile.Open sqlprofile, profile, 1, 3
rsprofile.Addnew
rsprofile("Ture") = pname
rsprofile("xemail")=pemail
rsprofile("xmessage") = pmessage
rsprofile("Gdate") = pnow
rsprofile("ip") = pip
rsprofile.update
rsprofile.close
set rsprofile=nothing
set profile = nothing
response.Write("<font color=red><center>อัพเดตข้อมูลลงฐานข้อมูลเรียบร้อยแล้วครับ</center></font>")
response.Redirect("view.asp")
%>
</p>
</body>
</html>
Load balance : Server 01
