<% 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 %>