[an error occurred while processing this directive] <% 'Session("color")="green" if Session("color")="" then Randomize() intColor = Int(3 * Rnd) Select Case intColor Case 1 Session("color")="green" Case 2 Session("color")="blue" Case else Session("color")="red" End Select end if if request("color")<>"" then Session("color")=request("color") end if function Nav(loc) 'determine which bg image to show, change ID of page Select Case loc Case "Home","Show","Contact" whichpage="two" Case "News","Shows","Past Shows" whichpage="three" Case "Music","Press","Scrapbook" whichpage="one" Case else whichpage="two" End Select %> Big Bad Voodoo Daddy: <%=loc%> .css" rel="stylesheet" type="text/css"> <% Select Case Session("color") Case "green" %> <% Case "blue" %> <% Case "red" %> <% End Select %>
<% end function function footer() %>
.gif" width="12">  .jpg"> .gif" width="12"> 
Home | News | Shows | Music | Scrapbook | Meet the Band | Press | Store | Message Board | Mailing List | Contact Us

© BBVD.com 2006

<% call DBReleaseConnection() end function function Jukebox() %>
.gif" width="173" height="32">
Click here to listen to your favorite Voodoo tunes!
.gif">
<% end function function BBVDTV() %>
.gif" width="144" height="122">   .gif">
For BBVD movies, TV appearances and video's click here!
<% end function function Search() Select Case Session("color") Case "green" bgcolor="#A3C6C2" Case "blue" bgcolor="#34B3D1" Case "red" bgcolor="#9D0C0F" End Select %>
 .gif" border=0 class="imagebutton">   <%=wimpyButton(1,"homepage.mp3",bgcolor,35,"yes")%>
<% end function function StreetTeam_Real() %>
.gif">
<% end function function StreetTeam() %>
.swf"> .swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="268" height="39" wmode="transparent" menu="false">
<% end function function prepostvars(str,pre,post) if str<>"" then prepostvars = pre & str & post else prepostvars = str end if end function function showGallery(id,tool,ispublic) if ispublic then maxwidth=475 else maxwidth=475 end if sql = "select * from "&CONST_DBPRE&"_Images where "&tool&"id="&id&" order by intorder" SET rs = Server.CreateObject("ADODB.RecordSet") 'response.write sql 'response.end rs.Open sql, oConn, adOpenKeyset, adLockReadOnly If NOT rs.EOF Then rs.PageSize = 30 ' Number of images per page PageCount = rs.PageCount RowCount = rs.PageSize Total = rs.Recordcount ScrollAction = Request("ScrollAction") If ScrollAction <> "" Then PageNo = ScrollAction if PageNo < 1 Then PageNo = 1 end if Else PageNo = 1 End if rs.AbsolutePage = PageNo End If if not rs.eof then x=0 i=0 fImages="" do while not rs.eof AND RowCount > 0 if i=0 then fImages=fImages&"
" file=rs("filename") fwidth=rs("width") fheight=rs("height") intOrder=rs("intOrder") caption=rs("caption") if fwidth=0 then fwidth=1 if fheight=0 then fheight=1 xwidth = fwidth * CONST_THUMBHEIGHT / fheight x=x+xwidth if cint(x)>maxwidth then fImages=fImages&"
" x=xwidth end if fImages=fImages&"" i=i+1 RowCount = RowCount - 1 rs.movenext loop fImages=fImages&"
"&showImagePublic(file,"tour","TN_")&"" if caption<>"" then 'fImages=fImages&"
"&caption&"
" end if fImages=fImages&"
" end if PageCount = FormatNumber(PageCount,0) PageNo = FormatNumber(PageNo,0) IF PageNo > 1 THEN strBack = "< Back  | " end if if (PageCount - PageNo) > 0 THEN strnext = "Next > " end if fImages = fImages & "
"&strback&strNext&"
" showGallery = fImages end function function showPhotoList(id,tool,ispublic) sql = "select * from "&CONST_DBPRE&"_Images where "&tool&"id="&id&" order by intorder" SET rs = Server.CreateObject("ADODB.RecordSet") 'response.write sql 'response.end rs.Open sql, oConn, adOpenKeyset, adLockReadOnly if not rs.eof then x=0 i=0 fImages="" do while not rs.eof file=rs("filename") fwidth=rs("width") fheight=rs("height") intOrder=rs("intOrder") caption=rs("caption") if fwidth=0 then fwidth=1 if fheight=0 then fheight=1 fImages=fImages&"" i=i+1 rs.movenext loop fImages=fImages&"

