<%@ Language=VBScript %> <% set rs=Server.CreateObject("adodb.recordset") sqlstr="select * from tosba_books where pub=1" rs.Open sqlstr,con,3,3 rs.MoveFirst %> טריוויה תושבע
באיזה ספר אתה רוצה שאלות?
<% rs.MoveFirst i=0 do until rs.EOF Response.Write("") Response.Write(rs.Fields("sefer")&" ( "&rs.Fields("questions")&" שאלות) "&"
") rs.MoveNext loop%>
איזה סוג שאלון אתה רוצה?
מבחן (אפשר לענות על כל שאלה פעם אחת)
חזרה (עונים על כל שאלה עד שעונים נכון)

מהו סדר השאלות שבו אתה מעוניין?
לפי סדר הספר               
שאלות בסדר אקראי       

<% rs.close set rs=nothing Con.Close set con=nothing %>