|
|
<%
' Define our connection object
dim strConn, cxn, rst
dim mdbPath
dim strInsert, strUpdate, strSelect
' initial connection info
mdbpath=Server.MapPath("/toronto/mdb/ncuto.mdb")
strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mdbPath
strSelect="select * from info where (info_type like '1%') and (active='Y' or " &_
" start_date >= #" & now() & "# ) order by start_date, city"
' get connection
set cxn = Server.CreateObject("ADODB.Connection")
cxn.CommandTimeout = 15
cxn.ConnectionTimeout = 30
cxn.Open strConn
' execute query
Set rst = cxn.Execute (strSelect, , adCmdText)
do while not rst.EOF
newsDate = rst.fields("start_date").value
newsTitle = rst.fields("title").value
' newsLink = rst.fields("link").value
%>
 |
<%Response.Write(newsDate) %> <%Response.Write(newsTitle) %>
|
|
|
<%
' move to the next record
rst.MoveNext
loop
' release db resource
rst.Close
cxn.Close
Set rst = nothing
Set cxn = nothing
%>
|
|
|
| SPONSORS |
|
|
|
|
Welcome to NCUAANA @ Toronto
NCUAANA Toronto Chapter is the largest among all local
chapters of NCUAANA. Geographically, it covers the
region of Ontario and New York State within 3 hour
driving distance to Toronto. There are over 100 NCU
alumni living in this region. Our Toronto Chapter is
the common home of us NCU alumni with our families in
this region. Every member's enthusiastic
participation in activities of and contributions to
NCUAANA are counted on and highly appreciated.
We sincerely and warmly welcome all NCU alumni living
in Detroit, Kingston, Montreal, Ottawa, Rochester,
Sania, Windsor and the rest of Ontario to join the
Toronto Chapter or to join all activities sponsored by
the Toronto Chapter.
|
