<%@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 %> <%=lizenz%><% if stammdaten.Fields.Item("browsertitel").Value <> "" then %> <%=(stammdaten.Fields.Item("browsertitel").Value)%> <% else %> <%=(stammdaten.Fields.Item("firma").Value)%>, <%=(stammdaten.Fields.Item("strasse").Value)%>, <%=(stammdaten.Fields.Item("plz").Value)%> <%=(stammdaten.Fields.Item("ort").Value)%> <% end if %> <% frl=(stammdaten.Fields.Item("frame").Value)%> ','images/<%=(design.Fields.Item("but_stufe2").Value)%>','images/<%=(design.Fields.Item("but_stufe3").Value)%>')" > <% if design.Fields.Item("abschl_l_r_2") <> "" then %> <% end if %> <% if design.Fields.Item("abschl_l_r_2") <> "" then %> <% end if %>
"" 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 %>>  "" then %>BGCOLOR="<%=(design.Fields.Item("abschl_l_r_2").Value)%>" <% end if %> width="1"> "" 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 %> "" then %>BGCOLOR="<%=(design.Fields.Item("abschl_l_r_2").Value)%>" <% end if %> width="1"> "" 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 %>>