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

Ntjhfkj;ijg;gw;wp ePq;fs; vt;tsthf mwpe;jpUf;fpwph;fs;? cq;fis ePq;fNs ghPl;rpj;Jg;ghHf;f! ,Njh rj;jpa trdj;jpd}lhf cq;fSf;F xU mhpa re;jhg;gk;. jpUkiwf;Fs; kiwe;J fhzg;gLk; Gijay;fis Njb fz;Lgpbj;J> nty;y Kbe;jhy; nty;Yq;fs;. <%Dim x x=1 Do until qp.eof ' response.write qp("Problem") if Count < 5 then%> <% Count=Count+1 x=x+1 end if qp.movenext loop %> <%response.write qp("ProID")%>. <%response.write qp("Problem")%> "> " <% set Ans = conn.execute ("select * from T_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