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

המנה


<%@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"
%>

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

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

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

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

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

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

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

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

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

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

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

ונסה

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

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

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

לי קרה משהו דומה ואז חבר שלי…
תיקן את זה אני אתן לך הוראות מדוייקות:
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

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

והקוד


'—- 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

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

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

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

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

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

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

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

שמחתי לעזור

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

קובץ מתוקן:

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

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

הנה….
הנה….
<%@ 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….! השורה הראשונה בדף…אח"כ תרשום מה שאתה רוצה…. <ואם לא הבנת מה לעשות, תצרף את כל הדף הנ"ל…>

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

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

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

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