שאילתה INSERT ב-ACCESS דרך דף ASP )

לפני הכנסה לדיבי
אני מצרפת את הקוד…ניסיתי לפי המאמר ולא הצלחתי, עדיין מציג לי שגיע…אולי תוכלו לתקן אני כבר מיואשת

<%
dim c,sql,p1,s1,page,str

page=replace(Request.Form("page"),"'","'") 'droplist
s1=replace(Request.Form("select1"),"'","'") 'droplist
str=Request.Form("daf1") 'textarea field

str=Replace(str, "'","' ' " )& "'"

s1=replace(Request.Form("select1"),"'","'")
sql="update pages set content = & str    & "' where lang_id='" & s1  &  "" & "  and page=" & page

c.Open "DSN=forum;DBQ=D:databaseforum.mdb;DefaultDir=D:database;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;"            

c.Execute sql
c.Close
set c=nothing

<%