<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% 'Criando variáveis Dim localbd, meubd, rsQuestoes, Questoes, rsComentarios 'Indicando local do Banco de dados localbd="driver={microsoft access driver (*.mdb)};dbq=" & server.mappath("enquete/bd/bd.mdb") 'Setando conexao set meubd=server.createobject("adodb.connection") set rsQuestoes=server.createobject("adodb.RecordSet") set Questoes=server.createobject("adodb.RecordSet") set rsComentarios=server.createobject("adodb.RecordSet") 'Abrindo conexao meubd.Open localbd 'Faremos aqui a seleção da questão 'Sendo ordernada por Data Decrescente para obter a última enquete cadastrada 'Lembrando que será feito um Relacionamento de tabelas 'Para podermos mostrar questão e opções para voto rsQuestoes.Open "SELECT TOP 1 * from questoes, votos where questoes.cod_questao=votos.cod_questao and votos.cod_questao=questoes.cod_questao order by questoes.cod_questao desc", meubd Questoes.Open "SELECT * from questoes order by Data Desc", meubd 'Aqui será feita uma SELECT para mostrar a quantidade de comentários if not rsQuestoes.eof or not rsQuestoes.bof then rsComentarios.Open "SELECT count(cod_comentario) as TotalCom from comentarios where cod_questao="&rsQuestoes.fields("cod_questao")&" ", meubd end if %> <% 'Verificar se o voto foi feito 'Se foi, gravará uma session com a opção marcada if request.form("voto")<>"" then session("voto")=request.form("voto") response.Redirect("enquete/votar.asp") end if %> <% 'Aqui será feito o Javascript que abrirá os resultados em Pop-up %> <%Response.Buffer=True%> <% Dim intSessionId intSessionId = Session.SessionID Dim intTotOnLine intTotOnLine = Application("intTotOnLine") Dim intTotUser intTotUser= Application("intTotUser") %> <% Dim rsColunistas Dim rsColunistas_numRows Set rsColunistas = Server.CreateObject("ADODB.Recordset") rsColunistas.ActiveConnection = MM_imi_STRING rsColunistas.Source = "SELECT * FROM Colunistas ORDER BY Id ASC" rsColunistas.CursorType = 0 rsColunistas.CursorLocation = 2 rsColunistas.LockType = 1 rsColunistas.Open() rsColunistas_numRows = 0 %> <% Dim rsDestaques Dim rsDestaques_numRows Set rsDestaques = Server.CreateObject("ADODB.Recordset") rsDestaques.ActiveConnection = MM_imi_STRING rsDestaques.Source = "SELECT * FROM Destaques ORDER BY DtCadastro DESC" rsDestaques.CursorType = 0 rsDestaques.CursorLocation = 2 rsDestaques.LockType = 1 rsDestaques.Open() rsDestaques_numRows = 0 %> <% Dim rsNoticias Dim rsNoticias_numRows Set rsNoticias = Server.CreateObject("ADODB.Recordset") rsNoticias.ActiveConnection = MM_imi_STRING rsNoticias.Source = "SELECT * FROM Noticias ORDER BY DtCadastro DESC" rsNoticias.CursorType = 0 rsNoticias.CursorLocation = 2 rsNoticias.LockType = 1 rsNoticias.Open() rsNoticias_numRows = 0 %> <% Dim rsMuralista Dim rsMuralista_numRows Set rsMuralista = Server.CreateObject("ADODB.Recordset") rsMuralista.ActiveConnection = MM_imi_STRING rsMuralista.Source = "SELECT * FROM Muralista ORDER BY DtCadastro DESC" rsMuralista.CursorType = 0 rsMuralista.CursorLocation = 2 rsMuralista.LockType = 1 rsMuralista.Open() rsMuralista_numRows = 0 %> <% Dim rsPastorais Dim rsPastorais_numRows Nome = (rsColunistas.Fields.Item("Nome").Value) Set rsPastorais = Server.CreateObject("ADODB.Recordset") rsPastorais.ActiveConnection = MM_imi_STRING rsPastorais.Source = "SELECT * FROM Pastorais WHERE Nome = '"&Nome&"' ORDER BY DtCadastro DESC" rsPastorais.CursorType = 0 rsPastorais.CursorLocation = 2 rsPastorais.LockType = 1 rsPastorais.Open() rsPastorais_numRows = 0 %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = 5 Repeat3__index = 0 rsNoticias_numRows = rsNoticias_numRows + Repeat3__numRows %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 3 Repeat1__index = 0 rsPastorais_numRows = rsPastorais_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = 3 Repeat2__index = 0 rsDestaques_numRows = rsDestaques_numRows + Repeat2__numRows %> <% Dim MM_paramName %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> Bem-vindo ao site da Igreja Metodista em Itapoã
Usuários on-line: <%=intTotOnLine%>


