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

- פורום תיכנות (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 יחזיר שגיאה מפורטת שתצביע על השורה + כמה מילות הסבר