<%@ Language=VBScript %> <% 'set con=server.CreateObject("adodb.connection") 'con.open ( "Provider=Microsoft.jet.oledb.3.51; data source=D:/newhttp/cust/daat/daat/html060800.mdb") Set con = Server.CreateObject("ADODB.Connection") Con.Open "Daat","","" set rs=Server.CreateObject("adodb.recordset") rs.Open "select * from subjects",con,3,3 %>

רמאמה םש יפל וא רבחמה םש יפל וא אשונ יפל :טושפ שופיח

אשונ יפל שופיח וא שפחל ךנוצרבש אשונה םש תא דלקה ארקמה ןמ תויומד וא םייללכ םיאשונ :תומישרה יתשמ תחאמ אשונ רחב
		:אשונה םש תא ןאכ דלקה
	<%rs.MoveFirst Response.Write("כל הנושאים") do until rs.EOF if rs.fields("type")=0 then Response.Write(""&rs.fields("name")&"") rs.MoveNext loop%>	:םייללכ םיאשונ
	<%rs.MoveFirst Response.Write("כל הנושאים") do until rs.EOF if rs.fields("type")=1 then Response.Write(""&rs.fields("name")&"") rs.MoveNext loop%>	:ארקמה ןמ תויומד

רבחמה םש יפל שופיח
		:רבחמה םש תא דלקה

רפסה וא רמאמה םש יפל שופיח
		:רמאמה םשב תועיפומה םילמ ףצר וא הלמ דלקה

 

תואבה תוירוגטקה ןיבמ רתוי וא םייתש רחב :בכרומ שופיח תושירדה יתש לע תונועה תואצותה תא לבקת ,תרתוכב הלימו אשונ רחבת םא :אמגודל

.םיאשונה תומישר יתשמ תחא ךותמ רחב וא ,הביתב אשונה םש תא םושר אשונ .א
<%rs.MoveFirst Response.Write("כל הנושאים") do until rs.EOF if rs.fields("type")=0 then Response.Write(""&rs.fields("name")&"") rs.MoveNext loop%> <%rs.MoveFirst Response.Write("כל הנושאים") do until rs.EOF if rs.fields("type")=1 then Response.Write(""&rs.fields("name")&"") rs.MoveNext loop%>	:אשונ :םייללכ םיאשונ :ארקמה ןמ תויומד
	רבחמה םש .ב
	רמאמה םשב העיפומה הלימ .ג