<%
strProv = "driver={SQL Server};server=201.76.55.15;uid=triesportes;pwd=jor2512;database=triesportes"
set midia=Server.CreateObject("ADODB.Connection")
midia.Open strProv
%>
<%
SQL = "SELECT TOP 7 * from CALENDARIO WHERE ate >= GETDATE() order by ate"
set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.Open SQL, midia, 3, 3
if not rs2.EOF then
%><% while not rs2.EOF %>
<%
rs2.movenext
wend
end if
%>
<%
rs2.close
SET rs2 = NOTHING
SET midia = NOTHING
%>
|
|
Instituição |
| |
| |
|
OISC |
|
|
 |
| |
