%
'connection object
strconn="DRIVER={Microsoft Access Driver (*.mdb)};"
strconn=strconn & "DBQ=" & server.mappath("\data\announcements.mdb")
SET Conn=Server.CreateObject("ADODB.Connection")
Conn.Open strconn
'grab announcements
set rs = conn.execute("select * from announcements where eventdate >= #" & date() & "# order by eventdate")
if rs.eof then
myanns1 = " "
else
myanns1 = ""
do until rs.eof
myanns1 = myanns1 & "" & rs("eventdate") & "
" & rs("announcement") & "
"
rs.movenext
loop
end if
set rs = nothing
%>
<%
'connection object
strconn="DRIVER={Microsoft Access Driver (*.mdb)};"
strconn=strconn & "DBQ=" & server.mappath("\data\tc-gumdo.mdb")
SET Conn=Server.CreateObject("ADODB.Connection")
Conn.Open strconn
'grab announcements
set rs = conn.execute("select * from announcements where eventdate >= #" & date() & "# order by eventdate")
if rs.eof then
myanns = " "
else
myanns = ""
do until rs.eof
myanns = myanns & "" & rs("eventdate") & "
" & rs("announcement") & "
"
rs.movenext
loop
end if
set rs = nothing
%>
<%
'connection object
strconn="DRIVER={Microsoft Access Driver (*.mdb)};"
strconn=strconn & "DBQ=" & server.mappath("\data\pinetree.mdb")
SET Conn=Server.CreateObject("ADODB.Connection")
Conn.Open strconn
'grab announcements
set rs = conn.execute("select * from announcements where eventdate >= #" & date() & "# order by eventdate")
if rs.eof then
myanns2 = " "
else
myanns2 = ""
do until rs.eof
myanns2 = myanns2 & "" & rs("eventdate") & "
" & rs("announcement") & "
"
rs.movenext
loop
end if
set rs = nothing
%>
|
SPARROW
INSTITUTE
|
Terms of Use ALL photos, page design and content contained within are indeed copyrighted and protected under copyright laws as well as Fair Use Provision Acts. ANY violation of the above will result in prosecution to the fullest extent of the law. ALL Rights reserved whether written or implied. © 2004-2008 Sparrow Institute (http://www.sparrowinstitute.org). These images are not in the public domain. Any questions regarding
this site may be sent here.
TERMS
OF USE |