שלח תשובה

זירת השאלות

341
צפיות
7
תשובות

בעיה במערכת שאני בונה

,‏ 4 באפריל, 2004

אני בונה מערכת מדריכים ויש לה אינדקס, שם נמצאים כל המדריכים.
כשלוחצים על אחד מהם, אמורים לראות אותם בעמוד showGuide.asp, אבל זה לא עובד.

את השגיאה תראו בלינק.
הקוד של showGuide.asp:



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

<% Dim Conn, rs
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("צוזנר.mdb")
SQL = "select * from parts where ID=" & ID
rs.Open SQL, Conn
%>

<%id = cint(Request.QueryString("id"))%>

<%If rs.EOF Then %><b>המדריך אינו קיים.</b>
<%ELSE%>

<b style="color:black; font-size:12pt">קריאת מדריך במערכת</b><br><br>

<%Do while not rs.EOF%>

<b>מדריך מספר:<%=rs("id")%>.<br><br>
<b>נושא ההודעה:</b> <%=rs("sbjct")%>.<br>
<b>דרגת קושי:</b> <%=rs("lvl") %>.<br>
<b>דירוג הגולשים:</b> <%=rs("rtng") %>.<br>
<b>תוכן המדריך:</b><br>
<%=rs("cntnt")%>

<%
rs.MoveNext
Loop
%>
<br><br><br>

<% End If
‘Conn.Close
‘Set Conn = Nothing
‘rs.Close
‘Set rs = Nothing %>

<a href="adminLogin.asp" style="color:black; font-size:8pt">גישה לניהול</a><br><br>
<font style="font-size:8pt; color:black">© כל הזכויות שמורות לתומר 2004.</font>
</body>


שורה 18


rs.Open SQL, Conn


אל תחפשו את השורה בקוד כי הורדתי את הHTML HEAD BODY וכל זה

בקהילה אחרת שאלתי את השאלה ולא מצאו ת’בעיה, כאן מוצאים?
תומר

תגיות:

7 תשובות

  1. ניר טייב הגיב:

    תומר מאיפה ה-ID
    וזה ניר מהפורום של איציק

  2. deTiTan הגיב:

    אמממ..
    ID לא מוגדר…
    תירשום את זה
    <%id = cint(Request.QueryString("id"))%>

    לפני השליפה..
    בהצלחה

  3. הID מהמסד אלא מה
    ואני יודע שאתה ניר מSetUp

  4. זו תומרת
    יש את העמוד הראשי שם מציגים את המדריכים לפי סדר, ואז כשלוחצים על אחד מהם, זה מגיע לעמוד שבעצם בו יש את הבעיה.

    הID מוגדר כמשתנה integer ואני לא יודע מה הבעיה

  5. ניר טייב הגיב:

    ואתה צריך לעשות כך בכלל


    <%@language="VBSCRIPT" CODEPAGE="1255"%>
    <%id = cint(Request.QueryString("id"))%>
    <% Dim Conn, rs
    Set Conn = Server.CreateObject("ADODB.Connection")
    Set rs = Server.CreateObject("ADODB.RecordSet")
    Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("צוזנר.mdb")
    SQL = "select * from parts where ID=" & ID
    rs.Open SQL, Conn
    %>

    <%If rs.EOF Then %><b>המדריך אינו קיים.</b>
    <%ELSE%>

    <b style="color:black; font-size:12pt">קריאת מדריך במערכת</b><br><br>

    <%Do while not rs.EOF%>

    <b>מדריך מספר:<%=rs("id")%>.<br><br>
    <b>נושא ההודעה:</b> <%=rs("sbjct")%>.<br>
    <b>דרגת קושי:</b> <%=rs("lvl") %>.<br>
    <b>דירוג הגולשים:</b> <%=rs("rtng") %>.<br>
    <b>תוכן המדריך:</b><br>
    <%=rs("cntnt")%>

    <%
    rs.MoveNext
    Loop
    %>
    <br><br><br>

    <% End If
    ‘Conn.Close
    ‘Set Conn = Nothing
    ‘rs.Close
    ‘Set rs = Nothing %>

    <a href="adminLogin.asp" style="color:black; font-size:8pt">גישה לניהול</a><br><br>
    <font style="font-size:8pt; color:black">© כל הזכויות שמורות לתומר 2004.</font>
    </body>

  6. יופי תודה
    סוף סוף עובד
    עכשיו אני אעבוד על הניהול

שלח תשובה