%@ Language=VBScript %> <% set wammes = Server.CreateObject("ADODB.Connection") wammes.Open "DSN=wammes" lichtkrantquery = "select * from config where type = 'Lichtkrant' order by nummer" set lichtkrant=server.createobject("ADODB.Recordset") lichtkrant.Open lichtkrantquery,wammes,cursor_type,lock_type %>