"&caption&"

" end if showPhotoList = fImages end function function showImagePublic(file,classname,pre) publicfile = CONST_PHOTOIMGPATH&"images/"&pre&file strImage = "" showImagePublic = strImage end function function showSingleImage(imgid,toolid,tool) sql = "select * from "&CONST_DBPRE&"_Images where id="&imgid set rs = oConn.Execute(sql) fimages="" 'gallerylink="Back to Gallery" if not rs.eof then fImages = fIMages& showFullSize(rs("filename"),0) fImages=fImages&"

"&rs("caption")&"
" intorder=rs("intorder") end if 'show next and previous links 'PREVIOUS sql="select top 1 id from "&CONST_DBPRE&"_Images where "&tool&"ID="&toolid&" AND intOrder<'"&intorder&"' ORDER BY intOrder DESC" set rs = oConn.Execute(sql) if not rs.eof then strBack = "< Previous" else strBack="" end if 'NEXT sql="select top 1 id from "&CONST_DBPRE&"_Images where "&tool&"ID="&toolid&" AND intOrder>'"&intorder&"' ORDER BY intOrder ASC" set rs = oConn.Execute(sql) if not rs.eof then strNext = "Next >" else strNext="" end if if strBack<>"" or strNext<>"" then fImages = strBack&"  "&gallerylink&"  "&strNext & "

