<% dim pagetitle, topnav, toplogo, headimage, menu, menuspacer, titlebar, headerswf, headeralt, menualign, footimage, title1, currentdir, selected '///////////////////////////////////// '///////////////////////////////////// '/////////// '/////////// switches for main header '/////////// '///////////////////////////////////// '///////////////////////////////////// '//////// set the page title ///////// pagetitle= "Rockstar Gallery" '/////// 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 VARIABLES FOR FLASH ANIMATIONS AND THEIR ALTERNATES '//////////////////////////////////////////////////////////// 'HEADERSWF=FLASHBASE & "headswf_gallery.swf" HEADERALT=IMAGEBASE & "headimage_gallery.jpg" SWFWIDTH=765 SWFHEIGHT=140 '/////// 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= "gallery" '/////// set the current folder --- not ususally needed //////// currentdir="content/gallery/" '/////// tell the header this is selected page /////// 'selected="gallery" '///////////////////////////////////// '///////////////////////////////////// '/////////// '/////////// switches for mini - header '/////////// '///////////////////////////////////// '///////////////////////////////////// sidebar="sidegallery.jpg" pagehead="titlegallery.gif" sectionhead="headgallery.gif" %> <% DIM MyGallery Set MyGallery = NEW TurboGallery MyGallery.URLToQuickPic = "http://www.rockstarsearch.com/quickpic.asp" ' DAMN IT! BECAUSE THE BACKGROUND OF THIS PARTICULAR WEB SITE IS BLACK, YOU HAVE ' TO SET THE FONTS USED IN THE TURBOGALLERY TO SOMETHING NON-BLACK (which is the default)! MyGallery.GallerySystemTitleColor="#000000" MyGallery.GallerySystemDescriptionColor="#000000" MyGallery.GalleryTitleColor="#000000" MyGallery.GalleryTitleSelectedColor="#999999" MyGallery.GalleryDescriptionColor="#000000" MyGallery.PhotoTitleColor="#000000" MyGallery.PhotoDescriptionColor="#000000" MyGallery.BorderColor="#999999" MyGallery.WriteStyleSheet 'MyGallery.PathCache="D:\projects\www\photocache\" 'MyGallery.URLCache="http://chub.oceanoinc.com/photocache/" ' ///////////////////////////////////////////// ' END SET-UP OF TURBO GALLERY '////////////////////////////////////////////// %> <% DIM MAINWIDTH,spacerwidth,MIDDLEWIDTH,PICWIDTH MAINWIDTH=745 spacerwidth=10 MIDDLEWIDTH=MAINWIDTH-4*spacerwidth PICWIDTH=540 response.write "" & CRLF response.write "" & CRLF & "" response.write "

" & CRLF DIM PresetPhotoID PresetPhotoID=INT(request.querystring("PresetPhotoID")) MyGallery.AddGallerySystem "","","Rockstar Gallery","gallery of Work.",1 InitializeGalleries(2) MyGallery.EndGallerySystem 'MyGallery.AddGallery "","",40,336,"1999","1999","http://nowhere.com",0 'MyGallery.AddPhoto "","","P0000604.jpg",500,500,"Some Pic","Some Description","nowhere.com",0 'MyGallery.EndGallery response.write " " & CRLF MyGallery.WriteGalleryStyle2 MIDDLEWIDTH,PICWIDTH response.write " " & CRLF FUNCTION InitializeGalleries (GalleryID) DIM SQL, pconn, pconn2, prs, prs2 SQL="SELECT * FROM PhotoCategories WHERE ParentCategoryID=" & INT(GalleryID) & " ORDER BY displayorder" SET pconn=SERVER.CREATEOBJECT("ADODB.CONNECTION") pconn.open mydb SET pconn2=SERVER.CREATEOBJECT("ADODB.CONNECTION") pconn2.open mydb SET prs=pconn.execute(SQL) do while not prs.eof MyGallery.AddGallery "","",PICWIDTH,INT(PICWIDTH * 1.2),40,336,prs("title"),prs("description"),"",0 'response.write "Adding: MyGallery.AddGallery """","""",320,200,40,336," & prs("title") & "," & prs("description") & ","""",0 " InitializeGalleries(prs("PhotoCategoryID")) SQL = "SELECT * FROM photos WHERE PhotoCategoryID=" & prs("PhotoCategoryID") & " ORDER BY displayorder" set prs2=pconn2.execute(SQL) do while not prs2.eof if INT(prs2("photoid"))=INT(PresetPhotoID) then MySelected=1 else MySelected=0 MyGallery.AddPhoto prs2("URLBASE"),prs2("pathbase"),prs2("filename"),prs2("width"),prs2("height"),prs2("title"),prs2("description"),"",MySelected 'response.write "MyGallery.AddPhoto " & prs2("URLBASE") & "," & prs2("pathbase") & "," & prs2("filename") & "," & prs2("width") & "," & prs2("height") & "," & prs2("title") & "," & prs2("description") & ","""",0 " prs2.movenext loop MyGallery.EndGallery prs.movenext loop END FUNCTION %>

>