%
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)
OpenLinksExDB
SQLStr = "SELECT LinkText, LinkURL, LinkImage, ImgH, ImgW FROM tblLinks WHERE Active = 'Y'"
Set rsExNav = LinksExConn.Execute(SQLStr)
OpenContactDB
SQLStr = "SELECT TollFree, Email, WebAddress, USAddress1, USAddress2, USPhone, USFax, UKAddress1, UKAddress2, UKPhone, UKFax FROM tblContact"
Set rsContact = ContactConn.Execute(SQLStr)
%>