נכון, שיניתי אחד המשתנים לשם אחר
ולא עבד, להלן הקוד
sub Page_Load if Not Page.IsPostBack Then Session.Timeout = 60 Dim str As String if session("educator") = "ok" then 'used for the page educator_menu.asp when the educator wants a list of his pupils str = session("class_id") Dim strArray() as String = split(str,";") str="11e" 'strArray(0) 'the classes an educator educates else str = "11e,12e,10e" 'session("class_id") 'All classes in a school. This page is accessed by the school secretary end if str = "(" & str & ")" str=replace(str," ", "") str=replace(str,",", "','") str=replace(str,"(", "'") str=replace(str,")", "'") Dim strConn As String = _ "Provider=Microsoft.Jet.OLEDB.4.0;data source=" & server.mappath("...\data\school_reports.mdb") Dim conn As OleDbconnection=New OleDbconnection(strConn) conn.Open() Dim sql_classes As String = "select * from classes where class_id in (" & str & ")" Dim sql_users As String = "select * from users" Dim cmd_classes As OleDbCommand=New OleDbCommand(sql_classes,conn) Dim cmd_users As OleDbCommand=New OleDbCommand(sql_users,conn) Dim dr_classes, dr_users As OleDbDataReader dr_classes=cmd_classes.ExecuteReader() RepClasses.DataSource=dr_classes RepClasses.DataBind() dr_classes.Close() dr_users=cmd_users.ExecuteReader() Dim k As Short Dim fields for k=0 to dr_users.FieldCount - 1 if dr_users.GetName(k)<>"user_fname" and dr_users.GetName(k)<>"user_mname" and dr_users.GetName(k)<>"user_lname" then 'the complete name of the pupils will always be represented and such there is no need to ask the secretary if he likes to display them fields.Text=dr_users.GetName(k) end if next dr_users.Close() conn.Close() End If Dim school_id As String = "800086" 'session("school_id") Dim classes As String = "11e" 'request("classes") ' class(es) that the educator chose to display classes="(" & classes & ")" classes=replace(classes," ", "") classes=replace(classes,",", &quo
