הקוד לא עובד ASP - הוסטס

idan43 · 04-09-06, 12:00

קוד:

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

eLad · 04-09-06, 12:03

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

2. מה השגיאה?

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

idan43 · 04-09-06, 15:24

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

Eli-Hai · 04-09-06, 15:27

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

**Tomer** · 04-09-06, 16:50

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

idan43 · 04-09-06, 16:56

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

eLad · 04-09-06, 17:37

ציטוט:

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

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

2. מה השגיאה?

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

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

Elad-A · 04-09-06, 18:14

הוא רשם:

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

idan43 · 04-09-06, 18:55

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

eLad · 04-09-06, 19:16

ציטוט:

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

04-09-06, 12:03	# 2
eLad Fatal Error מיני פרופיל תאריך הצטרפות: Oct 2005 מיקום: localhost גיל: 38 הודעות: 1,968	1. תיישר לשמאל 2. מה השגיאה? 3. תצמצם את הקוד לקטעים הרלוונטים, אף אחד לא ייקרא לך עשרות שורות קוד __________________ eLad

04-09-06, 15:24	# 3
idan43 חבר בקהילה מיני פרופיל תאריך הצטרפות: Oct 2005 גיל: 34 הודעות: 156	בקוד הראשון השגיאה היא השאילתה ואני לא מצליח ליישר לשמאל __________________ מספק כתיבת תוכן בעברית ובאנגלית ותרגומים-הבלוג שלי. Email:idan43@gmail.com MSN:universal23@windowslive.com

04-09-06, 16:50	# 5
Tomer Whatever מיני פרופיל תאריך הצטרפות: Oct 2005 הודעות: 7,039	ההודעה שלך יושרה ע"י CODE __________________ תומר

04-09-06, 16:56	# 6
idan43 חבר בקהילה מיני פרופיל תאריך הצטרפות: Oct 2005 גיל: 34 הודעות: 156	מישהו יודע לעזור לי? __________________ מספק כתיבת תוכן בעברית ובאנגלית ותרגומים-הבלוג שלי. Email:idan43@gmail.com MSN:universal23@windowslive.com

04-09-06, 18:14	# 8
Elad-A הוסטסניון מיני פרופיל תאריך הצטרפות: May 2006 הודעות: 1,987	הוא רשם: בקוד הראשון השגיאה היא השאילתה ואני לא מצליח ליישר לשמאל __________________ משחקי דפדפן \| משחקים ברשת \| משחקי בנות ברשת


	ההרשמה לפורום נפתחה - אפשרות רישום לכל אימייל (דומיינים פרטיים, gmail, הוטמייל..)!

04-09-06, 15:27	# 4
Eli-Hai משתמש - היכל התהילה מיני פרופיל תאריך הצטרפות: Oct 2005 הודעות: 2,758	שים את זה בתוך תגיות [CODE] או בתוך תגיות [LEFT] (את השגיאה).

04-09-06, 18:55	# 9
idan43 חבר בקהילה מיני פרופיל תאריך הצטרפות: Oct 2005 גיל: 34 הודעות: 156	יש מצב מישהו עוזר לי לסדר את הקוד זה כבר נושא שני שאני פותח על אותה בעיה? __________________ מספק כתיבת תוכן בעברית ובאנגלית ותרגומים-הבלוג שלי. Email:idan43@gmail.com MSN:universal23@windowslive.com

חברים פעילים הצופים באשכול זה: 1 (0 חברים ו- 1 אורחים)