<% ID = Request.QueryString("ID") %> Detailansicht Mitglieder D' Gamskogler <% 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 Mitglieder WHERE ID = " + ID set rs = db.Execute(strsql) %>
       
" width="200" height="267">  
Vorname <%Response.Write rs("Vorname")%>
Nachname <%Response.Write rs("Nachname")%>
Geboren <%Response.Write rs("Geboren")%>
Sternzeichen <%Response.Write rs("Sternzeichen")%>
E-mail <%Response.Write rs("Email")%>
Spitzname <%Response.Write rs("Spitzname")%>
Haarfarbe <%Response.Write rs("Haarfarbe")%>
Augenfarbe <%Response.Write rs("Augenfarbe")%>
Lieblingsessen <%Response.Write rs("Lieblingsessen")%>
Lieblingsspielzeug <%Response.Write rs("Lieblingsspielzeug")%>
Lieblingsmusik <%Response.Write rs("Lieblingsmusik")%>
Hobby <%Response.Write rs("Hobby")%>
 
<% db.Close set db=Nothing set rs=Nothing %>