<% qsID = request.QueryString("ID") set objBack = Server.CreateObject("ADODB.Recordset") set objRec = Server.CreateObject("ADODB.Recordset") set objStep = Server.CreateObject("ADODB.Recordset") set objPrevious = Server.CreateObject("ADODB.Recordset") set objNext = Server.CreateObject("ADODB.Recordset") 'if qsID = "" then ' sql = "SELECT * FROM DESIGN_PROCESS_PHOTOS WHERE STEP = 1;" ' objRec.Open sql, ObjConn ' if NOT objRec.EOF then ' qsID = objRec("DESIGN_PROCESS_PHOTO_ID") ' end if ' objRec.Close 'end if sqlBack = "SELECT * FROM BACKGROUNDS WHERE PAGE_CONTENT = 'facility_tour';" objBack.Open sqlBack, ObjConn if NOT objBack.EOF then showBackground = objBack("BACKGROUND") end if objBack.Close %>

<% servPage = request.ServerVariables("URL") slashPos = instrRev(servPage, "/", -1, 1) servPage = Right(servPage, Len(servPage) - slashPos) if servPage = "design_process.asp" and qsID = "" and showBackground <> "" then response.write " " else response.write " " end if %> <% if qsID <> "" then sqlStep = "SELECT * FROM DESIGN_PROCESS_PHOTOS WHERE DESIGN_PROCESS_PHOTO_ID=" & qsID & ";" objStep.Open sqlStep, ObjConn if NOT objStep.EOF then stepStep = objStep("STEP") stepTitle = objStep("TITLE") stepCaption = objStep("CAPTION") stepPhoto = objStep("PHOTO") stepDesc = objStep("DESC") stepTitle = FixItFromDB(stepTitle, False) stepCaption = FixItFromDB(stepCaption, False) stepDesc = FixItFromDB(stepDesc, False) response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" end if 'if NOT objStep.EOF objStep.Close 'detrmine previous step sqlPrevious = "SELECT * FROM DESIGN_PROCESS_PHOTOS WHERE STEP <= " & stepStep & " AND DESIGN_PROCESS_PHOTO_ID <> " & qsID & " ORDER BY STEP DESC;" objPrevious.Open sqlPrevious, ObjConn if NOT objPrevious.EOF then previousID = objPrevious("DESIGN_PROCESS_PHOTO_ID") end if objPrevious.Close 'determine next step sqlNext = "SELECT * FROM DESIGN_PROCESS_PHOTOS WHERE STEP >= " & stepStep & " AND DESIGN_PROCESS_PHOTO_ID <> " & qsID & " ORDER BY STEP;" objNext.Open sqlNext, ObjConn if NOT objNext.EOF then nextID = objNext("DESIGN_PROCESS_PHOTO_ID") end if objNext.Close response.write "" 'response.write "" ' response.write "" ' response.write "" ' response.write "" buildScroll = "" if previousID <> "" AND nextID <> "" then buildScroll = "<< Previous  |  Next >>" elseif previousID <> "" AND nextID = "" then buildScroll = "<< Previous" elseif previousID = "" AND nextID <> "" then buildScroll = "Next >>" end if response.write "" else sql = "SELECT * FROM ABOUT_US WHERE PAGE_CONTENT = 'design';" objRec.Open sql, ObjConn if NOT objRec.EOF then thisContent = objRec("CONTENT") end if objRec.Close if thisContent <> "" then thisContent = FixItFromDB(thisContent, False) end if response.write "" response.write "" response.write "" end if 'if qsID <> "" %> Design Process   " & stepTitle & "   " & stepDesc & " " response.write "" response.write "" if stepPhoto <> "" then response.write "" else response.write "" end if response.write "" response.write " " & stepCaption & "   " response.write "      << Previous Next >>    " & buildScroll & " " & thisContent & "

<% 'Clean-up ObjConn.Close set objBack = Nothing set objPrevious = Nothing set objNext = Nothing set objStep = Nothing set objRec = Nothing set ObjConn = Nothing %>