DaneshAfrooz
New Member
ببخشید من نمی تونم به بانک Access در ASP اطلاعات اضافه کنم (در IIS ) البته عمل خوندن را انجام میده . خطایی که میده سر Update بانکه. به نظر خودم که برنامم درسته. ازدوستان خواهش میکنم اگه ممکنه به من کمک کنن. اینم کد برنامه.
<%
<%
dim objconn
set objconn=server.CreateObject("ADODB.Connection")
'objconn.ConnectionString=
objconn.Open "dsn=db3"
dim objrs
set objrs=server.CreateObject("ADODB.recordset")
objrs.Open "Table1" ,objconn, ,2 ,2
objrs.AddNew
objrs( "Name" )= Request.Form("Name")
objrs("Family")= Request.Form("Family")
objrs("Email")= Request.Form("Takhassos")
objrs("Email")= Request.Form("Reshteh")
objrs("Email")= Request.Form("Code")
objrs("Email")= Request.Form("MOBILE")
objrs("Email")= Request.Form("Tel1")
objrs("Email")= Request.Form("day1")
objrs("Email")= Request.Form("Fax1")
objrs("Email")= Request.Form("Adres1")
objrs("Email")= Request.Form("Tel2")
objrs("Email")= Request.Form("day2")
objrs("Email")= Request.Form("Fax2")
objrs("Email")= Request.Form("Adres2")
objrs("Email")= Request.Form("Tel3")
objrs("Email")= Request.Form("day3")
objrs("Email")= Request.Form("Fax3")
objrs("Email")= Request.Form("Adres3")
objrs.Update
objrs.Close
set objrs=nothing
objconn.Close
set objconn=nothing
set objconn=server.CreateObject("ADODB.Connection")
'objconn.ConnectionString=
objconn.Open "dsn=db3"
dim objrs
set objrs=server.CreateObject("ADODB.recordset")
objrs.Open "Table1" ,objconn, ,2 ,2
objrs.AddNew
objrs( "Name" )= Request.Form("Name")
objrs("Family")= Request.Form("Family")
objrs("Email")= Request.Form("Takhassos")
objrs("Email")= Request.Form("Reshteh")
objrs("Email")= Request.Form("Code")
objrs("Email")= Request.Form("MOBILE")
objrs("Email")= Request.Form("Tel1")
objrs("Email")= Request.Form("day1")
objrs("Email")= Request.Form("Fax1")
objrs("Email")= Request.Form("Adres1")
objrs("Email")= Request.Form("Tel2")
objrs("Email")= Request.Form("day2")
objrs("Email")= Request.Form("Fax2")
objrs("Email")= Request.Form("Adres2")
objrs("Email")= Request.Form("Tel3")
objrs("Email")= Request.Form("day3")
objrs("Email")= Request.Form("Fax3")
objrs("Email")= Request.Form("Adres3")
objrs.Update
objrs.Close
set objrs=nothing
objconn.Close
set objconn=nothing