יש לי בעיה בקוד ASP
אני משתמש בקוד של אתר מסויים שאמור לעבוד
הוא קוד שמוחק ממסדי נתונים
הקוד לא מוחק את הדבר הזה והשגיאה היא:


CODE
סוג שגיאה:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] ‏‏מחיקה מהטבלאות שצויינו לא הצליחה.
/new/admin.asp, line 44



הקוד להורדה למי שרוצה:
http://www.iao.co.il//samples/banners/banners.zip

תודה לעוזרים!!

בנוסף, גם עדכון והוספה לא עובדים בסקריפט הזה
יכול להיות בגלל שיש לי OFFICE 2003?
המסד נתונים הזה הוא על 97
במידה ויעזרו לי אני מוכן לתת דברים בתמורה

(ניסיתי להמיר את המסד נתונים ל2003 ועדיין יש את אותה השגיאה)

ולא דרך ASP.

[התמונה הבאה מגיעה מקישור שלא מתחיל ב https ולכן לא הוטמעה בדף כדי לשמור על https תקין: http://www.varon.co.il/signature.asp?type=.jpg]

"The reasonable man adapts himself to the world,

The unreasonable one persists in trying to adapt the world to himself,

Therefore all progress depends on the unreasonable man" --- George Bernard Shaw

איך מריצים את זה לא דרך ASP?

תפתח את אקסס, תיצור שם את השאילתה ותריץ.

[התמונה הבאה מגיעה מקישור שלא מתחיל ב https ולכן לא הוטמעה בדף כדי לשמור על https תקין: http://www.varon.co.il/signature.asp?type=.jpg]

"The reasonable man adapts himself to the world,

The unreasonable one persists in trying to adapt the world to himself,

Therefore all progress depends on the unreasonable man" --- George Bernard Shaw

יש מצב אתה בא אליי לאייסי ועוזר לי?
322577
תודה גבר

בפרש יש תסריט שמבטל מצבים.

מה גבר??
אני לא מבין
בוא אליי לפרטי אני חייב עזרה

מישהו?

[התמונה הבאה מגיעה מקישור שלא מתחיל ב https ולכן לא הוטמעה בדף כדי לשמור על https תקין: http://www.varon.co.il/signature.asp?type=.jpg]

"The reasonable man adapts himself to the world,

The unreasonable one persists in trying to adapt the world to himself,

Therefore all progress depends on the unreasonable man" --- George Bernard Shaw

יש לך מקום טוב להביא לי ללמוד ממנו?

למדתי ACCESS
ובדקתי את המסד נתונים
בניתי שאילתת עידכון על רשומה אחת והוא עידכן אותה
אז זה אומר שהמסד נתונים עובד
הקטע זה רק בקוד
יש בעיה בקוד של האתר
הקוד הוא:

קוד:

 <%
Dim id,SQL,rs
ID = Request("id")
Select case Request("the_action")
case "add": Dim item,values,cn
	SQL = "insert into BANNERS ("
values = "("
For each item in Request.querystring
	if item <> "the_action" and item <> "id" Then
	 SQL = SQL & "[" & item & "],"
	 values = values & "'" & request(item) & "',"
	end if
Next
SQL = left(SQL,len(SQL)-1) & ") values"
SQL = SQL & left(values,len(values)-1) & ")"
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open TheDSN
cn.Execute SQL
cn.Close
set cn = Nothing
Response.Redirect "admin.asp?" & rnd()
 
case "edit":SQL = "Update BANNERS Set "
For Each Item in Request.QueryString
	if (Item <> "id") and (Item <> "the_action") Then
	 SQL = SQL & Item & "='" & Request(Item) & "', "
	End if
Next
SQL = Left(SQL,Len(SQL)-2) & " Where id=" & id
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open TheDSN
cn.Execute SQL
cn.Close
Set cn = Nothing
Response.Redirect "admin.asp?" & rnd()
 
case "del": SQL = "Delete * From BANNERS Where id=" & id
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open TheDSN
cn.Execute SQL
cn.Close
set cn = Nothing
Response.Redirect "admin.asp?" & rnd()
 
case "zero": SQL = "Update BANNERS Set hits=0 where id=" & id
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open TheDSN
cn.Execute SQL
cn.Close
set cn = Nothing
Response.Redirect "admin.asp?" & rnd()
End Select
SQL = "Select * From BANNERS" 'remove the * and put all the fields
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open SQL, TheDSN
%> 

החיבור DSN עובד גםכן
הקטע זה רק בקוד הזה
יש כנראה שגיאה
הוא לא מעדכן, לא מאפס, לא מוחק ולא מוסיף

כנראה יש שגיאה בפונקציה הנ"ל
תעזרו לי לתקן אותה
תודה!