"&fImages end if showSingleImage = fImages end function function wimpyButton(id,filename,bgcolor,size,start) %> > <% end function %> <% Select Case straction Case "review" 'title, blurb, eventid, display name = request.form("reviewname") review =request.form("review") review = left(review,1000) eventid=request.form("eventid") call dbinitconnection() sql = "insert into "&CONST_DBPRE&"_Content (sectionid,title,blurb,eventid,display) values (20,'"&cleaner(name)&"', '"&cleaner(review)&"', "&eventid&",1)" oConn.Execute(sql) 'msg = "Thank you. Your review has been have been sent to the band." Case "contact" fromemail=request("email") fromname="BBVD.COM: " & request("name") toemail="info@bbvd.com" toCC="matt@donteverstop.com" subject="Web Site Inquiry" body="Comments Posted:"&vbnewline&vbnewline&fromemail&vbnewline&vbnewline&request("Comments") 'call ASPEmail(fromemail, fromname, toCC, toCC,subject, body) call ASPEmail(fromemail, fromname, toemail, toCC,subject, body) msg ="Thank you. Your comments have been sent to the band." End Select dim prelink dim nextlink dim searchdate dim searchtext dim searchalbums dim searchscrapbook 'loadItem 'loadHomeNews 'loadAllNews 'loadHomeTour 'loadShow 'laodAllShows 'loadHomeAlbums 'loadBanners 'loadSearch dim newstitle() dim newsblurb() dim newsbody() dim newsurl() dim newsdate() dim newsid() dim newscount dim newsimage() dim newsimage2() sub loadItem if instr(lcase(sthispage),"band.asp")>0 then id=1217 else id=request("id") end if sql="select * from "&CONST_DBPRE&"_Content where id='"&id&"' and display=1" set rs=oConn.Execute(sql) if not rs.eof then ReDim Preserve NewsTitle(0) ReDim Preserve NewsBody(0) ReDim Preserve newsDate(0) ReDim Preserve newsUrl(0) ReDim Preserve newsimage(0) ReDim Preserve newsimage2(0) ReDim Preserve newsid(0) NewsTitle(0) = rs("title") NewsBody(0) = rs("body") Newsid(0) = rs("id") newsurl(0) = rs("url") newsimage(0) = getImage(rs("id"),"home","PU_") newsimage2(0) = getImageLink(rs("id"),"home","TN_") newsDate(0) = formatdatetime(rs("dateupdated"),2) end if end sub sub loadHomeNews newscount=0 sql="select top 3 * from "&CONST_DBPRE&"_Content where sectionID=1 and display=1 order by dateupdated desc" set rs=oConn.Execute(sql) if not rs.eof then do while not rs.eof ReDim Preserve NewsTitle(newscount) ReDim Preserve NewsBlurb(newscount) ReDim Preserve newsDate(newscount) ReDim Preserve newsid(newscount) NewsTitle(newscount) = rs("title") NewsBlurb(newscount) = rs("blurb") newsid(newscount) = rs("id") newsDate(newscount) = formatdatetime(rs("dateupdated"),2) newscount = newscount + 1 rs.movenext loop If Err.number <> 0 then response.write Err.description End If end if end sub sub loadAllNews newscount=0 clause="" searchscrapbook="" if instr(lcase(sthispage),"backstage")>0 then sectionid=6 strOrderby = "dateentered desc" else sectionid=1 strOrderby = "dateupdated desc" end if if request("searchdate")<>"" then startdate = cdate(request("searchdate"))+30 enddate = cdate(request("searchdate")) else startdate = date()+1 enddate = date()-10000 end if if request("searchstring")<>"" then searchstring = cleaner(request("searchstring")) searchstring = replace(lcase(searchstring),"select","") clause = " and (BODY LIKE '%"&searchstring&"%' OR title LIKE '%"&searchstring&"%' OR blurb LIKE '%"&searchstring&"%') and dateupdated<='"&startdate&"' and dateupdated>='"&enddate&"'" else clause = " and dateupdated<='"&startdate&"' and dateupdated>='"&enddate&"'" end if sql="select * from "&CONST_DBPRE&"_Content where sectionID="§ionid&Clause&" and display=1 order by dateupdated desc" SET rs = Server.CreateObject("ADODB.RecordSet") rs.Open sql, oConn, adOpenKeyset, adLockReadOnly If NOT rs.EOF Then rs.PageSize = 10 ' Number of rows per page PageCount = rs.PageCount RowCount = rs.PageSize Total = rs.Recordcount p = Request("p") If p <> "" Then PageNo = p if PageNo < 1 Then PageNo = 1 end if Else PageNo = 1 End if rs.AbsolutePage = PageNo End If if not rs.eof then x=0 do while not rs.eof AND RowCount > 0 ReDim Preserve NewsTitle(newscount) ReDim Preserve NewsBlurb(newscount) ReDim Preserve NewsBody(newscount) ReDim Preserve newsDate(newscount) ReDim Preserve newsid(newscount) ReDim Preserve newsimage(newscount) ReDim Preserve newsimage2(newscount) NewsTitle(newscount) = rs("title") NewsBlurb(newscount) = rs("blurb") NewsBlurb(newscount) = Replace(NewsBlurb(newscount), chr(13), "
") NewsBody(newscount) = rs("body") newsid(newscount) = rs("id") newsDate(newscount) = formatdatetime(rs("dateupdated"),2) newsimage(newscount) = getImage(rs("id"),"350","") newsimage2(newscount) = getImage(rs("id"),"music","TN_") newscount = newscount + 1 RowCount = RowCount - 1 searchscrapbook=searchscrapbook & "" rs.movenext loop PageCount = FormatNumber(PageCount,0) PageNo = FormatNumber(PageNo,0) IF PageCount > 1 THEN if PageNo > 1 then PreLink = "‹‹ PREVIOUS" end if if (PageCount - PageNo) > 0 THEN NextLink = "NEXT ››" end if end if end if end sub 'title, startdate, linktext (venue), address = where catid=1 dim tourtitle() dim tourdate() dim tourvenue() dim touraddy() dim scrapbook() dim address() dim country() dim venuelink() dim ticketlink() dim setlist() dim notes() dim tourid() dim tourcount dim tourimage sub loadShow sql="select * from "&CONST_DBPRE&"_Content where id='"&request("id")&"' and display=1 and categoryid=1" set rs=oConn.Execute(sql) if not rs.eof then ReDim Preserve tourtitle(0) ReDim Preserve tourdate(0) ReDim Preserve tourvenue(0) ReDim Preserve touraddy(0) ReDim Preserve tourid(0) ReDim Preserve scrapbook(0) ReDim Preserve address(0) ReDim Preserve country(0) ReDim Preserve venuelink(0) ReDim Preserve ticketlink(0) ReDim Preserve setlist(0) 'ReDim Preserve enddate(0) ReDim Preserve notes(0) 'albumid = scrapbook, address, blurb = country, isproduct= venue link, url = tickets, notes, body = set list, enddate tourid(0) = rs("id") tourtitle(0) = rs("title") tourvenue(0) = rs("linktext") touraddy(0) = rs("city") 'if tourvenue(0)<>"" and touraddy(0)<>"" then 'tourvenue(0) = tourvenue(0) & " - " 'end if tourdate(0) = formatdatetime(rs("startdate"),2) scrapbook(0) = rs("albumid") address(0) = rs("address") country(0) = rs("blurb") venuelink(0) = rs("isproduct") ticketlink(0) = rs("url") setlist(0) = rs("body") setlist(0) = Replace(setlist(0), chr(13), "
") 'enddate(0) = formatdatetime(rs("enddate"),2) notes(0) = rs("notes") notes(0) = Replace(notes(0), chr(13), "
") tourimage = getImage(rs("albumid"),"tour","TN_") end if end sub sub loadHomeTour tourcount=0 sql="select top 5 * from "&CONST_DBPRE&"_Content where startdate>='"&date()&"' and sectionID=2 and display=1 and categoryid=1 order by startdate asc" set rs=oConn.Execute(sql) if not rs.eof then do while not rs.eof ReDim Preserve tourtitle(tourcount) ReDim Preserve tourdate(tourcount) ReDim Preserve tourvenue(tourcount) ReDim Preserve touraddy(tourcount) tourtitle(tourcount) = rs("title") tourvenue(tourcount) = rs("linktext") touraddy(tourcount) = rs("city") tourdate(tourcount) = formatdatetime(rs("startdate"),2) tourcount = tourcount + 1 rs.movenext loop If Err.number <> 0 then response.write Err.description End If end if end sub sub loadAllShows tourcount=0 clause="" if instr(lcase(sthispage),"past")>0 then booPast=1 strOrderBy = " startdate desc" else booPast=0 strOrderBy = " startdate asc" end if if request("searchdate")<>"" then startdate = cdate(request("searchdate")) enddate = cdate(request("searchdate"))+30 elseif booPast=1 then startdate = date()-10000 enddate = date() else startdate = date() enddate = date()+10000 end if if request("searchstring")<>"" then searchstring = cleaner(request("searchstring")) searchstring = replace(lcase(searchstring),"select","") clause = " and (CITY LIKE '%"&searchstring&"%' OR title LIKE '%"&searchstring&"%' OR LINKTEXT LIKE '%"&searchstring&"%') and startdate>='"&startdate&"' and startdate<='"&enddate&"'" else clause = " and startdate>='"&startdate&"' and startdate<='"&enddate&"'" end if sql="select * from "&CONST_DBPRE&"_Content where sectionID=2 and categoryid=1"&Clause&" and display=1 order by"& strOrderBy SET rs = Server.CreateObject("ADODB.RecordSet") rs.Open sql, oConn, adOpenKeyset, adLockReadOnly If NOT rs.EOF Then rs.PageSize = 18 ' Number of rows per page PageCount = rs.PageCount RowCount = rs.PageSize Total = rs.Recordcount p = Request("p") If p <> "" Then PageNo = p if PageNo < 1 Then PageNo = 1 end if Else PageNo = 1 End if rs.AbsolutePage = PageNo End If if not rs.eof then x=0 do while not rs.eof AND RowCount > 0 ReDim Preserve tourtitle(tourcount) ReDim Preserve tourdate(tourcount) ReDim Preserve tourvenue(tourcount) ReDim Preserve touraddy(tourcount) ReDim Preserve tourid(tourcount) ReDim Preserve scrapbook(tourcount) ReDim Preserve address(tourcount) ReDim Preserve country(tourcount) ReDim Preserve venuelink(tourcount) ReDim Preserve ticketlink(tourcount) ReDim Preserve setlist(tourcount) 'ReDim Preserve enddate(tourcount) ReDim Preserve notes(tourcount) 'albumid = scrapbook, address, blurb = country, isproduct= venue link, url = tickets, notes, body = set list, enddate tourid(tourcount) = rs("id") tourtitle(tourcount) = rs("title") tourvenue(tourcount) = rs("linktext") touraddy(tourcount) = rs("city") 'if tourvenue(tourcount)<>"" and touraddy(tourcount)<>"" then 'tourvenue(tourcount) = tourvenue(tourcount) & " - " 'end if tourdate(tourcount) = formatdatetime(rs("startdate"),2) scrapbook(tourcount) = rs("albumid") address(tourcount) = rs("address") country(tourcount) = rs("blurb") venuelink(tourcount) = rs("isproduct") ticketlink(tourcount) = rs("url") 'setlist(tourcount) = rs("body") setlist(tourcount) = Replace(rs("body"), chr(13), "
") 'enddate(tourcount) = formatdatetime(rs("enddate"),2) notes(tourcount) = rs("notes") tourcount = tourcount + 1 RowCount = RowCount - 1 rs.movenext loop PageCount = FormatNumber(PageCount,0) PageNo = FormatNumber(PageNo,0) IF PageCount > 1 THEN if PageNo > 1 then PreLink = "‹‹ PREVIOUS" end if if (PageCount - PageNo) > 0 THEN NextLink = "MORE ››" end if end if end if end sub sub loadReviews newscount=0 sql="select * from "&CONST_DBPRE&"_Content where sectionID=20 and display=1 and eventid='"&request("id")&"' order by dateupdated desc" set rs=oConn.Execute(sql) if not rs.eof then do while not rs.eof ReDim Preserve NewsTitle(newscount) ReDim Preserve NewsBlurb(newscount) ReDim Preserve newsDate(newscount) ReDim Preserve newsid(newscount) NewsTitle(newscount) = rs("title") NewsBlurb(newscount) = rs("blurb") NewsBlurb(newscount) = Replace(NewsBlurb(newscount), chr(13), "
") newsid(newscount) = rs("eventid") newsDate(newscount) = formatdatetime(rs("dateupdated"),2) newscount = newscount + 1 rs.movenext loop If Err.number <> 0 then response.write Err.description End If end if end sub 'title, blurb, url, image dim albumtitle() dim albumblurb() dim albumurl() dim albumid() dim albumimage() dim albumimage2() dim albumlabel() dim albumyear() dim albumbody() dim albumcount sub loadHomealbums albumcount=0 sql="select top 5 * from "&CONST_DBPRE&"_Content where sectionID=3 and display=1 and isfeatured=1 order by dateupdated desc" set rs=oConn.Execute(sql) if not rs.eof then do while not rs.eof ReDim Preserve albumtitle(albumcount) ReDim Preserve albumblurb(albumcount) ReDim Preserve albumurl(albumcount) ReDim Preserve albumid(albumcount) ReDim Preserve albumimage(albumcount) ReDim Preserve albumlabel(albumcount) ReDim Preserve albumyear(albumcount) albumlabel(albumcount) = rs("url") albumyear(albumcount) = rs("eventid") albumtitle(albumcount) = rs("title") albumblurb(albumcount) = rs("blurb") albumurl(albumcount) = rs("linktext") albumid(albumcount) = rs("id") albumimage(albumcount) = getImage(rs("id"),"music","TN_") albumcount = albumcount + 1 rs.movenext loop If Err.number <> 0 then response.write Err.description End If end if end sub sub loadAllalbums albumcount=0 searchalbums="" sql="select * from "&CONST_DBPRE&"_Content where sectionID=3 and display=1 order by eventid desc" set rs=oConn.Execute(sql) if not rs.eof then do while not rs.eof ReDim Preserve albumtitle(albumcount) ReDim Preserve albumblurb(albumcount) ReDim Preserve albumurl(albumcount) ReDim Preserve albumid(albumcount) ReDim Preserve albumimage2(albumcount) ReDim Preserve albumlabel(albumcount) ReDim Preserve albumyear(albumcount) albumlabel(albumcount) = rs("url") albumyear(albumcount) = rs("eventid") albumtitle(albumcount) = rs("title") albumblurb(albumcount) = rs("blurb") albumblurb(albumcount) = Replace(albumblurb(albumcount), chr(13), "
") albumurl(albumcount) = rs("linktext") albumid(albumcount) = rs("id") albumimage2(albumcount) = getImage(rs("id"),"music","PU_") albumcount = albumcount + 1 searchalbums=searchalbums & "" rs.movenext loop If Err.number <> 0 then response.write Err.description End If end if end sub sub loadAlbum sql="select * from "&CONST_DBPRE&"_Content where sectionID=3 and display=1 and id='"&request("id")&"'" set rs=oConn.Execute(sql) if not rs.eof then ReDim Preserve albumtitle(albumcount) ReDim Preserve albumblurb(albumcount) ReDim Preserve albumurl(albumcount) ReDim Preserve albumid(albumcount) ReDim Preserve albumimage(albumcount) ReDim Preserve albumlabel(albumcount) ReDim Preserve albumyear(albumcount) ReDim Preserve albumbody(albumcount) albumtitle(albumcount) = rs("title") albumblurb(albumcount) = rs("blurb") albumblurb(albumcount) = Replace(albumblurb(albumcount), chr(13), "
") albumurl(albumcount) = rs("linktext") albumid(albumcount) = rs("id") albumlabel(albumcount) = rs("url") albumyear(albumcount) = rs("eventid") albumbody(albumcount) = rs("body") albumimage(albumcount) = getImage(rs("id"),"home","PU_") end if end sub sub loadSongs newscount=0 sql="select * from "&CONST_DBPRE&"_Content where sectionID=4 and display=1 and albumid='"&request("id")&"' order by title" set rs=oConn.Execute(sql) if not rs.eof then do while not rs.eof 'linktext=length, notes=lyrics, url=filename ReDim Preserve NewsTitle(newscount) ReDim Preserve NewsBlurb(newscount) ReDim Preserve newsDate(newscount) ReDim Preserve newsbody(newscount) ReDim Preserve newsid(newscount) newsid(newscount) = rs("id") NewsTitle(newscount) = rs("title") NewsBlurb(newscount) = rs("linktext") newsbody(newscount) = rs("notes") newsdate(newscount) = rs("url") newscount = newscount + 1 rs.movenext loop If Err.number <> 0 then response.write Err.description End If end if end sub dim bandname() dim bandid() dim bandimage() dim bandcount sub loadBand bandcount=0 sql="select * from "&CONST_DBPRE&"_Content where sectionID IN (8,9,10,11,12,13,14,15,16,17) and display=1 order by sectionid asc" set rs=oConn.Execute(sql) if not rs.eof then do while not rs.eof ReDim Preserve bandname(bandcount) ReDim Preserve bandid(bandcount) ReDim Preserve bandimage(bandcount) ReDim Preserve newsblurb(bandcount) newsblurb(bandcount) = rs("linktext") bandname(bandcount) = rs("title") bandid(bandcount) = rs("id") bandimage(bandcount) = getImage(rs("id"),"home","TN_") bandcount = bandcount + 1 rs.movenext loop If Err.number <> 0 then response.write Err.description End If end if end sub 'image, url dim bannerimagesmall dim bannerurlsmall sub loadbannerSmall sql="select * from "&CONST_DBPRE&"_Content where sectionID=18 and display=1 and categoryid=5 order by dateupdated desc" SET rs = Server.CreateObject("ADODB.RecordSet") rs.Open sql, oConn, 3, 1 intTotalRecords = rs.RecordCount Randomize() intRandomNumber = Int(intTotalRecords * Rnd) if not rs.eof then rs.Move intRandomNumber bannerUrlSmall = rs("url") bannerImageSmall = getImage(rs("id"),"banner","") If Err.number <> 0 then response.write Err.description End If end if end sub 'image, url dim bannerimagebig dim bannerurlbig sub loadbannerbig sql="select * from "&CONST_DBPRE&"_Content where sectionID=18 and display=1 and categoryid=6 order by dateupdated desc" SET rs = Server.CreateObject("ADODB.RecordSet") rs.Open sql, oConn, 3, 1 intTotalRecords = rs.RecordCount Randomize() intRandomNumber = Int(intTotalRecords * Rnd) if not rs.eof then rs.Move intRandomNumber bannerurlbig = rs("url") bannerimagebig = getImage(rs("id"),"banner","") If Err.number <> 0 then response.write Err.description End If end if end sub function getImage(contentid,width,size) strImages="" sql="select "&CONST_DBPRE&"_images.* from "&CONST_DBPRE&"_images where ContentID="&contentid&" order by intorder asc" set rs = oConn.Execute(sql) if not rs.eof then strImages = strImages & "" else strImages="" end if getImage = strImages end function function getImageLink(contentid,classname,size) strImages="" sql="select "&CONST_DBPRE&"_images.* from "&CONST_DBPRE&"_images where ContentID="&contentid&" order by intorder asc" set rs = oConn.Execute(sql) if not rs.eof then strImages = strImages & "" else strImages="" end if getImageLink = strImages end function sub loadSearch dim options(1000) x=1994 i=1 do while x<2010 for y=1 to 12 val = cdate(y&"/1/"&x) if val"& monthname(y) & " " & year(cdate(val)) &"" i=i+1 end if next x=x+1 loop searchdate = "" searchtext = "" end sub sub loadBrowse searchalbums="" if instr(lcase(sthispage),"scrapbook")>0 then sectionid=6 strOrderby = "dateentered desc" else sectionid=3 strOrderby = "eventid desc" end if sql="select * from "&CONST_DBPRE&"_Content where sectionID="§ionid&" and display=1 order by "&strOrderby set rs=oConn.Execute(sql) if not rs.eof then do while not rs.eof searchalbums=searchalbums & "" rs.movenext loop end if end sub function showSearchResults() searchterm = request("search") if searchterm<>"" then searchterm=cleaner(searchterm) sql = "select title,bbvd_content.id,title,name,bbvd_sections.id as sectionid,categoryid,startdate from bbvd_content inner join bbvd_sections on bbvd_content.sectionid=bbvd_sections.id where display=1 and (title like '%"&searchterm&"%' or blurb like '%"&searchterm&"%' or linktext like '%"&searchterm&"%' or body like '%"&searchterm&"%') order by sectionid asc,dateupdated desc" 'set rs = oConn.Execute(sql) SET rs = Server.CreateObject("ADODB.RecordSet") rs.Open sql, oConn, adOpenKeyset, adLockReadOnly fstr="" if not rs.eof then rs.PageSize = 20 PageCount = rs.PageCount RowCount = rs.PageSize Total = rs.Recordcount ScrollAction = Request("ScrollAction") If ScrollAction <> "" Then PageNo = ScrollAction if PageNo < 1 Then PageNo = 1 end if Else PageNo = 1 End if rs.AbsolutePage = PageNo end if if not rs.eof then i=0 skip=0 olddn="" extra="" do while not rs.eof AND RowCount > 0 Select Case rs("sectionid") Case 1 'news url="newsdetail.asp" extra="" skip=0 Case 2 'events url="showdetail.asp" extra=" - "&formatdatetime(rs("startdate"),2)&"" skip=0 Case 3 'albums url="albumdetail.asp" extra="" skip=0 Case 4 'songs url="albumdetail.asp" extra="" skip=0 Case 6 'scrapbook url="scrapbookdetail.asp" extra="" skip=0 Case 7 'band url="band.asp" extra="" skip=0 Case 8,9,10,11,12,13,14,15,16 url="banddetail.asp" extra="" skip=0 Case else skip=1 extra="" End Select if rs("sectionid")=2 and rs("categoryid")<>1 then skip=1 elseif skip<>1 then skip=0 end if if skip=0 then if olddn<>rs("name") then if i>0 then fstr = fstr & "" end if fstr = fstr & "

"&rs("name")&"