צפיות
תשובות
בעיה במערכת שאני בונה
אני בונה מערכת מדריכים ויש לה
כשלוחצים על אחד מהם, אמורים לראות אותם בעמוד 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 תשובות
תומר מאיפה ה-ID
וזה ניר מהפורום של איציק
אמממ..
ID לא מוגדר…
תירשום את זה
<%id = cint(Request.QueryString("id"))%>
לפני השליפה..
בהצלחה
הID מהמסד אלא מה
ואני יודע שאתה ניר מSetUp
זה כבר היה כתוב..
זו תומרת
יש את העמוד הראשי שם מציגים את המדריכים לפי סדר, ואז כשלוחצים על אחד מהם, זה מגיע לעמוד שבעצם בו יש את הבעיה.
הID מוגדר כמשתנה integer ואני לא יודע מה הבעיה
ואתה צריך לעשות כך בכלל
<%@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>
יופי תודה
סוף סוף עובד
עכשיו אני אעבוד על הניהול