Skrive indhold i to kolloner fra record set

Hej
Jeg har et recordset som skal skrives ud i en tabel, som skrives dynamisk.
Mit problem er det loop, der skriver de to celler pr. række. Her skriver den den samme værdi hver gang - den går alt ikke videre til næste værdi i celle to.

Den skal skrive således:
|1|2|
|3|4|
men skriver:
|1|1|
|2|2|

Har nogen en ide til en løsning??

koden:

'finder antal rækker
mySQL = "SELECT Count(*) AS intTotal FROM vinliste where indhold_id=312"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open mySQL, Conn
antal = objRS("intTotal")
orgAntal = objRS("intTotal")
objRS.Close
Set objRS = Nothing

Set objConn = Nothing

'hvis ulige antal adder med en
  If antal Mod 2 = 0 Then
    antal=antal
  Else
      antal=antal+1   
  End if
 
Set get_rows = Conn.Execute("Select  id, producent, billede, beskrivelse, pris from vinliste where indhold_id=312")
%>
<table border=1>
<%
'definerer antallet af rækker. Der skal være halvdelen af antallet af produkter da der skal vises to pr. række
raekker = antal*0.5
x_td = 1
x_tr = 0

for i = 1 to raekker
    x_tr = 0
   
    If x_tr < 1 Then
        response.write "<tr>"
                'indsætter data       
                Do until get_rows.EOF
        'skriver de to celler pr. række   
        for l = 0 to 1
            if x_td <= orgAntal then
                Response.write "<td>"&get_rows("id")&"</td>"
                x_td = x_td + 1
            Else
                response.write "<td>tom</td>"
            End if
        next
       
    Response.write "</tr>"
    x_tr=x_tr+1
    get_rows.MoveNext
        Loop
    End if
next%>
</table>
<%Set get_rows = nothing
Conn.Close%>