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