<% '••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••• ' MODULE : /default.asp ' PROGRAMMER : Philip A. Kedy ' CREATED : 08/08/2002 'ททททททททททททททททททททททททททททททททท • DESCRIPTION • ททททททททททททททททททททททททททททททททท ' OPTN Home page 'ททททททททททททททททททททททททททททท • MODIFICATION HISTORY • ทททททททททททททททททททททททททททท ' Programmer • Date • Details ' ---------------------------------------------------------------------------------- ' kedypa • 08/08/02 • Initial Implementation '••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••• dim conn, rs, cmd ' Choose a random image for home page dim imageNum If nullcheck(Session("homepage_image")) = "" then imageNum = Int(6 * Rnd() + 1) Session("homepage_image") = imageNum Else imageNum = Int(Session("homepage_image")) imageNum = (imageNum Mod 6) + 1 Session("homepage_image") = imageNum End if imageNum = CStr(imageNum) Do While Len(imageNum) < 2 imageNum = "0" & imageNum Loop %> <% call openHead() %> <% call closeHead() %> <% call openBody() %>

<%= img("/images/coalition_tab_dim.gif", 163, 22, "Coalition on Donation") %><%= img("/images/optn_tab_dim.gif", 84, 22, "OPTN") %><%= img("/images/txliving_tab_dim.gif", 141, 22, "Transplant Living") %>

<%= img("/images/photo_donormemorial.jpg", 98, 96, "") %>

<%= img("/images/hd_donormemorial.gif", 137, 28, "") %>

Remembering those
who gave LIFE... Go <%= img("/images/bullet_arrow.gif", 4, 10, "") %>

<%= img("/images/pixel.gif", 180, 1, "") %>

<%= img("/images/hd_data.gif", 47, 22, "Data") %>

Go To Data <%= img("/images/bullet_arrow.gif", 4, 10, "") %>

<% dim strAsOfDate, strDataStyle call openConnection_UNOS(conn) call createFullCommand( cmd, "usp_list_latest_data_counts", conn ) call createRecordset( rs ) rs.open cmd dim i : i = 1 do while not rs.EOF strAsOfDate = rs( "end_date" ) if i = 1 then Response.Write( "" ) else Response.Write( "" ) end if if i = 1 then strDataStyle = "font-weight: bold; font-size: 13px; " else strDataStyle = "" end if Response.Write( "" ) Response.Write( "" ) rs.moveNext i = i + 1 loop destroyRecordset( rs ) destroyCommand( cmd ) closeConnection( conn ) %>

" & rs( "section" ) & "
" & rs( "section" ) & "	" & FormatNumber( rs( "total" ),0, 0, 0, true ) + "	" & strAsOfDate + "
About Data Counts <%= img("/images/bullet_arrow.gif", 6, 10, "*") %>

<%= img("/images/hd_news.gif", 52, 22, "News") %>

View All News <%= img("/images/bullet_arrow.gif", 4, 10, "") %>

<% call openConnection_External(conn) call createFullCommand(cmd, "usp_list_homepage_news", conn) call appendInt(cmd, "@site_id", siteId) call createRecordset(rs) rs.Open cmd Do While Not rs.EOF %> <% rs.MoveNext : Loop destroyRecordset(rs) destroyCommand(cmd) closeConnection(conn) %>

"><%= dateMNDDYYYY(rs("start_dt")) %>	"><%= toHTML(rs("headline")) %>
	<%= toHTML(chopWords(rs("summary"))) %><% if NOT isNull(rs("link_name")) then %> ">Go To <%= rs("link_name") %><% end if %>

<%= img("/images/hd_calendar.gif", 78, 22, "Calendar") %>

<%= CurrentWeekEvents()%>

<%= img("/images/hd_quicklinks.gif", 97, 22, "Quick Links") %>

<% call closeBody() function chopWords(val) dim chars : chars = 200 dim ret : ret = val if Len(ret) <= chars then chopWords = ret Exit Function end if ret = Left(ret, chars) If Right(ret, 1) <> "" Then dim i : i = InStrRev(ret, " ") if i > 0 then ret = Trim(Left(ret, i - 1)) & "..." end if Else ret = Trim(ret) & "..." End if chopWords = ret end function %>