<%@Language=VBScript%> <%Response.Buffer=True%> <% bgcolor="#e7b78f" lightgray="#e0e0e0" %> Café Wilhelmina te Amsterdam - Muziekquiz - Kennisquiz - Poker <% Id=Request("Id") Set MyConn = Server.CreateObject("ADODB.Connection") MyConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath ("/wilhelmina2007.mdb") If Id<>"" Then SQL = "Select * From stamgasten Where Id= (" & Id & ")" Set RS = MyConn.Execute(SQL) afzender=RS.Fields("naam") End If %>
  
  
 afzender: "" Then%>value="<%=afzender%>" <%End If%>> 
  
<% 'RS.Close MyConn.Close Set RS = Nothing Set MyConn = Nothing %>