%@ Language=VBScript %> <% set con=server.CreateObject("adodb.connection") con.open "morim",3,3 set RSlanguage=Server.CreateObject("adodb.recordset") set RSgrade=Server.CreateObject("adodb.recordset") set RSprofession=Server.CreateObject("adodb.recordset") set RSteachers=Server.CreateObject("adodb.recordset") RSlanguage.open "select * from language order by language_hebrew",con,3,3 RSgrade.open "select * from grade order by grade_hebrew",con,3,3 RSprofession.open "select * from profession order by profession_hebrew",con,3,3 RSteachers.open "select name_h, name_e from teachers order by name_h",con,3,3 dim language_i dim grade_i dim profession_i language_i=1 grade_i=1 profession_i=1 %>