<% Session("KlantId")=10 Session.LCID=1043 Set rs = server.CreateObject ("ADODB.Recordset") set Con = server.CreateObject ("ADODB.Connection") Con.ConnectionString = strConnection Con.Open %>

<% StrSql="" StrSql=StrSql & " SELECT EtalgeId, KlantId, Omschrijving, Korteomsch, prijs, shows" StrSql=StrSql & " FROM dbo.TblEtalage" StrSql=StrSql & " WHERE (KlantId = " & Session("KlantId") & ") AND (GeldigTot >= { fn NOW() })" StrSql=StrSql & " ORDER BY shows" 'response.write(strsql) rs.open strSQL, Con While rs.eof=false 'registreer shows StrSql="" StrSql=StrSql & " UPDATE dbo.TblEtalage" StrSql=StrSql & " SET shows = " & rs("shows")+1 StrSql=StrSql & " WHERE (EtalgeId = " & rs("EtalgeId") & ")" ' response.write(strsql) con.execute strsql %>  <% =rs("Omschrijving")%>      <%' meer informatie%> <% =rs("Korteomsch")%> <% if rs("prijs")>0 then response.write("€ " & formatnumber(rs("prijs"),2)) end if%> <% rs.movenext wend %>