<%
set objBack = Server.CreateObject("ADODB.Recordset")
set objRec = Server.CreateObject("ADODB.Recordset")
'retrieve Warranty Info
sql = "SELECT * FROM ABOUT_US WHERE PAGE_CONTENT = 'community';"
objRec.Open sql, ObjConn
if NOT objRec.EOF then
thisTitle = objRec("TITLE")
thisPhoto = objRec("PHOTO")
thisContent = objRec("CONTENT")
end if
objRec.Close
if thisTitle <> "" then
thisTitle = FixItFromDB(thisTitle, False)
end if
if thisContent <> "" then
thisContent = FixItFromDB(thisContent, False)
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
%>
JD's Glassworks - Stained and Bevel Leaded Glass Doors,Windows
and Decorative Iron
<% =thisTitle %>
<% =thisContent %>
<%
'Clean-up
ObjConn.Close
set objBack = Nothing
set objRec = Nothing
set ObjConn = Nothing
%>
