<% Response.Expires = 0 Dim strSQL, string, palavra, rsver, liv, livro, conn, strSQL2, rscount, rs Call abre_con if Request.QueryString("modo") = "buscar" then %> <% 'palavra = Trim(Request.Form("palavra")) palavra = Trim(Request.QueryString("palavra")) palavra = Replace(palavra, "'", "''") 'palavra = Replace(palavra,"a","[a,á,à,ã,â,ä]") 'palavra = Replace(palavra,"e","[e,é,è,ê,ë]") 'palavra = Replace(palavra,"i","[i,í,ì,î,ï]") 'palavra = Replace(palavra,"o","[o,ó,ò,õ,ô,ö]") 'palavra = Replace(palavra,"u","[u,ú,ù,û,ü]") 'palavra = Replace(palavra,"c","[c,ç]") 'palavra = LCase(palavra) strPageSize=20 strPageNumberSize=25 mypage = request("pg") if mypage = "" then mypage = 1 end if strSQL = "SELECT b.LivroID, b.CapituloID, b.VersiculoID, b.DescrVer, l.Nome, l.Abreviacao, l.TestamentoID " & _ "FROM (tblBiblia AS b INNER JOIN tbllivro AS l ON b.LivroID = l.LivroID) WHERE " liv = Request.QueryString("liv") tipo = Request.QueryString("tipo") if tipo = "at" then strSql = strSql & "b.DescrVer LIKE '%" & palavra & "%' AND l.TestamentoID = 1 " end if if tipo = "nt" then strSql = strSql & "b.DescrVer LIKE '%" & palavra & "%' AND l.TestamentoID = 2 " end if if tipo = "todos" then strSql = strSql & "b.DescrVer LIKE '%" & palavra & "%'" end if if tipo = "livro" then strSql = strSql & "b.DescrVer LIKE '%" & palavra & "%' AND b.LivroID=" & liv end if strSql = strSql & " ORDER BY b.LivroID, b.CapituloID, b.VersiculoID ASC" Set rs = Server.CreateObject("ADODB.RecordSet") rs.open strSql, conn, 3 if not (rs.EOF or rs.BOF) then '## NADA ENCONTRADO rs.movefirst rs.pagesize = strPageSize rs.cacheSize = strPageSize total = CInt(rs.RecordCount) maxPages = cint(rs.pageCount) maxRecs = cint(rs.pageSize) rs.absolutePage = myPage maxpages = cint(rs.pagecount) end if %>
<%if tipo = "at" then %> Resultado da pesquisa no Antigo Testamento <% end if %> <%if tipo = "nt" then %> Resultado da pesquisa no Novo Testamento <% end if %> <%if tipo = "todos" then %> Resultado da pesquisa em toda a Bíblia <% end if %> <%if tipo = "livro" then %> Resultado da pesquisa no livro <%=nomliv%>. <% end if %>
<% if total = 1 then %> Foi encontrado apenas 1 versículo. <% end if %> <% if total > 1 then %> Foram encontrados <%= total %> versículos. <% end if %> <% if maxpages > 1 then %>
Páginas: <% Call Paging() %>
<% else end if %>
<% if rs.EOF or rs.BOF then %> <% else %> <% currMember = 0 %> <% i = 0 howManyRecs = 0 rec = 1 do until rs.Eof or rec = (strPageSize + 1) if i = 1 then CColor = "#FFFFCC" else CColor = "#FFFF99" end if ver = trim(rs("DescrVer")) pbold = replace(ver,palavra,"" & palavra & "") %> <% currMember = rs("VersiculoID") rs.MoveNext i = i + 1 if i = 2 then i = 0 rec = rec + 1 loop end if %>
Nenhum versículo foi encontrado.
&cap=<%=rs("CapituloID")%>&ver=<%=rs("VersiculoID")%>"><% =rs("Abreviacao") %> <% =rs("CapituloID") %>, <% =rs("VersiculoID") %>: <%= pbold %>
<% if maxpages > 1 then %>
Páginas: <% Call Paging() %>
<% else %> <% end if %>
<% function widenum(fNum) if fNum > 9 then widenum = "" else widenum = " " end if end function sub Paging() if maxpages > 1 then if Request.QueryString("pg") = "" then sPageNumber = 1 else sPageNumber = Request.QueryString("pg") end if sScriptName = Request.ServerVariables("script_name") Response.Write("") for counter = 1 to maxpages if counter <> cint(sPageNumber) then sNum = "" Response.Write sNum else Response.Write("") end if if counter mod strPageNumberSize = 0 then Response.Write("") end if next Response.Write("
" & " " & widenum(counter) & "" & counter & "" & " "& widenum(counter) & "" & counter & "
") end if end sub %> <% rs.Close Call fecha_con Set livro = Nothing Set rs = nothing else %>
Procurar na Bíblia    Antigo Testamento  Novo Testamento  Toda a Bíblia  Livro 
<% end if %>
Voltar para Bíblia Online
http://www.ahw.com.br/bol/