<% Sprache = Request.QueryString("Sprache") %> Reiseberichte Gamskogler Ampass <% Dim Titel Dim X_Bericht set db = Server.CreateObject("ADODB.Connection") connect="Driver={Microsoft Access Driver (*.mdb)}; DBQ="& server.mappath("\cgi-bin\Gams.mdb") db.Open connect sql2 = "select * from Reiseberichte order by Jahr" set rs = db.Execute(sql2) if Sprache = "E" then Titel= "Reports on a journey" else Titel= "Reiseberichte" end if %>
<%=Titel%>
 
<% do until rs.eof if Sprache = "E" then X_Bericht = rs("Beschreibung_E") else X_Bericht = rs("Beschreibung") end if %>
<% rs.MoveNext loop db.Close set db=Nothing set rs=Nothing %>

<%=(rs("Jahr"))%>

&Sprache=<%=Sprache%>"> <%=X_Bericht%>