kalender script om skrives til række.

hejsa, jeg har dette fantastiske script.

<table>
<%
For y = 1 to 6
  If blnLast <> True Then
    Response.Write "<tr>"
    For x = 1 to 7
      intLoopDay = intLoopDay + 1
      If intLoopDay >= intFirstDay Then
        dtmCurDate = DateAdd("d", intLoopDay-intFirstDay, dtmFirstDate)
        If Month(dtmCurDate) = Month(dtmFirstDate) Then
                    Set rs=conn.Execute("Select * from kalender where dag="&day(dtmCurDate)&" and aar="&year(dtmCurDate)&" and mdr="&month(dtmCurDate))
          If dtmCurDate = dtmToday Then
                        If Not rs.EoF Then
                            Response.Write "<td><a href=?dato="&dtmCurDate&"><strong><font color='#fbfbfb'>" & Day(dtmCurDate) & "</font></strong></a></td>"
                        Else
                            Response.Write "<td><a href=?dato="&dtmCurDate&"><strong>" & Day(dtmCurDate) & "</strong></a></td>"
                        End If
          Else
                        If Not rs.EoF Then
                            Response.Write "<td><a href=?dato="&dtmCurDate&"><strong>" & Day(dtmCurDate) & "</strong></a></td>"
                        Else
                            Response.Write "<td><a href=?dato="&dtmCurDate&"><strong>" & Day(dtmCurDate) & "</strong></a></td>"
                        End If
          End If
          blnLast = False
        Else
          Response.Write "<td align=center>-</td>"
          blnLast = True
        End If
      Else
        Response.Write "<td align=center>-</td>"
        blnLast = True
      End if
    Next
  End If
Next
Response.Write "</td></tr>"
%>
</table>

hvilket jo er perfekt. ulempen er bare at jeg gerne vil have det til at stå i rækker istedet for kolonner

altså
1
2
3

istedet for
1  2  3


hvordan gør jeg det.