%@LANGUAGE="VBSCRIPT" codepage="1252"%> <% Session.Timeout = 60 %>
<% liz= (Request.ServerVariables("PATH_TRANSLATED")) liz = liz UrlAlt1 = "index3.asp" UrlNeu1 = "" liz = Replace(liz, UrlAlt1, UrlNeu1) liz = liz + "lizenz.txt" Set fs=Server.CreateObject("Scripting.FileSystemObject") If (fs.FileExists(liz))=true Then ' Response.Write( liz + "exists.") lizenz = "" Else ' Response.Write(liz + "does not exist.") lizenz = "Nicht lizenzierte Version - " End If set fs=nothing %>"" then %>BGCOLOR="<%=(design.Fields.Item("abschl_l_r_1").Value)%>" <% end if %><% if design.Fields.Item("hinterg_links_a_bild") <> "" then %> background="images/design/<%=(design.Fields.Item("hinterg_links_a_bild").Value)%>" <% end if %>> | <% if design.Fields.Item("abschl_l_r_2") <> "" then %>"" then %>BGCOLOR="<%=(design.Fields.Item("abschl_l_r_2").Value)%>" <% end if %> width="1"> | <% end if %>"" then %>BGCOLOR="<%=(design.Fields.Item("hinterg_inhalt_farbe").Value)%>" <% end if %><% if design.Fields.Item("hinterg_haupt_bild") <> "" then %> background="images/design/<%=(design.Fields.Item("hinterg_haupt_bild").Value)%>"<% end if %> width="<% =790 + stammdaten.Fields.Item("browser").Value %>"> <% if (dienste.Fields.Item("startseite").Value) = true AND Request.QueryString() = "" OR (dienste.Fields.Item("startseite").Value) = true AND Left(Request.QueryString(),5) = "lang=" AND len(Request.QueryString()) <= 8 then %> <% else %> <% end if %> | <% if design.Fields.Item("abschl_l_r_2") <> "" then %>"" then %>BGCOLOR="<%=(design.Fields.Item("abschl_l_r_2").Value)%>" <% end if %> width="1"> | <% end if %>"" then %>BGCOLOR="<%=(design.Fields.Item("abschl_l_r_1").Value)%>" <% end if %><% if design.Fields.Item("hinterg_rechts_a_bild") <> "" then %> background="images/design/<%=(design.Fields.Item("hinterg_rechts_a_bild").Value)%>" <% end if %>> |