<%@ Language=VBScript %> <% set rs=Server.CreateObject("adodb.recordset") sqlstr="select * from kid_people where rama="&Request("rama") rs.Open sqlstr,con,3,3 %> תנך, מי יודע?
התחל משחק חדש

לפניך רשימה של דמויות מן המקרא,
בחר את אחת הדמויות - אבל אל תגלה לי את מי בחרת!

המחשב ינסה לגלות איזו דמות בחרת באמצעות שאלות שישאל אותך

לחץ על "המשך" כדי להתחיל לענות על השאלות
<% rs.MoveFirst i=0 do until rs.EOF Response.Write(rs.Fields("name")&"
") if Request("rama")=2 then Response.Write("
") i=i+1 if (Request("rama")=2 and i=9) or (Request("rama")=1 and i=20) then Response.Write("		") i=0 end if rs.MoveNext loop%>


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