<%
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
%>
|
|
 |
|
|
 |
|
Living the Quarter-life Crisis
Twentysomethings address the unique challenges of life after graduation.
Confronted by an often whirlwind of new responsibilities, new liberties, and
new options, many feel helpless, panicked, indecisive, and apprehensive.
|
|
|
<%
dim conn
dim strDSN
dim conn1
dim rs
dim rs1
dim strNewsTitle
dim strNewsText
dim strNewsSkey
dim newscount
dim randnews
dim strNewsImage
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
strDSN = "dsn=access_aucjobs"
conn.Open strDSN
featuredSQL = "SELECT news_skey, news_title, news_spotlight, news_date, news_subtitle, news_image_sm, news_pressrelease, haveimage" &_
" FROM news" &_
" WHERE news_date > 1" &_
" AND news_featured=true" &_
" ORDER BY news_date DESC"
'response.write(featuredSQL)
rs.Open featuredSQL,conn, 1, 2
newscount=0
WHILE NOT rs.EOF
newscount = newscount + 1
strNewsSkey = rs(0)
strNewsTitle = rs(1)
strNewsSpotlight = rs(2)
strHaveImage = rs(7)
%>
| <%= strNewsTitle %> |
<% if strHaveImage > "" then %>
 %>)
<% else %><% end if %>
<%= strNewsSpotlight %> |
|
<%
rs.MOVENEXT
WEND
rs.Close
conn.Close
%>
News Archive
|
|
|
| SITE SPONSORS |
 |
|
