<%Dim sCurrentPage, sPCMID
sCurrentPage="sitemap"
sCurrentPage2="Site Map"
sPCMID="PCM_SITEMAP"%>
<%=sPageContent%>
- <%=smHome%>
- <%=smAboutus%>
- <%=smNews%>
<%
Function HtmlRemover(sHtmlContent)
Dim re, sPlain, matches
Set re = New RegExp
re.IgnoreCase = True
re.Pattern = "<([a-z]+)[^<>]*>(.+)"
sPlain = sHtmlContent
If Len(sPlain) > 0 Then
Do While re.Test(sPlain)
Set matches = re.Execute(sPlain)
sPlain = re.Replace(sPlain, "$2")
Loop
End If
HtmlRemover = sPlain
End Function
Dim rs, sOldCat, sCurrCat, bCloseLevel
sSQL = "SELECT NewsID, Category, Headline FROM News WHERE LangID=" & iDefLangID & " AND (" _
& "(#" & Date & "# BETWEEN PublicationDate AND (PublicationDate + ActiveDays)) " _
& "OR (ActiveDays=0 AND PublicationDate <= #" & Date & "#)) ORDER BY Category, OrderShown"
Set rs = conDB.Execute(sSQL)
If Not IsRSEmpty(rs) Then
With rs
Response.Write "
"
bCloseLevel = False
While Not .EOF
sCurrCat = Trim(UCase(.Fields("Category")))
If sCurrCat <> sOldCat Then
If bCloseLevel Then Response.Write "
"
Response.Write " - " & .Fields("Category") & "
"
sOldCat = sCurrCat
bCloseLevel = True
End If
%>
-
"><%=.Fields("Headline")%>
<%
.MoveNext
Wend
If bCloseLevel Then Response.Write "
"
Response.Write "
"
End With
End If%>
<%=smContactus%>
<%=smServices%>
<%
sSQL = "SELECT Name, Category FROM Services WHERE LangID=" & iDefLangID & " ORDER BY Category, OrderShown"
Set rs = conDB.Execute(sSQL)
If Not IsRSEmpty(rs) Then
With rs
Response.Write ""
bCloseLevel = False
While Not .EOF
sCurrCat = Trim(UCase(.Fields("Category")))
If sCurrCat <> sOldCat Then
If bCloseLevel Then Response.Write "
"
Response.Write "" & .Fields("Category") & ""
sOldCat = sCurrCat
bCloseLevel = True
End If
%>
-
"><%=.Fields("Name")%>
<%
.MoveNext
Wend
If bCloseLevel Then Response.Write "
"
Response.Write ""
End With
End If%>
<%=smOurpeople%>
<%
sSQL = "SELECT RecordID, Name, Department FROM OurPeople WHERE LangID=" & iDefLangID & " ORDER BY Department, OrderShown ASC"
Set rs = conDB.Execute(sSQL)
If Not IsRSEmpty(rs) Then
With rs
Response.Write ""
bCloseLevel = False
While Not .EOF
sCurrCat = Trim(UCase(.Fields("Department")))
If sCurrCat <> sOldCat Then
If bCloseLevel Then Response.Write "
"
Response.Write "" & .Fields("Department") & ""
sOldCat = sCurrCat
bCloseLevel = True
End If
%>
-
"><%=.Fields("Name")%>
<%
.MoveNext
Wend
If bCloseLevel Then Response.Write "
"
Response.Write ""
End With
End If%>
<%=smFAQ%>
<%
Dim i
sSQL = "SELECT ID, Category, Question, Answer FROM FAQ WHERE LangID=" & iDefLangID & " ORDER BY Category, OrderShown"
Set rs = conDB.Execute(sSQL)
If Not IsRSEmpty(rs) Then
With rs
Response.Write ""
i = 1
bCloseLevel = False
While Not .EOF
sCurrCat = Trim(UCase(.Fields("Category")))
If sCurrCat <> sOldCat Then
If bCloseLevel Then Response.Write "
"
Response.Write "" & .Fields("Category") & ""
Response.Write ""
End With
End If%>
<%=smLinks%>
<%
sSQL = "SELECT * FROM Links WHERE LangID=" & iDefLangID & " ORDER BY Category, OrderShown"
Set rs = conDB.Execute(sSQL)
If Not IsRSEmpty(rs) Then
With rs
Response.Write ""
bCloseLevel = False
While Not .EOF
sAlt = .Fields("ShortDesc") & ""
If Len(sAlt) = 0 Then sAlt = sUrl
sURL = .Fields("URL")
sURL = replace(sURL, " ", "")
If sURL<>"" OR sURL<>null then
If LCase(Left(sUrl, 4)) <> "http" Then
sURL = "http://" + sURL
End If
sLink = ""&.Fields("Name")&""
Else
sLink = ""&.Fields("Name")&""
End If
sCurrCat = Trim(UCase(.Fields("Category")))
If sCurrCat <> sOldCat Then
If bCloseLevel Then Response.Write "
"
Response.Write "" & .Fields("Category") & ""
Response.Write ""
End With
End If%>
<%=smIntranet%>