ما یه کد کوچولو از رو یه کتاب نوشتیم
برای این که یه چند text رو وارد دیتا بیس کند (یه صفحه برا عضویت در سایت)
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.
/register/take_register.asp, line 48
که کدها هم این است
وارور مربوط به كدي كه رنگ قروز است مي شود
<!--design by [email protected] & sayed mohammad zeraat pisheh & http://www.shirazlearn.com-->
<%@ Language="VBScript" codepage=65001 %>
<%
session.codepage=65001
%>
<html>
<head>
<meta http-equiv="Content-Language" content="fa">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta http-equiv="Content-Type" content="text/html;charset=utf-8">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
</head>
<body>
<SCRIPT src="/farsi.js" type=text/javascript></SCRIPT>
<%
p_username = Request.form("username")
p_password1 = Request.form("password1")
p_password2 = Request.form("password2")
p_email = Request.form("email")
p_gender = Request.form("gender")
if ((request.form("username") = "") OR (request.form("password1") = "") OR (request.form("password2") = "")OR ( Request.form("email") = ""))then
response.redirect"../default2.asp?error=nofeildok"
end if
if not p_password1=p_password2 then
response.redirect"../default2.asp?error=nomatchpass"
end if
Dim Conn, RS
Set Conn = Server.CreateObject("ADODB.Connection")
DSNName = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="
DSNName = DSNName & Server.MapPath("../db/data.mdb")
conn.Open DSNName,3,1
theSQL = "insert into userlist "
theSQL = theSQL & "(username,password, email,gender)"
theSQL = theSQL & " values ('"&p_username&"', '"& p_password1&"', '"& p_email&"' , '"&p_gender&"')"
conn.execute(thesql)
Conn.close
set Conn = Nothing
response.redirect"../default2.asp?error=well"
%>
برای این که یه چند text رو وارد دیتا بیس کند (یه صفحه برا عضویت در سایت)
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.
/register/take_register.asp, line 48
که کدها هم این است
وارور مربوط به كدي كه رنگ قروز است مي شود
<!--design by [email protected] & sayed mohammad zeraat pisheh & http://www.shirazlearn.com-->
<%@ Language="VBScript" codepage=65001 %>
<%
session.codepage=65001
%>
<html>
<head>
<meta http-equiv="Content-Language" content="fa">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta http-equiv="Content-Type" content="text/html;charset=utf-8">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
</head>
<body>
<SCRIPT src="/farsi.js" type=text/javascript></SCRIPT>
<%
p_username = Request.form("username")
p_password1 = Request.form("password1")
p_password2 = Request.form("password2")
p_email = Request.form("email")
p_gender = Request.form("gender")
if ((request.form("username") = "") OR (request.form("password1") = "") OR (request.form("password2") = "")OR ( Request.form("email") = ""))then
response.redirect"../default2.asp?error=nofeildok"
end if
if not p_password1=p_password2 then
response.redirect"../default2.asp?error=nomatchpass"
end if
Dim Conn, RS
Set Conn = Server.CreateObject("ADODB.Connection")
DSNName = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="
DSNName = DSNName & Server.MapPath("../db/data.mdb")
conn.Open DSNName,3,1
theSQL = "insert into userlist "
theSQL = theSQL & "(username,password, email,gender)"
theSQL = theSQL & " values ('"&p_username&"', '"& p_password1&"', '"& p_email&"' , '"&p_gender&"')"
conn.execute(thesql)
Conn.close
set Conn = Nothing
response.redirect"../default2.asp?error=well"
%>