<% Call main() Sub main() Set rs=conn.Execute("Select * From myinfo order by id asc") %>
<%For i=1 To 4 %> <% rs.MoveNext Next %>
<%=rs("propertystr")%>: <%=rs("value")%>
<%For i=1 To 4 %> <% rs.MoveNext Next %>
<%=rs("propertystr")%>: <%=rs("value")%>
<%For i=1 To 6 %> <% rs.MoveNext Next rs.close Set rs=nothing %>
<%=rs("propertystr")%>: <%=rs("value")%>
<%End sub%>