% Dim strParentPageTitle Dim strPageTitle Dim rawPageTitle Dim strPageImage Dim ShowTitle Dim ShortDescription Dim ShowDescription Dim Sorting Dim LastUpdateDate Dim VisitCount Dim CategoryListingTemplate Dim ShowLastUdate:ShowLastUdate = false 'PID = Replace(Request("PID"),"'","") If Len(PID) = 0 Then Response.Redirect("error.asp?Err=404") strSQL ="SELECT Title, Allias, ShortDescription, ShowDescription, Sorting, ShowTitle, Image02, IsPage, VisitCount, CategoryListingTemplate, ModifiedOn FROM Pages WHERE PageID = '" & PID & "'" Call Con.rsOpen(strSQL) If NOT Con.rs.EOF Then ShowTitle = Con.rs("ShowTitle") rawPageTitle = Coalesce(Con.rs("Allias"),Con.rs("Title")) If ShowTitle = 0 Then strPageTitle = "" Else strPageTitle = Coalesce(Con.rs("Allias"),Con.rs("Title")) End If If Con.rs("ShowDescription") = 1 Then ShortDescription = Con.rs("ShortDescription") & "
" End If Sorting = Con.rs("Sorting") strPageImage = "" If Len(Con.rs("Image02")) > 0 Then strPageImage = "