Zoek een Bedrijf in

<% Set Con = Server.CreateObject("ADODB.Connection") Con.Open Application("ConnectionString") SQL = "Select * From IA_P order by p_id" Set RS = Server.CreateObject("ADODB.Recordset") Set RS = Con.Execute(sql) Do While Not RS.eof p_id = RS("p_id") p_nl = RS("p_nl") IF p_id = 0 THEN %> Nederland <% ELSE %> <% = p_nl %> <% END IF RS.MoveNext Loop RS.Close con.Close Set con = nothing %>

en sorteer op
plaats naam