Home
Cremos
Metodismo
Pastorais
Estudos
Ministérios
Fotos
Mensagens
Livro Visitas
Mural recados
Fotolog
Fórum
Notícias
Sala Oração
Fale Conosco
Downloads
Webmaster
 
 
<% If Not rsMuralista.EOF Or Not rsMuralista.BOF Then %> <% End If ' end Not rsMuralista.EOF Or NOT rsMuralista.BOF %>
Entrar no Mural de Recados
<% While ((Repeat2__numRows <> 0) AND (NOT rsDestaques.EOF)) %> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 rsDestaques.MoveNext() Wend %>
">&width=75" alt=":: Leia mais ::" width="75" border="0">
<%=(rsDestaques.Fields.Item("Destaque").Value)%>
:: " class="link2">Leia mais ::
 
Domingo

09h - Escola Dominical
19h - Culto
Terça-feira 20h - Cura e Libertação
Quarta-feira 14h - Clube das Abelhinhas
Quinta-feira Grupo Wesleyano
Ponto Missionário Novo México
<% If Not rsNoticias.EOF Or Not rsNoticias.BOF Then %> <% While ((Repeat3__numRows <> 0) AND (NOT rsNoticias.EOF)) %> <% if var=1 then cor="FFFFFF" else cor="DDEEFF" end if %> <% data = (rsNoticias.Fields.Item("DtCadastro").Value) mes = month(data) dia = day(data) datas = dia&"."&mes&"|" %> <% if var=1 then var=var+1 else var=1 end if if repeticao=1 then repeticao=repeticao+1 else repeticao=1 end if %> <% Repeat3__index=Repeat3__index+1 Repeat3__numRows=Repeat3__numRows-1 rsNoticias.MoveNext() Wend %> <% End If ' end Not rsNoticias.EOF Or NOT rsNoticias.BOF %>
<%=datas%>
 " class="link2"><%=(rsNoticias.Fields.Item("Titulo").Value)%>  
<% 'Aqui estamos mostrando a questão da enquete response.write rsQuestoes.fields("questao")%>
<% 'Criaremos uma variavel que fará com que a primeira opção fique marcada ao iniciar dim check check="checked" 'Iremos aqui utilizar o WHILE para repedir as Opções para voto while NOT rsQuestoes.EOF %> <% check="" rsQuestoes.movenext wend %>
" <%=check%> style="font-family: Verdana; font-size: 9px; background-color=#FFFFFF; border: 1px solid;"> <% 'Mostrar o Campo da tabela que mostrará as Opções response.write rsQuestoes.fields("Opcao") %>
|
<% 'Mostrar a quantidade de comentários desta questão response.write rsComentarios.fields("TotalCom") %> " class="link2"> Comentários
   
<% foto = (rsColunistas.Fields.Item("Foto").Value) %>
<% While ((Repeat1__numRows <> 0) AND (NOT rsPastorais.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsPastorais.MoveNext() Wend %>
 
© 2006 - Igreja Metodista em Itapoã - By, Fabiano de Azeredo
  
<% rsColunistas.Close() Set rsColunistas = Nothing %> <% rsDestaques.Close() Set rsDestaques = Nothing %> <% rsNoticias.Close() Set rsNoticias = Nothing %> <% rsMuralista.Close() Set rsMuralista = Nothing %> <% rsPastorais.Close() Set rsPastorais = Nothing %>