<% sub showevents(howmany) DIM conn, rs, SQL DIM Today, counter TODAY=now() TODAY=DATESERIAL(YEAR(TODAY),MONTH(TODAY),DAY(TODAY)) SET conn=server.createobject("ADODB.CONNECTION") conn.open MYDB SQL = "SELECT TOP " & howmany & " * FROM news WHERE datebegin <= " & MyDateEncode(TODAY) & " ORDER BY dateentered desc" set rs=conn.execute(SQL) response.write "" & CRLF counter=0 do while not rs.eof response.write "" & CRLF response.write "" & CRLF response.write "" & CRLF response.write "" & CRLF response.write "" & CRLF rs.movenext counter=counter+1 if counter >= howmany then exit do loop response.write "

" & dsf & ">>

" & dsf response.write "" 'response.write WEEKDAYNAME(WEEKDAY(rs("dateentered")),TRUE) & "., " & MONTHNAME(MONTH(rs("dateentered")),TRUE) & ". " & DAY(rs("dateentered")) & ", " & YEAR(rs("dateentered")) & " " response.write "" response.write rs("title") & " " response.write "

" & CRLF SET rs=NOTHING SET conn=NOTHING end sub function MyDateEncode (incoming) ' Takes a date and converts to a proper ODBC style date/time ' EG: INPUT=now() OUTPUT=#31/21/2000# 'response.write "incoming=" & incoming & "
" DIM myyear, mymonth, myday, myhour, myminute, mysecond DIM TempDate myyear = year(incoming) mymonth = month(incoming) myday = day(incoming) myhour = hour(incoming) myminute = minute(incoming) mysecond = second(incoming) ' Pad with zeros if len(mymonth) = 1 then mymonth = "0" & mymonth if len(myday) = 1 then myday = "0" & myday if len(myhour) = 1 then myhour = "0" & myhour if len(myminute) = 1 then myminute = "0" & myminute if len(mysecond) = 1 then mysecond = "0" & mysecond TempDate = "#" Tempdate = TempDate & mymonth & "/" & myday & "/" & myyear & " " Tempdate = Tempdate & " " & myhour & ":" & myminute & ":" & mysecond Tempdate = Tempdate & "#" MyDateEncode = Tempdate end function '//////// set the page title ///////// pagetitle= "Welcome to Rockstar Search" '/////// 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 '///////// set the ticker on or off ////////////// ticker=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= "home" '/////// set the current folder --- not ususally needed //////// currentdir="" '/////// tell the header this is selected page /////// 'selected="home" '//////////////////////////////////////////////////////////// ' SET VARIABLES FOR FLASH ANIMATIONS AND THEIR ALTERNATES '//////////////////////////////////////////////////////////// 'HEADERSWF=FLASHBASE & "headswf_home.swf" HEADERALT=IMAGEBASE & "headimage_home.jpg" SWFWIDTH=765 SWFHEIGHT=140 %>

homeimage.gif border=0>

<% '////////////////////////// '///// insert news /////// '########### Disabled ################### '//////////////////////// 'response.write ""' response.write "" response.write "" 'response.write "" response.write "" response.write "" response.write "" response.write " "&spacer&" " 'showevents(5) '########### Disabled ################### response.write " EPK submissions available on line at" response.write " www.sonicbids.com/rockstars" response.write " " response.write " "&spacer&" " 'response.write "" response.write " " '////////////////////////// '///// insert pic o the week /////// '//////////////////////// response.write "" response.write "" 'response.write "" response.write "" 'response.write "" response.write "" response.write " "&spacer&" " response.write " "&spacer&" " %> sm_cm_logo.jpg border=0>

<%=spacer%>