<% Datensatz_ID = Request.QueryString("ID") Sprache = Request.QueryString("Sprache") %> Reiseberichte D' Gamskogler Ampass <% 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 strsql = "SELECT * FROM Reiseberichte WHERE ID = " + Datensatz_ID set rs = db.Execute(strsql) if Sprache = "E" then X_Bericht = rs("Bericht_E") else X_Bericht = rs("Bericht") end if %>
<% end if %> <% end if %> <% end if %>
<%= FormatMessage(response.write(X_Bericht))%>

 

 

<% if not Trim(rs("Bild1"))="" then %> " onclick="NewWindow(this.href,'name','640','480','no');return false"> " >

<% if not Trim(rs("Bild2"))="" then %> " onclick="NewWindow(this.href,'name','640','480','no');return false"> ">

<% if not Trim(rs("Bild3"))="" then %> " onclick="NewWindow(this.href,'name','640','480','no');return false"> ">

<% db.Close set db=Nothing set rs=Nothing %>