<% Dim PageID PageID = Request.QueryString("PageID") If PageID = "" Then PageID = "1" End If OpenContentDB SQLStr = "SELECT PageID, LinkText FROM tblContent WHERE Active = 'Y' ORDER BY SortNumber" Set rsNav = ContentConn.Execute(SQLStr) SQLStr = "SELECT PageID, LinkText FROM tblContent WHERE Active = 'Y' ORDER BY SortNumber" Set rsFtNav = ContentConn.Execute(SQLStr) SQLStr = "SELECT PageTitle, ImageURL, ImgH, ImgW, ImgAlign, ImgALT, PageText FROM tblContent WHERE PageID = " & PageID Set rsContent = ContentConn.Execute(SQLStr) OpenLinksExDB SQLStr = "SELECT LinkText, LinkURL, LinkImage, ImgH, ImgW FROM tblLinks WHERE Active = 'Y'" Set rsExNav = LinksExConn.Execute(SQLStr) %> International ISO Group - <%=rsContent("PageTitle")%>
<%=rsContent("PageTitle")%>
<%If rsContent("ImageURL") <> "NA" Then%> " width="<%=rsContent("ImgW")%>" height="<%=rsContent("ImgH")%>" align="<%=rsContent("ImgAlign")%>" alt="<%=rsContent("ImgALT")%>"> <%End If%> <%=rsContent("PageText")%>
<% CloseLinksExDB CloseContentDB %>