שלח תשובה

זירת השאלות

204
צפיות
84
תשובות

מסד נתונים….. עזרה.

,‏ 20 ביוני, 2004

חבר’ה יצרתי באקסס קובץ מסד נתוני םעם כל השדות בטופס..

לטבלה באקסס קוראים reginster , איך אני עושה שהטופס ישלח

למסד הנתונים? ושזה יחזיר תשובה "פרטייך נרשמו בהצלחה עם קישור חזור"…

ואחרי שהוא נרשם לאתר… אני רוצה שתהיה לו אפשרות להתחבר…  

ואז כל פעם שהוא מתחבר בפעם הראשונה הוא לא יצטרך להתחבר שוב…



תגיות:

84 תשובות

  1. סטימפי הגיב:

    בעיקרון לא הבנתי את הדף הראשון
    במדריך שלכם… בבקשה זה ממש דחוף…

    אני רוצה שתסבירו שלב אחרי שלב…

    יש לי טופס הרשמה – אני רוצה שהמשתמש שנכנס לאתר יקליד את הפרטים שלו בטופס, הטופס ישלח למסד הנתונים… איך?

    עוד לא יצרתי מסד נתונים(אני רוצה באקסס ולא בקובץ טקטס כי אפשר לעדכן ולמחוק) ואני רוצה שתלמדו אותי איך אני פותח טבלה… איפה אני שומר אותה , מה אני מקליד לתוכה בבקשה עזרה…

  2. סטימפי הגיב:

    בבקשה…
    אני יודע שקודם אני צריך להגדיר את ה-DSN

    אז יש לי ווינדוס 98, נכנסתי לקונטרול פאנל… דטה סורסס…..

    רשום ללחוץ על ADO, לא מופיע לי בכלל ADO..

    ומאיפה אני מתחיל אני פותח קובץ פנקס רשימות…

    תעזרו לי בבקשה.

  3. MasterMind הגיב:

    זה דיי ארוך איך להתחיל
    תשמע  אל תעשה DSN   את זה תעשה כשתהיה יותר מיומן עכשיו תעבוד
    עם חיבור DSN-LESS (רשום במדריכים)
    עכשיו אתה רוצה לעשות אפשרות שמשתמשים שירשמו לא יצטרכו להירשם שוב .
    בשביל זה אתה צריך ללמוד לעבוד עם עוגיות.
    אבל "אל ישר תנסה לרוץ שאתה אפילו לא יודע ללכת"
    קודם תלמד לאט לאט את עקרונות ה ASP והמסד נתונים ואז תתחיל לעבוד עם מסדי נתונים ועוגיות .
    אם קראת את המאמרים  ואת המדאיכים ועדיין לא הבנת אז פנה אליי באיי סי קיו
    166327526

  4. סטימפי הגיב:

    בעיה במסד הנתונים שלי
    סנופ12 מהפורום פה עזר לי הרבה, הסביר לי את כל השלבים בעבודה עם מסד הנתונים, אבל הייתה שגיאה ממש לקראת הסוף, הנה הקוד- זה code.asp הדף אליו נשלח הטופס:


    <%@language="VBSCRIPT" CODEPAGE="1255"%>

    <%
       Set conn = Server.CreateObject("ADODB.Connection")
       Set rs = Server.CreateObject("ADODB.Recordset")    
        
        conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & Server.MapPath("dbMyDB.mdb")
        
        rs.open"SELECT * FROM USERS",conn,3,3
        
        rs.AddNew
        rs("Username") = Request.Form("Username")
        rs("Password") = Request.Form("Password")
        rs("Email") = Request.Form("Email")
        rs("Name") = Request.Form("Name")
        rs("Family") = Request.Form("Family")
        rs("City") = Request.Form("City")
        rs("BirthDay") = Request.Form("BirthDay")
        rs("BirthMonth") = Request.Form("BirthMonth")
        rs("BirthYear") = Request.Form("BirthYear")
        rs("Gender") = Request.Form("Gender")
        rs("zipCode") = Request.Form("zipCode")
        rs("occupation") = Request.Form("occupation")
        rs("ICQ") = Request.Form("ICQ")
        rs("MSN") = Request.Form("MSN")
        rs("agree") = Request.Form("agree")
        rs.Update
        
      
        rs.Close
        Set rs = Nothing
        Conn.Close
        Set Conn = Nothing
        
        Response.Redirect "index.asp"
    %>

    לאחר שרשמנו את זה יצרנו טבלה באקסס עם כל השדות שצריך. לטבלה קראנו USERS… המסד נתונים נקרא MyDB והוא נמצא בתיקייה db שנמצאת ב-WWWROOT… עכשיו מילאתי את הטופס והכל הוא הראה לי שגיאה כזאת:


    þþùâéàú æîï øéöä ùì Microsoft VBScript error ‘800a01ad’

    þþìøëéá ActiveX àéï àôùøåú ìéöåø àåáéé÷è

    /ofer/code.asp, line 5

    כלומר, הבעיה היא באחת השורות האלה:

       Set conn = Server.CreateObject("ADODB.Connection")
       Set rs = Server.CreateObject("ADODB.Recordset")    
        

    עזרה בבקשה ועם אפשר תגובות מהירות…

  5. mrmistory הגיב:

    נסה את זה…
    לפני השורות set conn ו set rs
    לרשום את זה


    Dim conn, rs

  6. אוריקס הגיב:

    המנה


    <%@language="VBSCRIPT" CODEPAGE="1255"%>

    <%
       Set conn = Server.CreateObject("ADODB.Connection")
       Set rs = Server.CreateObject("ADODB.Recordset")    
        
        conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & Server.MapPath("/db/MyDB.mdb")
        
        rs.open "SELECT * FROM USERS",conn,3,3
        
        rs.AddNew
        rs("Username") = Request.Form("Username")
        rs("Password") = Request.Form("Password")
        rs("Email") = Request.Form("Email")
        rs("Name") = Request.Form("Name")
        rs("Family") = Request.Form("Family")
        rs("City") = Request.Form("City")
        rs("BirthDay") = Request.Form("BirthDay")
        rs("BirthMonth") = Request.Form("BirthMonth")
        rs("BirthYear") = Request.Form("BirthYear")
        rs("Gender") = Request.Form("Gender")
        rs("zipCode") = Request.Form("zipCode")
        rs("occupation") = Request.Form("occupation")
        rs("ICQ") = Request.Form("ICQ")
        rs("MSN") = Request.Form("MSN")
        rs("agree") = Request.Form("agree")
        rs.Update
        
      
        rs.Close
        Set rs = Nothing
        Conn.Close
        Set Conn = Nothing
        
        Response.Redirect "index.asp"
    %>

  7. סטימפי הגיב:

    עשיתי ועכשיו השגיאה היא:


    בשורה 6

    þþùâéàú æîï øéöä ùì Microsoft VBScript error ‘800a01ad’

    þþìøëéá ActiveX àéï àôùøåú ìéöåø àåáéé÷è

    /ofer/code.asp, line 6

  8. סטימפי הגיב:

    עשיתי את מה שאמרת אוריקס ו…


    þþùâéàú æîï øéöä ùì Microsoft VBScript error ‘800a01ad’

    þþìøëéá ActiveX àéï àôùøåú ìéöåø àåáéé÷è

    /ofer/code.asp, line 6

  9. ניר טייב הגיב:

    השגיאה היא של VBS ולכן אין קשר
    למסד הנתונים
    נסה שנייה לשים  את זה:

    <%@ language="VBSCRIPT" CODEPAGE=1255%>

  10. סטימפי הגיב:

    נו זה מופיע בקוד. ועדיין השגיאה
    בשורה 6…

  11. ניר טייב הגיב:

    שנה את זה למה שכתבתי
    הוספתי רווח והורדתי מרכאות מה-CODEPAGE

    ואם זה לא עובד (אם יש לזה קשר בכלל) אז לא נוכל לעשות הרבה כי אנו לא יודעים לקרוא ג’יבריש (מישהו יודע?!)

  12. סטימפי הגיב:

    עשיתי את זה והבעיה היא בשורה 6 100%
    תנסה לבדוק בשורה 6 מה הבעיה.

  13. סטימפי הגיב:

    נו בבקשה מה כבר אני מבקש…
    לבדוק טעות. זה לא שביקשתי ממכם לבנות לי אתר. וזה מאוד חשוב.

  14. ניר טייב הגיב:

    טוב אז ככה…
    פורום זה לא צ’אט

    נסה להפעיל רק את השורה הזו:


    dim oConn
    SET oConn = Server.CreateObject("ADODB.Connection")

  15. סטימפי הגיב:

    אני אתן לכם בדיוק את הקוד, הנה:
    <

    %@language="VBSCRIPT" CODEPAGE="1255"%>

    <%
       Dim conn, rs
       Set conn = Server.CreateObject("ADODB.Connection")
       Set rs = Server.CreateObject("ADODB.Recordset")    
        
        conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & Server.MapPath("dbMyDB.mdb")
        
        rs.open"SELECT * FROM USERS",conn,3,3
        
        rs.AddNew
        rs("Username") = Request.Form("Username")
        rs("Password") = Request.Form("Password")
        rs("Email") = Request.Form("Email")
        rs("Name") = Request.Form("Name")
        rs("Family") = Request.Form("Family")
        rs("City") = Request.Form("City")
        rs("BirthDay") = Request.Form("BirthDay")
        rs("BirthMonth") = Request.Form("BirthMonth")
        rs("BirthYear") = Request.Form("BirthYear")
        rs("Gender") = Request.Form("Gender")
        rs("zipCode") = Request.Form("zipCode")
        rs("occupation") = Request.Form("occupation")
        rs("ICQ") = Request.Form("ICQ")
        rs("MSN") = Request.Form("MSN")
        rs("agree") = Request.Form("agree")
        rs.Update
        
      
        rs.Close
        Set rs = Nothing
        Conn.Close
        Set Conn = Nothing
        
        Response.Redirect "index.asp"
    %>

    עכשיו עם הקוד הזה זה אומר לי שגיאה בשורה 6

  16. ניר טייב הגיב:

    שרשור שלם בשביל רווח קטן
    כתבת כך:

    rs.open"SELECT * FROM USERS",conn,3,3

    במקום כך:

    rs.open "SELECT * FROM USERS",conn,3,3

  17. סטימפי הגיב:

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

    מה יכולה להיות הסיבה לכך?

    ועוד דבר, כדי לוודא שזה באמת פועל זה אמור להפנות אותי לדף הראשי?(index.htm)

  18. סטימפי הגיב:

    בעצם לא תיקנת… זה עדיין מציג לי
    שגיאה…. תנחש באיזה שורה?

    6…

  19. ניר טייב הגיב:

    איזו שגיאה?
    ונסה כך

    rs.open "SELECT * FROM [USERS]",conn,3,3


    נראה לי ש-USERS זו מילה שמורה

  20. סטימפי הגיב:

    עשיתי את מה שאמרת ועכשיו
    השגיאה עברה ל-5…

  21. סטימפי הגיב:

    הנה כל הקוד כל התיקונים…


    <%@ language="VBSCRIPT" CODEPAGE=1255 %>

    <%
       Set conn = Server.CreateObject("ADODB.Connection")
       Set rs = Server.CreateObject("ADODB.Recordset")    
        
        conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & Server.MapPath("/db/MyDB.mdb")
      
        rs.open "SELECT * FROM [USERS]",conn,3,3
        
        rs.AddNew
        rs("Username") = Request.Form("Username")
        rs("Password") = Request.Form("Password")
        rs("Email") = Request.Form("Email")
        rs("Name") = Request.Form("Name")
        rs("Family") = Request.Form("Family")
        rs("City") = Request.Form("City")
        rs("BirthDay") = Request.Form("BirthDay")
        rs("BirthMonth") = Request.Form("BirthMonth")
        rs("BirthYear") = Request.Form("BirthYear")
        rs("Gender") = Request.Form("Gender")
        rs("zipCode") = Request.Form("zipCode")
        rs("occupation") = Request.Form("occupation")
        rs("ICQ") = Request.Form("ICQ")
        rs("MSN") = Request.Form("MSN")
        rs("agree") = Request.Form("agree")
        rs.Update
        
      
        rs.Close
        Set rs = Nothing
        Conn.Close
        Set Conn = Nothing
        
        Response.Redirect "index.asp"
    %>

  22. סטימפי הגיב:

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

    וזה חשוב מאוד בשבילי, זה לבגרות.. אז בבקשה תתרמו מעצמכם

    קצת יותר. תודה…

  23. ניר טייב הגיב:

    גאונים יש פה בשפע
    אבל בלי השגיאה לא נוכל לעזור לך

  24. סטימפי הגיב:

    אבל אני רושם לך מה השגיאה
    באיזה שורה, לא יודע למה זה ג’יבריש

  25. ניר טייב הגיב:

    תעשה קידוד לעמוד או
    שתשנה את שפת המחשב שלך לאנגלית (דרך לוח בקרה)

  26. סטימפי הגיב:

    אתה יודע מה… אתה יכול לעשות
    לי טובה ולנסות את הקוד הזה אצלך במחשב?

    כי אני יושב שעות על גבי שעות מנסה להבין מה השגיאה

    ולא הולך וגם השגיאה היא בג’יבריש… אני מיואש……

  27. ניר טייב הגיב:

    שמע
    תבנה שוב את הקוד רק שהפעם תעשה חלק קטן ותשמור וכך תמשים עד שתגיע לבעייה

    ונסה

    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & Server.MapPath("/db/MyDB.mdb") & ";"

  28. סטימפי הגיב:

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


    ofer/code.asp, line 8

    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & Server.MapPath("/db/MyDB.mdb") & ";"
    —————————————————————^

  29. ניר טייב הגיב:

    שמע.
    תציג לנו גם את השגיאה או לפחות את קוד השגיאה כדי שנוכל לדעת מהי לפחות
    וקרוב לודאי שהקובץ לא מצא בתיקייה המוגדרת

  30. סטימפי הגיב:

    בשביל דבר כזה קטן אני מסתבך


    <%@ language="VBSCRIPT" CODEPAGE=1255%>

    <%
        Set conn = Server.CreateObject("ADODB.Connection")
        Set rs = Server.CreateObject("ADODB.Recordset")
        
        
        conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & Server.MapPath("/db/MyDB.mdb")  

        rs.open "SELECT * FROM USERS",conn,3,3  
        
        rs.AddNew
        rs("Username") = Request.Form("Username")
        rs("Password") = Request.Form("Password")
        rs("Email") = Request.Form("Email")
        rs("Name") = Request.Form("Name")
        rs("Family") = Request.Form("Family")
        rs("City") = Request.Form("City")
        rs("BirthDay") = Request.Form("BirthDay")
        rs("BirthMonth") = Request.Form("BirthMonth")
        rs("BirthYear") = Request.Form("BirthYear")
        rs("Gender") = Request.Form("Gender")
        rs("zipCode") = Request.Form("zipCode")
        rs("occupation") = Request.Form("occupation")
        rs("ICQ") = Request.Form("ICQ")
        rs("MSN") = Request.Form("MSN")
        rs("agree") = Request.Form("agree")
        rs.Update
        
      
        rs.Close
        Set rs = Nothing
        Conn.Close
        Set Conn = Nothing
        
        Response.Redirect "index.asp"
    %>

    כל מי שחושב שהוא יודע שיעזור ועכשיו. כל התותחים… ראיתי אתכם מטפלים בבעיות הרבה יותר גדולות…

  31. BuildHome הגיב:

    ראשית כל, תשרשר…שנית, נסה את הקוד
    הבא:

    <%@language="VBSCRIPT" CODEPAGE="1255"%>

    <%
       Set conn = Server.CreateObject("ADODB.Connection")
       Set rs = Server.CreateObject("ADODB.Recordset")    
        
        conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & Server.MapPath("db/MyDB.mdb")
        
        rs.open "SELECT * FROM USERS",conn,2,3
        
        rs.AddNew
        rs("Username") = Request.Form("Username")
        rs("Password") = Request.Form("Password")
        rs("Email") = Request.Form("Email")
        rs("Name") = Request.Form("Name")
        rs("Family") = Request.Form("Family")
        rs("City") = Request.Form("City")
        rs("BirthDay") = Request.Form("BirthDay")
        rs("BirthMonth") = Request.Form("BirthMonth")
        rs("BirthYear") = Request.Form("BirthYear")
        rs("Gender") = Request.Form("Gender")
        rs("zipCode") = Request.Form("zipCode")
        rs("occupation") = Request.Form("occupation")
        rs("ICQ") = Request.Form("ICQ")
        rs("MSN") = Request.Form("MSN")
        rs("agree") = Request.Form("agree")
        rs.Update
        
      
        rs.Close
        Set rs = Nothing
        Conn.Close
        Set Conn = Nothing
        
        Response.Redirect "index.asp"
    %>

  32. סטימפי הגיב:

    אבל רואים ג’יבריש!!!
    איפה בלוח הבקרה אני משנה?

  33. ניר טייב הגיב:

    יש לי לא בשימוש
    ואם הייתי רוצה לפרסם אותו הייתי מפרסם אותו בפרופיל שלי !
    מצטער אני לא אוהב לעזור בקו הפרטי.
    יש לך כאן קהילה שלמה

  34. BuildHome הגיב:

    ד"א, נסה לעלות את הקוד לשרת חינמי
    ואז תראה את השגיאה באנגלית.

  35. ניר טייב הגיב:

    כך (באנגלית)


    controll panell –> Regional and Language Option

    שם כבר תמצא את תיבת השפה

  36. סטימפי הגיב:

    אין לי אפשרות כזאת בכלל
    אתה מתכוון בלוח הבקרה?

    אין לי…

  37. סטימפי הגיב:

    זה סתם יבזבז לי זמן.
    מישהו יכול לתת לי קוד חדש, שיפעל בטוח?

    אני יודע שאתם לא מביאים קודים אבל זה לאנשים עצלנים, אני יושב כבר שעות ולא מצליח…….

    בשיטת dsn-less

  38. ניר טייב הגיב:

    זה עם מעין אייקון של כדור ארץ
    וחפש את קוד השגיאה בגוגל

  39. ניר טייב הגיב:

    זה יהיה בזבוז זמן ולחכות לאנשים
    שיבינו ג’יבריש.

  40. Yoava333 הגיב:

    לי קרה משהו דומה ואז חבר שלי…
    תיקן את זה אני אתן לך הוראות מדוייקות:
    1.כנס לדף תרשום את הקוד הזה


    <!–#include file="adovbs.inc"–>

    עכשיו תצור קובץ TXT ותעתיק את הקובץ הבא:


    <%
    ‘——————————————————————–
    ‘ Microsoft ADO

    ‘ (c) 1996 Microsoft Corporation.  All Rights Reserved.



    ‘ ADO constants include file for VBScript

    ‘——————————————————————–

    ‘—- CursorTypeEnum Values —-
    Const adOpenForwardOnly = 0
    Const adOpenKeyset = 1
    Const adOpenDynamic = 2
    Const adOpenStatic = 3

    ‘—- CursorOptionEnum Values —-
    Const adHoldRecords = &H00000100
    Const adMovePrevious = &H00000200
    Const adAddNew = &H01000400
    Const adDelete = &H01000800
    Const adUpdate = &H01008000
    Const adBookmark = &H00002000
    Const adApproxPosition = &H00004000
    Const adUpdateBatch = &H00010000
    Const adResync = &H00020000
    Const adNotify = &H00040000

    ‘—- LockTypeEnum Values —-
    Const adLockReadOnly = 1
    Const adLockPessimistic = 2
    Const adLockOptimistic = 3
    Const adLockBatchOptimistic = 4

    ‘—- ExecuteOptionEnum Values —-
    Const adRunAsync = &H00000010

    ‘—- ObjectStateEnum Values —-
    Const adStateClosed = &H00000000
    Const adStateOpen = &H00000001
    Const adStateConnecting = &H00000002
    Const adStateExecuting = &H00000004

    ‘—- CursorLocationEnum Values —-
    Const adUseServer = 2
    Const adUseClient = 3

    ‘—- DataTypeEnum Values —-
    Const adEmpty = 0
    Const adTinyInt = 16
    Const adSmallInt = 2
    Const adInteger = 3
    Const adBigInt = 20
    Const adUnsignedTinyInt = 17
    Const adUnsignedSmallInt = 18
    Const adUnsignedInt = 19
    Const adUnsignedBigInt = 21
    Const adSingle = 4
    Const adDouble = 5
    Const adCurrency = 6
    Const adDecimal = 14
    Const adNumeric = 131
    Const adBoolean = 11
    Const adError = 10
    Const adUserDefined = 132
    Const adVariant = 12
    Const adIDispatch = 9
    Const adIUnknown = 13
    Const adGUID = 72
    Const adDate = 7
    Const adDBDate = 133
    Const adDBTime = 134
    Const adDBTimeStamp = 135
    Const adBSTR = 8
    Const adChar = 129
    Const adVarChar = 200
    Const adLongVarChar = 201
    Const adWChar = 130
    Const adVarWChar = 202
    Const adLongVarWChar = 203
    Const adBinary = 128
    Const adVarBinary = 204
    Const adLongVarBinary = 205

    המשך בהודעה הבאה….

  41. Yoava333 הגיב:

    והקוד


    ‘—- FieldAttributeEnum Values —-
    Const adFldMayDefer = &H00000002
    Const adFldUpdatable = &H00000004
    Const adFldUnknownUpdatable = &H00000008
    Const adFldFixed = &H00000010
    Const adFldIsNullable = &H00000020
    Const adFldMayBeNull = &H00000040
    Const adFldLong = &H00000080
    Const adFldRowID = &H00000100
    Const adFldRowVersion = &H00000200
    Const adFldCacheDeferred = &H00001000

    ‘—- EditModeEnum Values —-
    Const adEditNone = &H0000
    Const adEditInProgress = &H0001
    Const adEditAdd = &H0002
    Const adEditDelete = &H0004

    ‘—- RecordStatusEnum Values —-
    Const adRecOK = &H0000000
    Const adRecNew = &H0000001
    Const adRecModified = &H0000002
    Const adRecDeleted = &H0000004
    Const adRecUnmodified = &H0000008
    Const adRecInvalid = &H0000010
    Const adRecMultipleChanges = &H0000040
    Const adRecPendingChanges = &H0000080
    Const adRecCanceled = &H0000100
    Const adRecCantRelease = &H0000400
    Const adRecConcurrencyViolation = &H0000800
    Const adRecIntegrityViolation = &H0001000
    Const adRecMaxChangesExceeded = &H0002000
    Const adRecObjectOpen = &H0004000
    Const adRecOutOfMemory = &H0008000
    Const adRecPermissionDenied = &H0010000
    Const adRecSchemaViolation = &H0020000
    Const adRecDBDeleted = &H0040000
    ‘—- GetRowsOptionEnum Values —-
    Const adGetRowsRest = -1

    ‘—- PositionEnum Values —-
    Const adPosUnknown = -1
    Const adPosBOF = -2
    Const adPosEOF = -3

    ‘—- enum Values —-
    Const adBookmarkCurrent = 0
    Const adBookmarkFirst = 1
    Const adBookmarkLast = 2

    ‘—- MarshalOptionsEnum Values —-
    Const adMarshalAll = 0
    Const adMarshalModifiedOnly = 1

    ‘—- AffectEnum Values —-
    Const adAffectCurrent = 1
    Const adAffectGroup = 2
    Const adAffectAll = 3

    ‘—- FilterGroupEnum Values —-
    Const adFilterNone = 0
    Const adFilterPendingRecords = 1
    Const adFilterAffectedRecords = 2
    Const adFilterFetchedRecords = 3
    Const adFilterPredicate = 4

    ‘—- SearchDirection Values —-
    Const adSearchForward = 1
    Const adSearchBackward = -1

    ‘—- ConnectPromptEnum Values —-
    Const adPromptAlways = 1
    Const adPromptComplete = 2
    Const adPromptCompleteRequired = 3
    Const adPromptNever = 4

    ‘—- ConnectModeEnum Values —-
    Const adModeUnknown = 0
    Const adModeRead = 1
    Const adModeWrite = 2
    Const adModeReadWrite = 3
    Const adModeShareDenyRead = 4
    Const adModeShareDenyWrite = 8
    Const adModeShareExclusive = &Hc
    Const adModeShareDenyNone = &H10

  42. Yoava333 הגיב:

    המשך

    ‘—- IsolationLevelEnum Values —-
    Const adXactUnspecified = &Hffffffff
    Const adXactChaos = &H00000010
    Const adXactReadUncommitted = &H00000100
    Const adXactBrowse = &H00000100
    Const adXactCursorStability = &H00001000
    Const adXactReadCommitted = &H00001000
    Const adXactRepeatableRead = &H00010000
    Const adXactSerializable = &H00100000
    Const adXactIsolated = &H00100000

    ‘—- XactAttributeEnum Values —-
    Const adXactCommitRetaining = &H00020000
    Const adXactAbortRetaining = &H00040000

    ‘—- PropertyAttributesEnum Values —-
    Const adPropNotSupported = &H0000
    Const adPropRequired = &H0001
    Const adPropOptional = &H0002
    Const adPropRead = &H0200
    Const adPropWrite = &H0400

    ‘—- ErrorValueEnum Values —-
    Const adErrInvalidArgument = &Hbb9
    Const adErrNoCurrentRecord = &Hbcd
    Const adErrIllegalOperation = &Hc93
    Const adErrInTransaction = &Hcae
    Const adErrFeatureNotAvailable = &Hcb3
    Const adErrItemNotFound = &Hcc1
    Const adErrObjectInCollection = &Hd27
    Const adErrObjectNotSet = &Hd5c
    Const adErrDataConversion = &Hd5d
    Const adErrObjectClosed = &He78
    Const adErrObjectOpen = &He79
    Const adErrProviderNotFound = &He7a
    Const adErrBoundToCommand = &He7b
    Const adErrInvalidParamInfo = &He7c
    Const adErrInvalidConnection = &He7d
    Const adErrStillExecuting = &He7f
    Const adErrStillConnecting = &He81

    ‘—- ParameterAttributesEnum Values —-
    Const adParamSigned = &H0010
    Const adParamNullable = &H0040
    Const adParamLong = &H0080

    ‘—- ParameterDirectionEnum Values —-
    Const adParamUnknown = &H0000
    Const adParamInput = &H0001
    Const adParamOutput = &H0002
    Const adParamInputOutput = &H0003
    Const adParamReturnValue = &H0004

    ‘—- CommandTypeEnum Values —-
    Const adCmdUnknown = &H0008
    Const adCmdText = &H0001
    Const adCmdTable = &H0002
    Const adCmdStoredProc = &H0004

    ‘—- SchemaEnum Values —-
    Const adSchemaProviderSpecific = -1
    Const adSchemaAsserts = 0
    Const adSchemaCatalogs = 1
    Const adSchemaCharacterSets = 2
    Const adSchemaCollations = 3
    Const adSchemaColumns = 4
    Const adSchemaCheckConstraints = 5
    Const adSchemaConstraintColumnUsage = 6
    Const adSchemaConstraintTableUsage = 7
    Const adSchemaKeyColumnUsage = 8
    Const adSchemaReferentialContraints = 9
    Const adSchemaTableConstraints = 10
    Const adSchemaColumnsDomainUsage = 11
    Const adSchemaIndexes = 12
    Const adSchemaColumnPrivileges = 13
    Const adSchemaTablePrivileges = 14
    Const adSchemaUsagePrivileges = 15
    Const adSchemaProcedures = 16
    Const adSchemaSchemata = 17
    Const adSchemaSQLLanguages = 18
    Const adSchemaStatistics = 19
    Const adSchemaTables = 20
    Const adSchemaTranslations = 21
    Const adSchemaProviderTypes = 22
    Const adSchemaViews = 23
    Const adSchemaViewColumnUsage = 24
    Const adSchemaViewTableUsage = 25
    Const adSchemaProcedureParameters = 26
    Const adSchemaForeignKeys = 27
    Const adSchemaPrimaryKeys = 28
    Const adSchemaProcedureColumns = 29
    %>

  43. Yoava333 הגיב:

    סיום
    את כל הקוד הארוך שנתתי לך אתה שומר כ-adovbs.inc

    ואני מקווה שעזרתי
    Yoava333

  44. Yoava333 הגיב:

    אין לי מושג אבל הוא אמור לתקן לך…
    זה לא יכול להזיק וסליחה שהצפתי לא ראיתי שאפשר לצרף קובץ
    תשנה את הסיומת לTXT

  45. סטימפי הגיב:

    איפה אני שם את זה?
    ומה זה מתקן?

    את השגיאה או את הג’יבריש… בטח את הג’יבריש…….

  46. Yoava333 הגיב:

    אתה שם את זה באותה של הקובץ שלך
    וזה מתקן את הבעיה

  47. סטימפי הגיב:

    ניר אתה לא יכול לתת לי את הקוד
    שפועל? למה אני צריך להשתגע שעות בשביל טעות מסריחה?

    בבקשה אני מתחנן כבר נשבר לי מזה… אני רוצה להתקדם באתר

    שלי…

  48. ניר טייב הגיב:

    ADOVBS.INC
    יוצר לך קבועים של כל הפרמטרים המספריים הקיימים באובייקטי ADO
    http://www.tapuz.co.il/tapuzforum/main/ForumFAQAnswer.asp?id=130&QID=1132

    לא יודע מאיפה זה נלקח אבל אני משער שזה נכון (אחרת לא היו מכניסים את זה ל-FAQ )

  49. ניר טייב הגיב:

    לא! כי אני בעצמי לא יודע מהו הקוד
    שפועל! לכולם זה קרה, קורה ויקרה
    יש דרך אחרת אבל לבצע את הקוד שלך
    דרך שאילתת SQL

  50. סטימפי הגיב:

    יואב תותח אתה זה פועל.. ניר עכשיו
    אולי תליח לעזור לי……..

    הקוד:


    <%@ language="VBSCRIPT" CODEPAGE=1255 %>

    <%
       Set conn = Server.CreateObject("ADODB.Connection")
       Set rs = Server.CreateObject("ADODB.Recordset")    
        
       conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & Server.MapPath("/db/MyDB.mdb") & ";"
      
      
        rs.open "SELECT * FROM [USERS]",conn,3,3
        
        rs.AddNew
        rs("Username") = Request.Form("Username")
        rs("Password") = Request.Form("Password")
        rs("Email") = Request.Form("Email")
        rs("Name") = Request.Form("Name")
        rs("Family") = Request.Form("Family")
        rs("City") = Request.Form("City")
        rs("BirthDay") = Request.Form("BirthDay")
        rs("BirthMonth") = Request.Form("BirthMonth")
        rs("BirthYear") = Request.Form("BirthYear")
        rs("Gender") = Request.Form("Gender")
        rs("zipCode") = Request.Form("zipCode")
        rs("occupation") = Request.Form("occupation")
        rs("ICQ") = Request.Form("ICQ")
        rs("MSN") = Request.Form("MSN")
        rs("agree") = Request.Form("agree")
        rs.Update
        
      
        rs.Close
        Set rs = Nothing
        Conn.Close
        Set Conn = Nothing
        
        Response.Redirect "index.asp"
    %>

    השגיאה:


    Active Server Pages error ‘ASP 0140’

    Page Command Out Of Order

    /ofer/code.asp, line 270

    The @ command must be the first command within the Active Server Page.

  51. סטימפי הגיב:

    זה נחשב שורב 270 בגלל הקוד
    האורך שיואב הביא לי….

  52. BuildHome הגיב:

    הכללת את העמוד בשורה הראשונה ?
    השורה

    <%@ language="VBSCRIPT" CODEPAGE=1255 %>

    חייבת להיות ראשונה בעמוד, אחרת הוא לא יעבוד.
    את הכללת הקובץ שאמרו לך תבצע לאחר שורה זו.

  53. סטימפי הגיב:

    עשיתי את זה…
    וזה נהיה לי ג’יבריש עוד פעם אז החזרתי.

  54. סטימפי הגיב:

    SQL? תסביר…
    מה הכוונה יש רק דרך אחת לבצע את הקוד?

  55. סטימפי הגיב:

    נו בחייכם תנסו לעזור
    בבקשה……………..

  56. סטימפי הגיב:

    חחח עכשיו כשאני לוחץ שלח
    אז הוא מציג לי את כל הקוד……..

    זה התקדמות לדעתכם? חחח

    הנה שוב הקוד…


    <%@ language="VBSCRIPT" CODEPAGE="1255" %>

    <%
       Set conn = Server.CreateObject("ADODB.Connection")
       Set rs = Server.CreateObject("ADODB.Recordset")    
        
       conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & Server.MapPath("/db/MyDB.mdb") & ";"
      
        rs.open "SELECT * FROM [USERS]",conn,3,3
        
        rs.AddNew
        rs("Username") = Request.Form("Username")
        rs("Password") = Request.Form("Password")
        rs("Email") = Request.Form("Email")
        rs("Name") = Request.Form("Name")
        rs("Family") = Request.Form("Family")
        rs("City") = Request.Form("City")
        rs("BirthDay") = Request.Form("BirthDay")
        rs("BirthMonth") = Request.Form("BirthMonth")
        rs("BirthYear") = Request.Form("BirthYear")
        rs("Gender") = Request.Form("Gender")
        rs("zipCode") = Request.Form("zipCode")
        rs("occupation") = Request.Form("occupation")
        rs("ICQ") = Request.Form("ICQ")
        rs("MSN") = Request.Form("MSN")
        rs("agree") = Request.Form("agree")
        rs.Update
        
      
        rs.Close
        Set rs = Nothing
        Conn.Close
        Set Conn = Nothing
        
        Response.Redirect "index.asp"
    %>

  57. MasterMind הגיב:

    סטימפי אתה אמרת לי ששינת במסד
    את ה PASSWORD ל PASS  אולי זו הטעות   תנסה !

  58. סטימפי הגיב:

    או סוף ,סוף הגעת…
    תראה איזה שירשור ארוך חחח

    טוב בא נדבר ב-ICQ…

  59. סטימפי הגיב:

    תקשיבו עכשיו זה לא עושה לי
    שגיאה אלא זה כשאני לוחץ על השלח בטופס הוא מעביר אותי

    לדף HTML שבו מופיע כל הקוד…….. מה לדעתכם הטעות?

  60. אוריקס הגיב:

    עשה כך:


    Click Start, point to Settings, click Control Panel, and then double-click Services.
    Click IIS Administrative Service, and then click Stop.
    When a dialog box appears confirming that you want to stop other child services, click OK.
    After the services stop, start the IIS Administrative service.
    After the IIS Administrative service starts, click World Wide Web Publishing Service, and then click Start.

  61. BuildHome הגיב:

    אולי אתה לא יודע מה אתה עושה
    וזה מה שקורה.
    תעלה הכל לאכסון חינמי (כגון DomainDlx), תראה את השגיאה באנגלית ותגמור עם הסיפור במקום להתלונן ולהתלונן.

    אתה סתם מושך את השרשור שלך ללא סיבה.

  62. סטימפי הגיב:

    דבר ראשון, תודה.
    דבר שני, קצת הסברים …

    מה זה כל קובץ?

    ואיפה להריץ? מה להריץ… אני מבולבל.

  63. הנה….
    הנה….
    <%@ language="VBSCRIPT" CODEPAGE="1255" %>

    <form> ………………..
    Here you need to put your form
    </form

    bla bla bla

    <%
       Set conn = Server.CreateObject("ADODB.Connection")
       Set rs = Server.CreateObject("ADODB.Recordset")    
        
       conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & Server.MapPath("/db/MyDB.mdb") & ";"
      
        rs.open "SELECT * FROM [USERS]",conn,3,3
        
        rs.AddNew
        rs("Username") = Request.Form("Username")
        rs("Password") = Request.Form("Password")
        rs("Email") = Request.Form("Email")
        rs("Name") = Request.Form("Name")
        rs("Family") = Request.Form("Family")
        rs("City") = Request.Form("City")
        rs("BirthDay") = Request.Form("BirthDay")
        rs("BirthMonth") = Request.Form("BirthMonth")
        rs("BirthYear") = Request.Form("BirthYear")
        rs("Gender") = Request.Form("Gender")
        rs("zipCode") = Request.Form("zipCode")
        rs("occupation") = Request.Form("occupation")
        rs("ICQ") = Request.Form("ICQ")
        rs("MSN") = Request.Form("MSN")
        rs("agree") = Request.Form("agree")
        rs.Update
        
      
        rs.Close
        Set rs = Nothing
        Conn.Close
        Set Conn = Nothing
        
        Response.Redirect "index.asp"
    %>

    הדגש הוא שהשורה:
    <%@ language="VBSCRIPT" CODEPAGE="1255" %>

    תהיה הראשונה בדף…לא שתהיה לפני קוד ה- ASP….! השורה הראשונה בדף…אח"כ תרשום מה שאתה רוצה…. <ואם לא הבנת מה לעשות, תצרף את כל הדף הנ"ל…>

  64. MasterMind הגיב:

    אם אני לא טועה יש לו 98
    ז"א  PWS  וניסיתי לשנות את השפה וזה לא פועל  איך משנים את שפת הממשק !
    ולסטימפי אני לא יכול להיכנס לאיי סי כי אני אצל חברה שלי עכשיו !!
    מצטער  בכל מקרה  נדבר מחר  ותנסה מה שאמרתי לך !

  65. אוריקס הגיב:

    שרשר שאלותיך
    הודעות לא משורשות ימחקו.

  66. סטימפי הגיב:

    תקשיב
    הרגע אמרתי שהוא לא מציג שגיאה אלא הוא מציג לי את כל הקוד כשאני לוחץ על שלח כל הקוד הזה שכתבתי הוא מציג לי אותו בדף html…  והוא לא שולח את זה למסד הנתונים…

  67. סטימפי הגיב:

    מצידי תמחק את כל החלק הראשון
    של השירשור כל עוד זה יהיה
    שמור אצלך איפושהוא.

  68. sirob הגיב:

    הקובץ בודק מה מותקן ומה לא, על השרת
    לדעתי הפקודה

       Set rs = Server.CreateObject("ADODB.Recordset")    

    לא עובדת כי ADODB.Recordset לא מותקן בכלל. הפונקציה הזו בודקת מה מותקן ומה לא, בין השאר גם את ADODB.Recordset.

    זה יצמצם את האפשרויות.

  69. אני חייב להוסיף לדברים של אוריקס!
    סטימפי, הפורום לא נועד כדי שרק אתה תצליח לפתור את הבעיות שלך, אלא שכולם ילמדו מהטעויות של אחרים. לכן, אם תעבור לדבר עם מישהו ב- ICQ אומנם תקבל פתרון, אך אנשים אחרים יכולים לשאול את אותה שוב בעוד שבוע, ושוב נעבור את אותו שרשור ארוך…
    יש חשיבות למטרות נוספות של הפורום.

  70. sirob הגיב:

    פרטים על השגיאה:

    The use of CreateObject to create a COM component in an Active Server Pages (ASP) page may result in the following error:

    Microsoft VBScript runtime error ‘800a01ad’
    ActiveX component can’t create object

    This error is usually generated because dynamic-link libraries (DLLs) on which the COM object depends are one of the following:
    Missing from the system
    Not in the system path
    Not accessible by the system because of security settings

  71. אוריקס הגיב:

    אנחנו לא יכולים לעזור לך ככה.
    כנס למדריך ASP ותתחיל ללמוד.

  72. סטימפי הגיב:

    טוב בסדר נראה לי סיימתי להיום
    מחר אני אדבר עם סנופ באיי סי קיו נראה מה אפשר לעשות. תודה לכל מי שניסה לעזור ותרם לשירשור הארוך הזה, למרות שאני יודע שכל הקרדיט מגיע לי . מנהלים לא למחוק חלקים מהשירשור במחשבה שנייה, בסדר? אני מתנצל על כך שיצרתי כזה שירשור ארוך אבל באמת זאת הייתה בעיה גדולה. לילה טוב(לא שאני הולך לישון עכשיו)….

  73. ניר טייב הגיב:

    אז ככה…
    מהי הכתובת היחסית מהקובץ code.asp של המסד?

שלח תשובה