<% dim pagetitle, topnav, toplogo, headimage, menu, menuspacer, titlebar, headerswf, headeralt, menualign, footimage, title1, currentdir, selected '///////////////////////////////////// '///////////////////////////////////// '/////////// '/////////// switches for main header '/////////// '///////////////////////////////////// '///////////////////////////////////// '//////// set the page title ///////// pagetitle= "Rockstars News and Events" '/////// set the existance of the top navigation ////////// topnav=1 '/////// set the existance of the top left logo ///////// toplogo=0 '/////// set the existance of the header image /////////// headimage=1 '/////// set the existance of the main menu ////////// menu=1 '////// image spacer above menu... below flash /////// menuspacer=0 '/////// set the existance of the title bar ////////// titlebar=0 '/////// set the alignment of main menu ////////// menualign="left" '/////// set the existance of footer image or colour ------- 1=image, 0=colour -------- //////// footimage=1 '/////// set the title bar image //////// title1= "news" '/////// set the current folder --- not ususally needed //////// currentdir="content/news/" '/////// tell the header this is selected page /////// 'selected="news" '///////////////////////////////////// '///////////////////////////////////// '/////////// '/////////// switches for mini - header '/////////// '///////////////////////////////////// '///////////////////////////////////// sidebar="sidenews.jpg" pagehead="titlenews.gif" sectionhead="headnews.gif" '//////////////////////////////////////////////////////////// ' SET VARIABLES FOR FLASH ANIMATIONS AND THEIR ALTERNATES '//////////////////////////////////////////////////////////// 'HEADERSWF=FLASHBASE & "headswf_news.swf" HEADERALT=IMAGEBASE & "headimage_news.jpg" SWFWIDTH=765 SWFHEIGHT=140 %> <% DIM SQL, conn2, rs2, conn3, rs3 DIM eventid, SHOWALL DIM Today TODAY=now() TODAY=DATESERIAL(YEAR(TODAY),MONTH(TODAY),DAY(TODAY)) set conn2=Server.CreateObject("ADODB.Connection") conn2.open mydb set conn3=Server.CreateObject("ADODB.Connection") conn3.open mydb eventid=request.querystring("eventid") IF LEN(request.querystring("SHOWALL")) < 1 then SHOWALL=FALSE ELSE SHOWALL=TRUE ONESTORYFLAG=FALSE response.write dsf & "
" & CRLF response.write "" & CRLF response.write "" & CRLF response.write "" & CRLF response.write "" & CRLF response.write "" response.write "" & CRLF response.write "" & CRLF response.write "" & CRLF response.write "" & CRLF response.write "" & CRLF response.write "" & CRLF IF ONESTORYFLAG=TRUE OR SHOWALL=TRUE THEN SQL = "SELECT * FROM news WHERE datebegin <= " & MyDateEncode(TODAY) & " ORDER BY dateentered DESC" set rs2=conn2.execute(SQL) counter=2 end if response.write "" & CRLF response.write "" & CRLF response.write "" & CRLF response.write "" & CRLF response.write "" & CRLF response.write "

" response.write "" & CRLF if len(eventid) < 1 OR ISNUMERIC(eventid)=FALSE then ' No newsid was supplied. Find the TOP NEWS STORY in the DB IF SHOWALL=TRUE THEN SQL = "SELECT * FROM news WHERE datebegin <= " & MyDateEncode(TODAY) & " ORDER BY dateentered DESC" ELSE SQL = "SELECT * FROM news WHERE datebegin <= " & MyDateEncode(TODAY) & " ORDER BY dateentered DESC" END IF 'response.write SQL & " " set rs2=conn2.execute(SQL) else SQL = "SELECT * FROM news WHERE eventid=" & eventid set rs2=conn2.execute(SQL) ONESTORYFLAG=TRUE end if Counter = 0 if not rs2.eof then response.write "" & CRLF do while not rs2.eof response.write "" & CRLF ' GET PHOTOs (if any). 150 pixels wide response.write "" & CRLF response.write "" & CRLF ' DATE, TITLE AND SHORT DESCRIPTION response.write "" & CRLF response.write "" & CRLF rs2.movenext IF SHOWALL<>TRUE then counter=counter+1 if counter >= 2 then exit do END IF loop response.write " " if ONESTORYFLAG=TRUE then SQL = "SELECT * FROM newmedia WHERE tablename='news' AND ftableid=" & rs2("eventid") & " ORDER BY displayorder" else SQL = "SELECT TOP 1 * FROM newmedia WHERE tablename='news' AND ftableid=" & rs2("eventid") & " ORDER BY displayorder" end if set rs3=conn3.execute(SQL) if rs3.eof then response.write " " else do while not(rs3.eof) if ONESTORYFLAG=TRUE then response.write "" ALT="Click on photo for magnified view" else response.write "" ALT="Click to read more about the event" end if response.write "" response.write " " & CRLF response.write dsf & " " & CRLF rs3.movenext loop end if response.write "   " ' REMAINDER OF WIDTH if rs2("dateentered")<>"" then response.write dsf & "" response.write WEEKDAYNAME(WEEKDAY(rs2("dateentered")),TRUE) & "., " & MONTHNAME(MONTH(rs2("dateentered")),TRUE) & ". " & DAY(rs2("dateentered")) & ", " & YEAR(rs2("dateentered")) response.write " " end if response.write dhf IF ONESTORYFLAG=TRUE then response.write "" else response.write "" end if response.write rs2("title") IF ONESTORYFLAG=TRUE then response.write "" ELSE response.write "" end if response.write " " & CRLF response.write dsf & " " & CRLF response.write df IF ONESTORYFLAG=TRUE then response.write rs2("longdescription") else response.write rs2("shortdescription") response.write " ...more" end if response.write " " & CRLF response.write dsf & " " & CRLF response.write " " & CRLF end if response.write "" & CRLF response.write "

" & CRLF response.write dsf & "Additional News Stories: " & CRLF response.write "" & CRLF do while not rs2.eof response.write "" & CRLF response.write "" & CRLF response.write "" & CRLF response.write "" & CRLF rs2.movenext counter=counter+1 if counter > 8 then exit do loop ' OPTION FOR SHOW ALL response.write "" & CRLF response.write "" & CRLF response.write "" & CRLF response.write "" & CRLF response.write " " & dsf & ">> " & dsf if rs2("dateentered")<>"" then response.write "" response.write "" response.write WEEKDAYNAME(WEEKDAY(rs2("dateentered")),TRUE) & "., " & MONTHNAME(MONTH(rs2("dateentered")),TRUE) & ". " & DAY(rs2("dateentered")) & ", " & YEAR(rs2("dateentered")) & " " end if response.write "" response.write rs2("title") & " " response.write " " & dsf & ">> " & dsf & "" response.write "SHOW ALL NEWS STORIES " response.write "Click Here to See the Entire Archive of News Stories" response.write " " & CRLF response.write "

" & CRLF response.write "

" & CRLF %>