<%
if Session("LoggedIn") = "TRUE" then
%>
 |
|
Welcome <%= Session("UserFName")%>, ( Logout ) |
|
<%
else
%>
|
|
Be the first to know what's going on in and around the AUC Center
Become a Member
Already a Member?
Login |
|
<%
end if
%>
|
|
| Featured Event |
<%
dim conn
dim yes
dim rs
dim eventsSQL
yes = "TRUE"
DSN = "DSN=access_aucjobs.dsn"
set conn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
conn.Open DSN
rs.Open eventsSQL,conn
eventsSQL = " SELECT * " &_
" FROM events " &_
" WHERE eve_sponsored =true" &_
" AND eve_open =true" &_
" AND eve_date >= #" & Month(Now()) & "/" & Day(Now()) & "/" & Year(Now()) & "#" & _
" ORDER BY eve_date ASC"
'response.write (eventsSQL)
rs.Open eventsSQL,conn, 1, 2
sponsoredevent = 0
WHILE NOT rs.EOF
sponsoredevent = sponsoredevent + 1
%>
| <%= rs("eve_date") %> |
"><%= rs("eve_hdr") %> |
<%
rs.MOVENEXT
WEND
rs.Close
conn.Close
%>
<%
set conn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
conn.Open DSN
rs.Open eventsSQL,conn
eventsSQL = " SELECT events_skey, eve_hdr, eve_date, eve_open " &_
" FROM events " &_
" WHERE eve_open=true" &_
" AND eve_date >= #" & Month(Now()) & "/" & Day(Now()) & "/" & Year(Now()) & "#" & _
" ORDER BY eve_date ASC"
'response.write (eventsSQL)
rs.Open eventsSQL,conn, 1, 2
latest_skey = ""
WHILE NOT rs.EOF
if latest_skey = "" then
latest_skey = rs(0)
end if
%>
 |
<%= rs(2) %> |
<%= rs(1) %> |
<%
rs.MOVENEXT
WEND
rs.Close
conn.Close
%>
|
|
| SITE SPONSORS |
 |
|
