وقتي
http://kavoshgar.net/el-visit.aspرا اجرا می کنید با خطای Microsoft JET Database Engine [/code]error '80004005'
Operation must use an updateable query.
روبرو می شوید در صورتی که در local host چنین مشکلی ندارم !
اين بخش aspفرم می باشد
لطفا مرا راهنمایی کند و نظرتان را راجب سایت بگویید...
http://kavoshgar.net/el-visit.aspرا اجرا می کنید با خطای Microsoft JET Database Engine [/code]error '80004005'
Operation must use an updateable query.
روبرو می شوید در صورتی که در local host چنین مشکلی ندارم !
کد:
[align=left]<%@ language=VBscript codePage="65001" %>
<%option explicit%>
<HTML>
<HEAD>
<meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
<title>فرم بازدید کنندگان</title>
<link rel="StyleSheet" href="../MainStyleSheet.css" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<script src="/farsi.js" type="text/javascript">
</script>
<script type="text/javascript">
function checkerr_contact(){
x=document.nazarform
if (x.fname.value==''){
alert("لطفا نام خود را وارد کنید")
x.fname.select()
x.fname.focus()
return false
}
if (x.lname.value==''){
alert("لطفا نام خانوادگی خود را وارد کنید")
x.lname.select()
x.lname.focus()
return false
}
else{
at=x.email.value.indexOf("@")
if(at==-1 && x.email.value!=""){
alert("آدرس ایمیل نامعتبر است")
x.email.select()
x.email.focus()
return false
}
else
return true
}
}
</script>
</HEAD>
<body>
<!-- #include file="DateShamsi.txt"-->
<%
if Request("fname")<>"" then
dim adoconn
set adoconn = server.CreateObject("ADODB.connection")
adoconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb")
adoconn.Open
dim rscount
set rscount=adoconn.execute("SELECT MAX(id) FROM visitors")
dim mailcount
if not IsNumeric(rscount.fields(0).value) then
mailcount=1
else
mailcount=rscount.fields(0).value+1
end if
adoconn.Execute("INSERT INTO visitors VALUES("&mailcount&",'"&Request("fname")&"','"&Request("lname")&"','"&Request("email")&"','"&Request("tel")&"','"&Request("adr")&"','"&Request("post")&"','"&Request("a")&"','"&Request("sujjest")&"','"&DateShamsi&"')")
adoconn.Close
set adoconn=nothing[/align]
%>
اين بخش aspفرم می باشد
لطفا مرا راهنمایی کند و نظرتان را راجب سایت بگویید...