<%
if dokumenteFormatierungCounter=1 then
dokumenteFormatierungCounter=0
else
dokumenteFormatierungCounter=1
end if
%>
<%
rdParentPage="/ger/_print/159_2890.asp"
rdHeadline="Datenblatt"
%>
<%
pageURL="/ger/_print/3516.htm"
IF instr(pageURL,"Action=Preview")=0 AND rdParentPage <> "" THEN
sub GetParent(siteToCheck)
if(siteToCheck <> "")then
Set f=fs.OpenTextFile(Server.MapPath(siteToCheck), 1)
fileString=f.ReadAll
intStartPos=InStr(fileString,"")
strHeadline=Mid(strBisEnde,intHeadlinePos+9,intHeadlineEnde-intHeadlinePos-10)
strAllHeadlines=strAllHeadlines & "|" & strHeadline
call GetParent(strParentPage)
else
intStartPos=InStr(fileString,"")
strHeadline=Left(strBisEnde,intHeadlineEnde-2)
strAllHeadlines=strAllHeadlines & "|" & strHeadline
end if
end if
end if
end sub
Set fs=Server.CreateObject("Scripting.FileSystemObject")
strAllParents="|" & rdParentPage
strAllHeadlines="|" & rdHeadline
call GetParent(rdParentPage)
Response.Write(vbCRLF & "" & vbCRLF)
Set f=Nothing
Set fs=Nothing
END IF
%>
