<%@ Language=VBScript %> <% Option Explicit Dim conn Dim qp,Ans,Count,x set conn = server.createobject ("adodb.connection") conn.open "backtothebible", "backtothebible", "sbs*buz!" set qp = conn.execute ("select * from s_quiz where Answer<1 order by ProID") Count=0 x=1 %>

<%do until qp.eof if Count < 5 then%> <% Count=Count+1 x=x+1 end if qp.movenext loop %> Tfí nhsn,a ±kqu msßlaiSug fukak lÈu wjia:djla@ <% response.write qp("ProID") %> . <% response.write qp("problem") %> "> "> <% set Ans = conn.execute ("select * from s_quiz where Answer="& qp("Proid")& "") do until Ans.eof %> "> <%Response.write Ans("Problem")%> <% Ans.movenext loop %>     © Back to the Bible. All Rights Reserved. Site by Affno