<% Dim strLand strLand = request.querystring("Land") 'response.write strLand Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open Session("ADO_CONNECT_STRING_DB") Set RS = Conn.Execute("SELECT * FROM " & Application("TableDb") &" WHERE LAND = '"& strLand &"'") %>

Verdelers: <%response.write strLand%> <% For i = 0 to RS.Fields.Count - 1 %> <%if (Rs(i).name = "NAAM") OR (Rs(i).name = "GEMEENTE") OR (Rs(i).name = "WEBSITE") then%> <%end if%> <% Next %> <% Do While Not RS.EOF %> <% For i = 0 to RS.Fields.Count - 1 %> <%if (Rs(i).name = "NAAM") OR (Rs(i).name = "GEMEENTE") OR (Rs(i).name = "WEBSITE") then%> <%end if%> <% Next %> <% For i = 0 to 3 %> <% Next %> <% strLatestID = RS("ID") RS.MoveNext Loop RS.Close Conn.Close set rs = nothing set Conn = nothing %>   <% if RS(i).name="NAAM" then %>Naam<%end if%> <% if RS(i).name="GEMEENTE" then %>Gemeente<%end if%> <% if RS(i).name="WEBSITE" then %>Website<%end if%> ">Details <%if (RS(i).name="WEBSITE") then %> <%=rtrim(RS(i))%> <%else%> <% Response.write RS(i) %> <%end if %>