visitor_id=ריק

haflo1

New member
visitor_id=ריק

dim conn set conn=Server.CreateObject("ADODB.connection") conn.Open "bookstore" sql="UPDATE tvisitors SET 'visitor_name='"&amp; visitor_name sql=sql &amp; "',email='" &amp; email sql=sql &amp; "',address='" &amp; address sql=sql &amp; "',id_num='" &amp; id_num sql=sql &amp; "',phone='" &amp; phone sql=sql &amp; "',Category_Id='" &amp; Category_Id sql=sql &amp; " where 'visitor_id'=" &amp; session("visitor_id")%> <%Response.Write sql%> UPDATE tvisitors SET 'visitor_name='1',email='[email protected]',address='1',id_num='1',phone='1',Category_Id='1 where 'visitor_id'=​
אני מצמיד לשמאל לא מבין למה מגיע אליכם צמוד לימין אני לוחץ העתקה לקליפבורד לא מבחין בכלום
 

זהר פלד

New member
הפעם דוקא הצלחת, אבל...

איפה השאלה? חוצמזה שיש לך טעות ב SQL, השדה ב WHERE לא אמור להיות מוקף בגרשים, רק הערך:
sql="UPDATE tvisitors SET visitor_name='" visitor_name sql=sql & "',email='" & email sql=sql & "',address='" & address sql=sql & "',id_num='" & id_num sql=sql & "',phone='" & phone sql=sql & "',Category_Id='" & Category_Id sql=sql & " where visitor_id'=" & session("visitor_id") & "'"​
 

haflo1

New member
מספר מזהה למבקר ריק

dim conn set conn=Server.CreateObject("ADODB.connection") conn.Open "bookstore" sql="UPDATE tvisitors SET 'visitor_name='"& visitor_name sql=sql & "',email='" & email sql=sql & "',address='" & address sql=sql & "',id_num='" & id_num sql=sql & "',phone='" & phone sql=sql & "',Category_Id='" & Category_Id sql=sql & " where 'visitor_id'=" & session("visitor_id")%> <%Response.Write sql%> ---------------------------תוצאת ההרצה---------------- UPDATE tvisitors SET 'visitor_name='1',email='[email protected]',address='1',id_num='1',phone='1',Category_Id='1 where 'visitor_id'=​
 

haflo1

New member
מספר מזהה

ריבון העולמים אנילא מצליח לקבל מספר מזהה עבור המבקר שמספרו:visitor_id אם אתם זקוקים ל-global.asa בבקשה.זה המשך להודעה הקודמת. בבקשה תנו תשובה ביותר משתי מילים .
Sub Session_OnStart() Application.Lock Application("visitors")=Application("visitors")+1 Application("active_visitors")=Application("active_visitors")+1 Application.unlock session(visitor_id)=Request.Cookies(visitor_id)' dim conn set conn=Server.CreateObject("ADODB.connection") conn.Open"bookstore" if session("visitor_id")="" then ' New Visitor conn.Execute "INSERT INTO tvisitors (visitor_id) VALUES(" & session.SessionID & ",1)" session(visitor_id)=session.SessionID Response.Cookies(visitor_id)=session.SessionID Response.Cookies(visitor_id).expires=Now()+ 365 Else dim rs,sql Set rs=Server.CreateObject("ADODB.recordset") sql = "select * from tvisitors where visitor_id=" & Session("visitor_id") rs.Open sql, conn Session("visitor_name")=rs("visitor_name") Session("email")=rs("email") 'Session("address")=rs("address") 'Session("phone")=rs("phone") rs.Close set rs=nothing End if conn.Close set con=nothing End Sub sub Session_OnEnd Application.Lock Application("active_visitors")=Application("active_visitors")-1 Application.unlock dim conn set conn=Server.CreateObject("ADODB.connection") conn.open "bookstore" conn.Execute "UPDATE tvisitors set exit_time=Now() WHERE visitor_id=" & session(visitor_id) conn.close set con=nothing end sub sub Application_onStart Application(visitor_id)=0 Application("active_visitors")=0 End sub sub Application_OnEnd end sub 'EventName Description' sub Session_OnStart Application_OnStart 'Runs the first time a user runs any page in your applicatio' if session("username")="" then Response.End Response.Write"Hello new user,"& session("usernam") End sub 'Runs when a user's session times out or quits your application' 'Runs once when the first page of your application is run for the first time by any user' 'Runs once when the web server shuts down' </SCRIPT>​
 
1. שרשר שאלותיך ../images/Emo70.gif

2. תקרא את המאמר שבחתימה שלי. 3. איפה איתחלת את המשתנה?
 

זהר פלד

New member
4, קרא גם את התשובות...

יש לך בעיה קשה של גרשים מיותרים ב SQL: הקוד שלך:
sql="UPDATE tvisitors SET 'visitor_name='"& visitor_name sql=sql & "',email='" & email sql=sql & "',address='" & address sql=sql & "',id_num='" & id_num sql=sql & "',phone='" & phone sql=sql & "',Category_Id='" & Category_Id sql=sql & " where 'visitor_id'=" & session("visitor_id")​
הקוד הנכון:
sql="UPDATE tvisitors SET visitor_name='"& visitor_name sql=sql & "',email='" & email sql=sql & "',address='" & address sql=sql & "',id_num='" & id_num sql=sql & "',phone='" & phone sql=sql & "',Category_Id='" & Category_Id sql=sql & " where visitor_id'=" & session("visitor_id") & "'"​
 

haflo1

New member
global.asa

מה משמעות השגיאה ?ומה הפתרון?
Application object error 'ASP 0102 : 80004005' Expecting string input /Project1/global.asa, line 64 The function expects a string as input.​
 

amir234

New member
אין מספיק פרטים

ועוד משהוא נגיד יש לי את הקובץ בתיקיה /cool ואני ורצה להשתמש בפונקציות של הקובץ בתיקיה /cool/forum זה עדיין יעבוד?
 
../images/Emo41.gif זו הפעם האחרונה ../images/Emo41.gif

שאתה מתבקש לשרשר את השאלות שלך. בפעם הבאה - תחסם. ותקרא איך להציג שאלות במאמר שבחתימה שלי.
 
למעלה