<% Function getFileContents(strIncludeFile) Dim objFSO Dim objText Dim strPage Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objText = objFSO.OpenTextFile(Server.MapPath(strIncludeFile)) getFileContents = objText.ReadAll objText.Close Set objText = Nothing Set objFSO = Nothing End Function Dim name, page, fullName, alignLeft alignLeft1 = 0 alignLeft2 = 0 name = request.querystring("name") page = request.querystring("page") select case name case "brown" alignLeft1 = 1 alignLeft2 = 1 case "cherubini" alignLeft1 = 1 case "cronin" alignLeft2 = 1 case "pruitt" alignLeft1 = 1 alignLeft2 = 1 case "ruilova" alignLeft2 = 1 case "owens" alignLeft2 = 1 case "simms" alignLeft2 = 1 case "wright" alignLeft2 = 1 case "balkin" fullName = "Amy Balkin" case "wright" fullName = "Christie Wright" case "brown" fullName = "Iona Brown" case "chavez" fullName = "Juan Angel Chavez" case "cherubini" fullName = "Nicole Cherubini" case "cronin" fullName = "Patricia Cronin" case "delatorre" fullName = "Einar and Jamex de la Torre" case "diaz" fullName = "Alejandro Diaz" case "hayes" fullName = "Sharon Hayes" case "herzog" fullName = "Elana Herzog" case "hyde" fullName = "Tim Hyde" case "ku" fullName = "Fay Ku" case "mcconnell" fullName = "Walter McConnell" case "meltzerthorne" fullName = "Julia Meltzer and David Thorne" case "milan" fullName = "Wardell Milan" case "millershel" fullName = "Dutes Miller and Stan Shellabarger" case "mutu" fullName = "Wangechi Mutu" case "newkirk" fullName = "Kori Newkirk" case "nipper" fullName = "Kelly Nipper" case "odita" fullName = "Odili Donald Odita" case "oshiro" fullName = "Kaz Oshiro" case "owens" fullName = "Clifford Owens" case "popel" fullName = "William Pope.L" case "pruitt" fullName = "Robert A. Pruitt" case "ruilova" fullName = "Aida Ruilova" case "simms" fullName = "Arthur Simms" case "smith" fullName = "Michael Smith" case "strachan" fullName = "Tavares Strachan" case "vonmertens" fullName = "Anna Von Mertens" case "wiese" fullName = "Allison Wiese" case Else fullName = "" end select if page = "" then page = "image1" end if %> <%= fullName %> <% Response.Write "" Response.Write "" %>