דפי לימוד

<%@ Language=VBScript %> <% dim flag flag=false sqlstr="select name, mid_title, auther from daf_perush where perush>="&killchars(Request("id1"))&" and perush<="&Request("id2")&" order by perush" 'Response.Write(sqlstr) set rs=Server.CreateObject("adodb.recordset") rs.Open sqlstr,con,3,3 %> דפי לימוד

<% rs.movefirst set rsA=Server.CreateObject("adodb.recordset") do until rs.EOF Response.Write("") rsA.Open "select name from daf_auther where id="&rs.Fields("auther"),con,3,3 rsA.MoveFirst Response.Write(rs.fields("name")&" / "&rsA.fields("name")) rsA.Close Response.Write("

") rs.MoveNext loop rs.Close set rs=nothing set rsA=nothing con.Close set con=nothing %>