Reload side hvert 8 min, og udskrift flyttes 8 min. ned på listen

Har dette udtræk fra DB, hvor der er starttider hvert 8 min.

Kan man ved reload få den til at vise næste start som f.eks er 07.08 og næste efter dette er 07.16 ved reload efter 8 min.

Startid i DB er i dag som tekst.

                      <%
set conn = server.createobject("ADODB.connection")
path = ("xxx/golfdb.mdb")
conn.Open "DBQ="& path &";DefaultDir="& path & ";Driver={Microsoft Access Driver (*.mdb)}"

SQL = "SELECT DISTINCT starttid FROM spiller order by starttid ASC"
set RS = Conn.Execute(SQL)
%>
<table cellSpacing="0" cellPadding="0" width="100%" border="0">
  <tr>
    <td vAlign="top">
      <table cellSpacing="0" cellPadding="0" width="100%" border="0">
        <tbody>
          <tr>
            <td vAlign="top">
              <table cellspacing="0" cellpadding="4" border=0 width="100%">
                <col width="64" span="4" style="width:48pt">
                <col width="232">
                <tr height="17">
                  <td height="17" class="rammetopBold" bgcolor="#8A8A8A" align="right">
                    <p align="center"><b><font color="#FFFFFF" size="4">TID</font></b></p>
                  </td>
                  <td style="width:48pt" bgcolor="#8A8A8A" class="rammetopBold" align="center"><b><font color="#FFFFFF" size="4">HCP</font></b></td>
                  <td style="width:174pt" bgcolor="#8A8A8A" class="rammetopBold"><b><font color="#FFFFFF" size="4">NAVN</font></b></td>
                  <td style="width:174pt" bgcolor="#8A8A8A" class="rammetopBold"><b><font color="#FFFFFF" size="4">Klub</font></b></td>
                </tr>
  <%
bgskift=0
do until rs.eof
bgskift=bgskift + 1

        if bgskift = 2 then
        bgskift = 0
        end if

        if bgskift = 0 then
        color="bgcolor='#E0E0E0'"
        else
          color="bgcolor=''"
        end if
       
strSQL = "Select * From spiller Where starttid = '" & rs("starttid") & "' order by hcp ASC"
  %>
<tr>
<%  Set rs2 = Conn.Execute(strSQL)
  Do While Not rs2.EOF
  %>  <td <%=color%> height="17" class="start" align="center"><font size="4"><%=rs("starttid") %></font></td>
      <td <%=color%> class="start" align="right" width="33"><font size="4"><%=rs2("hcp") %></font></td>
      <td <%=color%> class="start"><font size="4"><%=rs2("navn") %></font></td>
      <td <%=color%> class="start"><font size="4"><%=rs2("klub") %></font></td>
                </tr>
                <%
                rs2.MoveNext
                      Loop
                    rs.MoveNext
                    Loop
                    %>