<% showType = request.QueryString("type") showID = request.QueryString("sub") set objBack = Server.CreateObject("ADODB.Recordset") set objCat = Server.CreateObject("ADODB.Recordset") set objPhoto = Server.CreateObject("ADODB.Recordset") set objDoc = Server.CreateObject("ADODB.Recordset") set objLink = Server.CreateObject("ADODB.Recordset") sqlBack = "SELECT * FROM BACKGROUNDS WHERE PAGE_CONTENT = 'accessories';" objBack.Open sqlBack, ObjConn if NOT objBack.EOF then showBackground = objBack("BACKGROUND") end if objBack.Close %> JD's Glassworks - Stained and Bevel Leaded Glass Doors,Windows and Decorative Iron
<% servPage = request.ServerVariables("URL") slashPos = instrRev(servPage, "/", -1, 1) servPage = Right(servPage, Len(servPage) - slashPos) if servPage = "products_services.asp" and showType = "" and showBackground <> "" then response.write "


" else response.write "
" end if %> <% if showType <> "" then %> <% else %> <% end if %> " response.write "" response.write "" response.write "" response.write "" response.write "" objLink.MoveNext Wend end if objLink.Close else %> <% end if 'if showType <> "" %>
Products & Services - <% =showType %>Products & Services
 
<% if showType <> "" then if showID <> "" then 'retrieve Content sqlCat = "SELECT * FROM MASTER_ACCESSORIES_SUB_CATEGORIES_QUERY WHERE ACCESSORY = '" & showType & "' AND ACCESSORY_SUB_CAT_ID=" & showID & ";" objCat.Open sqlCat, ObjConn if NOT objCat.EOF then thisAccSubCat = objCat("ACCESSORY_SUB_CATEGORY") thisDesc = objCat("DESC") thisAccSubCat = FixItFromDB(thisAccSubCat, False) thisDesc = FixItFromDB(thisDesc, False) response.write "" response.write "" response.write "" response.write "" end if 'if NOT objCat.EOF 'retrieve Photos sqlPhoto = "SELECT * FROM ACCESSORIES_PHOTOS WHERE ACCESSORY_SUB_CAT_ID=" & showID & " ORDER BY CAPTION;" objPhoto.Open sqlPhoto, ObjConn if NOT objPhoto.EOF then While NOT objPhoto.EOF thisCaption = objPhoto("CAPTION") thisPhoto = objPhoto("PHOTO") thisDesc = objPhoto("DESC") thisCaption = FixItFromDB(thisCaption, False) thisDesc = FixItFromDB(thisDesc, False) response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" objPhoto.MoveNext Wend end if 'if NOT objPhoto.EOF objPhoto.Close else 'retrieve Content sqlCat = "SELECT * FROM ACCESSORIES WHERE ACCESSORY = '" & showType & "';" objCat.Open sqlCat, ObjConn if NOT objCat.EOF then thisDesc = objCat("Content") thisDesc = FixItFromDB(thisDesc, False) response.write "" response.write "" end if 'if NOT objCat.EOF end if 'if showID <> "" 'retrieve Documents sqlDoc = "SELECT * FROM MASTER_ACCESSORIES_DOCUMENTS_QUERY WHERE ACCESSORY = '" & showType & "' ORDER BY TITLE;" objDoc.Open sqlDoc, ObjConn if NOT objDoc.EOF then response.write "" response.write "" response.write "" While NOT objDoc.EOF thisTitle = objDoc("TITLE") thisDoc = objDoc("DOC") thisTitle = FixItFromDB(thisTitle, False) response.write "" objDoc.MoveNext Wend end if objDoc.Close 'retrieve Links sqlLink = "SELECT * FROM MASTER_ACCESSORIES_LINKS_QUERY WHERE ACCESSORY = '" & showType & "' ORDER BY TITLE;" objLink.Open sqlLink, ObjConn if NOT objLink.EOF then response.write "" response.write "" response.write "" While NOT objLink.EOF thisTitle = objLink("TITLE") thisUrl = objLink("URL") thisLogo = objLink("LOGO") thisDesc = objLink("DESC") thisTitle = FixItFromDB(thisTitle, False) thisDesc = FixItFromDB(thisDesc, False) thisLinkCat = FixItFromDB(thisLinkCat, False) builtLeftCol = "" builtLeftCol = "
" & thisAccSubCat & "
 
" & thisDesc & "
 
" & thisCaption & "
 
" response.write "" response.write "" if thisPhoto <> "" then response.write "" else response.write "" end if response.write "" response.write "
 
" response.write "

" & thisDesc & "

" response.write "

 
" & thisDesc & "
 
Documents
 
" & thisTitle & "
Links
 
" if thisTitle <> "" then builtLeftCol = builtLeftCol & "" end if if thisUrl <> "" then builtLeftCol = builtLeftCol & "" end if if thisLogo <> "" then builtLeftCol = builtLeftCol & "" end if builtLeftCol = builtLeftCol & "
" & thisTitle & "
" & thisUrl & "
 
" & "
" response.write "
" & builtLeftCol & " " & thisDesc & "
 
JD's Glassworks is your full-service supplier of Custom Decorative Doors and Windows. We offer complete turnkey entry systems and the professional services to complete the job. Click on the links to the left to learn more about our Accessory Products and Services.

 
   
<% 'clean-up ObjConn.Close set objBack = Nothing set objLink = Nothing set objDoc = Nothing set objPhoto = Nothing set objCat = Nothing set ObjConn = Nothing %>