-
<%
Set Conn = Server.CreateObject("ADODB.Connection")
StrConn ="Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\Projetos\Ministerio Colheita\Site\testes\colheita.mdb;Uid=Admin;Pwd=;"
Conn.Open StrConn
'Response.Write StrConn
'Response.end
SQL = "SELECT TOP 5 * FROM NOTICIAS ORDER BY CODIGO DESC"
SET RECSET = CONN.EXECUTE(SQL)
FOR I=0 TO 4
'do while not RECSET.eof
%>
"><%=RECSET("CHAMADA")%>
<%
RESPONSE.Write("
") RECSET.MOVENEXT NEXT 'loop RECSET.CLOSE SET RECSET= NOTHING CONN.CLOSE SET CONN= NOTHING %>
Saiba os horários dos cultos na igreja.
Saiba o que é o ministério e em que cremos.
