<%@Language = VBScript%> <%Option Explicit%>
<% Dim rs dbConnect Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "SELECT * FROM area",db Do While Not rs.EOF Response.Write "" & rs("namn") & "
" rs.MoveNext Loop rs.Close dbClose %>