<%Dim sCurrentPage, sPCMID
sCurrentPage="sitemap"
sPCMID="PCM_SITEMAP"
sPageID="11"
Function HtmlRemover(sHtmlContent)
Dim re, sPlain, matches
Set re = New RegExp
re.IgnoreCase = True
re.Pattern = "<[^<>]*>"
sPlain = sHtmlContent
If Len(sPlain) > 0 Then
Do While re.Test(sPlain)
Set matches = re.Execute(sPlain)
sPlain = re.Replace(sPlain, "")
Loop
End If
HtmlRemover = sPlain
End Function
%>
<%
LeftSearchChar = "=%"
LeftPos = Instr(1, sPageContent, LeftSearchChar, 1)
If LeftPos > 0 Then
RightSearchChar = "%="
RightPos = Instr(1, sPageContent, RightSearchChar, 1)
BeforeCallContent = Left(sPageContent,LeftPos-1)
AfterCallContent = Right(sPageContent,len(sPageContent)-(RightPos+1))
Response.write BeforeCallContent
RSSFeedSub rssfeedurl
Response.write AfterCallContent
Else
Response.write sPageContent
End If
%>
>
<% PaintMenuItems "sitemap", "
- ", "
","",true,""%>