مشكلة في اظهار البيانات بعد اختيار من القوائم

السلام عليكم

سبق وسالت في المنتدى عن مشكلة ولم يجب احد

ولكن يا أخوان ترا مشكلتي الحين يتوقف عليها تخرجي ها الكورس

وما بقي لتسليم المشروع الا عشرة أيام

فبليز مساعدة ؟؟؟؟

أنا اشتغل على الواب مع asp

المهم هو مشكلتي في asp

مشروعي عباره عن

موقع واب يستطيع منه الطالب الدخول بواسطة رقمه وكلمة سر

ليشاهد كل من

علامته النهائيه لكل كورس في كل سنه في كل فصل في سنواته الدراسية

المعدل النهائي

جدول الوقت للكورس الحالي

مشكلتي الحالية في علامتة لكل كورس في كل سنه من سنواته الدراسية

انا عملت 2 list box او قائمتي اختيار

الاولى تخرج جميع سنواته الدراسيه

والثانية تخرج الفصول سواء كانت فصل أول ، ثاني ، صيفي

ثم بعد ان يختار السنه والفصل

يضغط ليذهب لصفحة تخرج له جدول يحوي على

رقم الكورس

اسم الكورس

درجة الكورس

والمعدل للكورس

وكل هذا يكون اعتماد على session الطالب وهو رقم الطالب وسنه معينه وفصل معين

المشكلة حاليا هو sql commands

عند كتابته يكون كبير ويجمع join عدة جداول من قاعدة البيانات

وعندما افتح الريكود سيت RS (record Set) يظهر عندي خطا

وعندما اكتب sql بسيط يعمل rs

دليل على أن المشكله في sql حسب اعتقادي

وهذا هو الكود :

<% Response.ContentType = "text/vnd.wap.wml"%> 
<?xml version="1.0"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">

    <wml>
   <card id="card1" title="Year">

      <p>
      <%
  Dim conn, rs,sql,STID,rs2
      Set conn = Server.CreateObject("ADODB.Connection")
      Set rs   = Server.CreateObject("ADODB.Recordset")
     STID=session("SID")
	conn.Provider="Microsoft.Jet.OLEDB.4.0"
	conn.Open Server.MapPath("Database.mdb")
	STID = mid(STID,2,len(STID)-2)
sql="SELECT CourseStudent.SID,CourseStudent.YSID,YearSemester.YSID, YearSemester.Year,YearSemester.Semester FROM YearSemester INNER JOIN CourseStudent ON YearSemester.YSID = CourseStudent.YSID WHERE CourseStudent.SID='" & STID & "'"


'     response.write sql
    rs.open sql,conn   

%>

Select Year:
<select name="Year">

<%
	while not rs.EOF
  Response.Write "<option value='" & rs("Year") & "'>" & rs("Year") & "</option>"
  rs.movenext
	wend
%>
            </select>

Select Semester:
         <select name="Semester">


<%

Set rs2 = conn.Execute(sql)
	while not rs2.EOF
  Response.Write "<option value='" & rs2("Semester") & "'>" & rs2("Semester") & "</option>"
  rs2.movenext
	wend     
%>
             </select>


    <do type="accept" label="Course">
         <go method="post" href="course.asp">

          <postfield name="Year" value="$Year" />
          <postfield name="Semester" value="$Semester" />
         </go>
    </do>
<%


              rs.close
	set rs = nothing
       
	conn.close
	set conn = nothing
%>

      </p>
   </card>
</wml>

وهذا sql command الذي حاولت فتحه في صفحة الكورسات ولم يعمل

<% Response.ContentType = "text/vnd.wap.wml"%> 
<?xml version="1.0"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">

   <wml>
   <card id="card1" title="Courses And grades">
      <p>
      <%
  Dim conn, rs,sql,STID
      Set conn = Server.CreateObject("ADODB.Connection")
      Set rs   = Server.CreateObject("ADODB.Recordset")
      STID=session("SID")
	conn.Provider="Microsoft.Jet.OLEDB.4.0"
	conn.Open Server.MapPath("Database.mdb")
        STID = mid(STID,2,len(STID)-2)

'sql="SELECT CourseStudent.SID, CourseStudent.CID, CourseStudent.YSID, Course.CID, YearSemester.YSID, Course.Title, CourseStudent.CourseMark, CourseStudent.CourseGrade, YearSemester.Year, YearSemester.Semester FROM YearSemester INNER JOIN Course INNER JOIN CourseStudent ON Course.CID = CourseStudent.CID ON YearSemester.YSID = CourseStudent.YSID WHERE CourseStudent.SID='" & STID & "' AND YearSemester.Year='" & Request("Year") & "' AND YearSemester.Semester='" & Request("Semester") & "'"






	response.write sql




rs.open sql,conn    

response.write"gfdfgfhdgdg"

    rs.Close
      conn.Close
     Set rs=Nothing
      Set conn = Nothing

  
    %>
      </p>
   </card>
</wml>

ما المشكله ؟؟؟؟

اذا احد يعرف asp عدل وما فهم لشرحي للمشكلة يضيفني للماسنجر

وهذا ايميلي

From_Diana_with_love@hotmail.com

علشان اوضح له المشكله عدل

وشكرا لكم