<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% 'Weiterleitungsziel sURL = serverKl&"/impressum" 'Http-Header setzen und weiterleiten Response.Status = "301 Moved Permanently" Response.AddHeader "Location", sURL 'Diese Zeile wird normal nie ausgeführt: Response.End seite="AG12_17" %> <% Dim rs_reise Dim rs_reise_numRows Set rs_reise = Server.CreateObject("ADODB.Recordset") rs_reise.ActiveConnection = MM_mysql_data_STRING rs_reise.Source = "SELECT * FROM in_reisetext WHERE anzeigen=1 AND seite ='"&seite&"'" rs_reise.CursorType = 0 rs_reise.CursorLocation = 3 rs_reise.LockType = 1 rs_reise.Open() rs_reise_numRows = 0 %> <% katalog="S12" skat="100" '100=Übersicht, 200=Reiseseite scode="" 'Navigationscode kon ser wir mehr 'ueberschrift="Natours 2011" ueberschrift_2=(rs_reise.Fields.Item("t_bezeichnung").Value) headertext=(rs_reise.Fields.Item("ueberschrift").Value) %> <%= titleKon %><%=headertext%>
<%=(rs_reise.Fields.Item("inhalt").Value)%>

 

 
 
 
<% rs_reise.Close() Set rs_reise = Nothing %>