<% Dim strSQL, rsver, string, conn, liv, cap, ver, strSQL2, rscap, capliv, strSQL3 a=Request.Form("liv") liv = Request.QueryString("liv") cap = Request.QueryString("cap") ver = Request.QueryString("ver") if Request.QueryString("modo") = "ler" then %> <% strSQL2 = "SELECT CapituloID, Count(CapituloID) AS Total FROM tblbiblia WHERE LivroID=" & liv & " GROUP BY CapituloID ORDER BY CapituloID ASC" Call abre_con Set rscap = conn.Execute(strSQL2) strSQL = "SELECT b.LivroID, b.CapituloID, b.VersiculoID, b.DescrVer, l.Nome, l.Abreviacao " & _ "FROM (tblBiblia AS b INNER JOIN tbllivro AS l ON b.LivroID = l.LivroID) " & _ "WHERE b.LivroID=" & liv & "AND b.CapituloID=" & cap Set rsver = Conn.Execute(strSQL) %>
Bíblia Online

Publicidade

<% if rsver.Eof then %>
O capítulo, ou o versículo especificado não existe na Bíblia.

<% else %>

<%= Ucase(rsver("Nome"))%>   <%= rsver("Abreviacao") %> - Capítulo: <%= rsver("CapituloID")%>

Capítulo:
<% While Not rscap.EOF %> "><%=rscap("CapituloID")%> <% rscap.MoveNext Wend %>

<% While Not rsver.Eof DescrVer = rsver("DescrVer") VersiculoID = rsver("VersiculoID") %> <%=VersiculoID%>: <%=DescrVer%>
<% rsver.MoveNext Wend end if %>

<% else if Request.QueryString("modo") = "destacar" then %> <% strSQL2 = "SELECT CapituloID, Count(CapituloID) AS Total FROM tblbiblia WHERE LivroID=" & liv & " GROUP BY CapituloID ORDER BY CapituloID ASC" Call abre_con Set rscap = conn.Execute(strSQL2) strSQL = "SELECT b.LivroID, b.CapituloID, b.VersiculoID, b.DescrVer, l.Nome, l.Abreviacao " & _ "FROM (tblBiblia AS b INNER JOIN tbllivro AS l ON b.LivroID = l.LivroID) " & _ "WHERE b.LivroID=" & liv & "AND b.CapituloID=" & cap Set rsver = Conn.Execute(strSQL) %>

Bíblia Online

Publicidade

<% if rsver.Eof then %>
O capítulo, ou o versículo especificado não existe na Bíblia.

<% else %>

<%= Ucase(rsver("Nome"))%>   <%= rsver("Abreviacao") %> - Capítulo: <%= rsver("CapituloID")%>

Capítulo:
<% While Not rscap.EOF %> "><%=rscap("CapituloID")%> <% rscap.MoveNext Wend %>

<% While Not rsver.Eof VersiculoID = rsver("VersiculoID") DescrVer = rsver("DescrVer") if Cint(ver) = VersiculoID then vbold = "" & DescrVer & "" else vbold = DescrVer end if %> <%=VersiculoID%>: <%= vbold %>
<% rsver.MoveNext Wend end if %>

<% rsver.Close rscap.close Call fecha_con Set rsver = nothing Set rscap = nothing Set capliv = nothing else %>

Bíblia Online


Publicidade
<% strSQL3 = "SELECT * FROM tbllivro" Call abre_con Set capliv = Conn.Execute(strSQL3) %>
<% While Not capliv.EOF livroid = capliv("LivroID") nome = Ucase(capliv("Nome")) abrev = capliv("Abreviacao") %> <%= livroid %> - <%= Nome%>  <%= abrev%>
<% capliv.MoveNext Wend %>
<% capliv.close Call fecha_con Set capliv = nothing end if end if %>