הוסטס - פורום אחסון האתרים הגדול בישראל

- פורום תיכנות (https://hosts.co.il/forums/forumdisplay.php?f=14)

- - הקוד לא עובד ASP (https://hosts.co.il/forums/showthread.php?t=30247)

הקוד לא עובד ASP

קוד:

<%@ Language=VBScript codepage="1255" %>

<HTML>

<HEAD>

<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">

</HEAD>

<BODY>



<%

dim visitor_name, email, pass, mysql

visitor_name=Request.Form("visitor_name")

email=Request.Form("email")

pass=Request.Form("pass")



if visitor_name = nil or email=nil or pass=nil then

    Response.Write "<center><h2>" 

    Response.Write "חלק מהפרטים שהקשת חסרים או שגויים" 

    Response.Write "</h2></center>"

    Response.Write "<center><h2>"

    Response.Write "חזור לדף הקודם, תקן, ובצע שנית" & ""

    Response.Write "</h2></center>"

else





dim conn

set conn=Server.CreateObject("ADODB.connection")

DSNName = "DRIVER=Microsoft Access Driver (*.mdb);DBQ="

DSNName = DSNName & Server.MapPath("chik.mdb")

Conn.Open DSNName



mysql="UPDATE visitors SET visitor_name='" & visitor_name

mysql=sql & "', pass='" & pass

mysql=sql & "', email='" & email

mysql=sql & " where visitor_id=" & session("visitor_id")



Response.Write mysql

Response.end

conn.Execute sql



conn.Close

set conn=nothing



Response.Write "<center><h3>" 

Response.Write "תודה על שהצטרפת למועדון" 

Response.Write "</h3></center>"



end if





%>







</BODY>

</HTML>



שאילתה

where visitor_id=











קובץ global.asa

<SCRIPT LANGUAGE=VBScript RUNAT=Server>



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

dim rs, sql

set conn=Server.CreateObject("ADODB.connection")

conn.open "dsn=chak"



if session("visitor_id")="" then    ' New Visitor

    conn.Execute "insert into visitors (visitor_id) values(" & session.SessionID & ")"

    session("visitor_id")=session.SessionID

    Response.Cookies("visitor_id")=session.SessionID

    Response.Cookies("visitor_id").expires = now() + 60

else

    

    set rs=Server.CreateObject("ADODB.recordset")

    sql="select * from visitors where visitor_id=" & Session("visitor_id")

    rs.Open sql, conn

    session("visitor_name")=rs("visitor_name")

    session("email")=rs("email")

    session("pass")=rs("pass")

    

    rs.Close

    set rs=nothing



end if





conn.Close

set conn=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 "dsn=chak"



conn.Execute "update visitors set exit_time=now where visitor_id=" & session("visitor_id")





conn.Close

set conn=nothing



end sub





sub Application_OnStart

 Application("visitors")=0

 Application("active_visitors")=0

end sub





sub Application_OnEnd



end sub





</SCRIPT>

1. תיישר לשמאל

2. מה השגיאה?

3. תצמצם את הקוד לקטעים הרלוונטים, אף אחד לא ייקרא לך עשרות שורות קוד

בקוד הראשון השגיאה היא השאילתה
ואני לא מצליח ליישר לשמאל

שים את זה בתוך תגיות [CODE] או בתוך תגיות [LEFT] (את השגיאה).

ההודעה שלך יושרה ע"י CODE

מישהו יודע לעזור לי?

ציטוט:

נכתב במקור על ידי eLad

1. תיישר לשמאל

2. מה השגיאה?

3. תצמצם את הקוד לקטעים הרלוונטים, אף אחד לא ייקרא לך עשרות שורות קוד

בסדר, 1 נעשה, מה עם השאר?

הוא רשם:

בקוד הראשון השגיאה היא השאילתה
ואני לא מצליח ליישר לשמאל

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

ציטוט:

נכתב במקור על ידי idan43

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

יש מצב, אם תפרט לנו מה השגיאה שאתה מקבל אז זה יעזור!!!!

תסתכל פה:

קוד:

mysql="UPDATE visitors SET visitor_name='" & visitor_name

mysql=sql & "', pass='" & pass

mysql=sql & "', email='" & email

mysql=sql & " where visitor_id=" & session("visitor_id")

פעם אתה עובד עם משתנה בשם SQL ופעם עם משתנה בשם MYSQL? תחליט או זה או זה..

ציטוט:

הוא רשם:

בקוד הראשון השגיאה היא השאילתה

נו אז מה אם השגיאה היא השאילתא? המנוע של ASP יחזיר שגיאה מפורטת שתצביע על השורה + כמה מילות הסבר

רשום לי אופרטור חסר בקוד של הקובץ הראשון
ובקובץ global.asa הוא לא מוסיף משתמש לטבלה ולא שולח cookie

ציטוט:

נכתב במקור על ידי idan43

רשום לי אופרטור חסר בקוד של הקובץ הראשון
ובקובץ global.asa הוא לא מוסיף משתמש לטבלה ולא שולח cookie

תשמע בחור,

אם אתה רוצה שנעזור לך, אז לפחות תצרף פה את מה שביקשתי (שגיאה מפורטת, שורת השגיאה ו 2-3 שורות מעל ומתחת).

בכל מקרה, בנוגע לשאילתא:
1. שכחת לשים שם גרש בשורה האחרונה
2. פעם אתה עובד עם משתנה בשם sql ופעם עם משתנה בשם mysql. תחליט או זה או זה.

קוד:

<div align=left>

Error Type:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)

[Microsoft][ODBC Microsoft Access Driver] ‏‏‎‏‏שגיאת תחביר (אופרטור חסר) בביטוי השאילתה 'visitor_id='.

/chik_chak/join2.asp, line 26









dim conn

set conn=Server.CreateObject("ADODB.connection")

conn.open "dsn=chak"

sql="select * from visitors where visitor_id=" &  Session("visitor_id") 

set rs=server.CreateObject("adodb.recordset")

rs.Open sql,conn,2,3





rs("visitor_name")=visitor_name

rs("email")=email

rs("pass")=pass



rs.Update

rs.Close

set rs=nothing



conn.Close

set conn=nothing

מישהו יודע?

אני יודע שחל איסור על הקפצת אשכול.