שלח תשובה

זירת השאלות

465
צפיות
3
תשובות

אני חייב עזרה

,‏ 31 בדצמבר, 2003

אני מנסה להעלות נתונים למסד הנתונים שלי באקסס, (אני עובד על ASP) אבל משום מה אני לא מצליח, כל פעם שאני כותב בשורות את הנתונים הוא נותן לי הודעה שלא נמצא כזה דף (הדף עם הסקריפט שמעלה לאקסס) מישהו יכול בבקשה לעזור לי? הנה הסקריפט:
<%
Response.Buffer = true

dim conn,rs
set conn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.RecordSet")
conn.Open "driver={Microsoft Access Driver (*.mdb)};;DBQ=web.mdb;"
sqltext = "SELECT * FROM index"
rs.Open sqltext,conn,3,3


dim name,info,link
name = Request.Form("name")
info = Request.Form("info")
link = Request.Form("link")

if name = "" then
error = "You have not entered an name."
Response.Write error
Response.End
end if



rs.AddNew
rs("name") = name
rs("info") = info
rs("link") = link
rs.update


Response.Redirect "addit.asp"
%>

תגיות:

3 תשובות

  1. שני דברים
    1. תיישר את הקוד לשמאל
    2. תגדיר לדפדפן שלך להציג שגיאות , ותחזור עם השגיאה המדוייקת.

  2. יוסיש הגיב:

    הנה הקוד
    השגיאה היא:
    Microsoft OLE DB Provider for ODBC Drivers error '80004005'

    [Microsoft][ODBC Microsoft Access Driver] Cannot update. Database or object is read-only.

    …./….asp, line 34


    <%
    Response.Buffer = true

    dim conn,rs
    set conn = Server.CreateObject("ADODB.Connection")
    set rs = Server.CreateObject("ADODB.RecordSet")
    conn.Open "driver={Microsoft Access Driver (*.mdb)};;DBQ=web.mdb;"
    sqltext = "SELECT * FROM index"
    rs.Open sqltext,conn,3,3

    dim name,info,link
    name = Request.Form("name")
    info = Request.Form("info")
    link = Request.Form("link")

    if name = "" then
    error = "You have not entered an name."
    Response.Write error
    Response.End
    end if

    rs.AddNew
    rs("name") = name
    rs("info") = info
    rs("link") = link
    rs.update

    Response.Redirect "addit.asp"
    %>
    |סקוד


    |

שלח תשובה