Records su una linea!?

[nilats]

salve a tutto il forum.
ho adattato uno script per mostrare a video i records
richiesti dalla query
ma mi vengono fuori tutti su una righa orizontale, ho provato a mettere un semplice BR ma non va...
come mai?qlk mi sa aiutare?
posto:

<%
request.Form("data_ins")

Dim objConn, objRS, strSQL

Set objConn =Server.CreateObject("ADODB.Connection")
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("../mdb-database/archivio.mdb")

strSQL = "SELECT * FROM tabella1 where data_ins = data_ins"

Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strsql, objConn, 1
strrecord_totali = objRS.RecordCount

' imposta il numero di colonne da visualizzare
  strnumero_colonne = 10

' il resto
strresto = (strrecord_totali mod strnumero_colonne)

' i record totali meno il resto divisi per le colonne
strrecord_parziali = ((strrecord_totali - strresto) / strnumero_colonne )

Response.Write "<table border='1' align='center'>"

for n = 1 to strrecord_parziali
  Response.Write "<tr>"

  ' stampa i record nelle colonne
  for m =1 to strnumero_colonne
  
    Response.Write "<td>"&objRS("data")&"</td>" 
    Response.Write "<td>"&objRS("numero")&"</td>" 
	Response.Write "<td>"&objRS("fascicolo")&"</td>"
	Response.Write "<td>"&objRS("sezione")&"</td>"
	Response.Write "<td>"&objRS("categoria")&"</td>"
    Response.Write "<td>"&objRS("serie")&"</td>" 
	Response.Write "<td>"&objRS("classe")&"</td>"
	Response.Write "<td>"&objRS("contenuto")&"</td>"
	Response.Write "<td>"&objRS("note")&"</td>" 
	Response.Write "<td>"&objRS("data_ins")&"</td>"


    objRS.MoveNext
  next

  Response.Write "</tr>"
next

Response.Write "</table>"

' controlla se esiste il resto
if strresto <> "0" then
  Response.Write "<table border='1' align='center'><tr>"

  for f = 1 to strresto
    Response.Write "<td>"&objRS("data")&"</td>"
    Response.Write "<td>"&objRS("numero")&"</td>"
	Response.Write "<td>"&objRS("fascicolo")&"</td>"
	Response.Write "<td>"&objRS("sezione")&"</td>"
	Response.Write "<td>"&objRS("categoria")&"</td>"
    Response.Write "<td>"&objRS("serie")&"</td>" 
	Response.Write "<td>"&objRS("classe")&"</td>" 
	Response.Write "<td>"&objRS("contenuto")&"</td>"
	Response.Write "<td>"&objRS("note")&"</td>" 
	Response.Write "<td>"&objRS("data_ins")&"</td>"
	
	
	objRS.MoveNext
  next

  Response.Write "</tr></table>"
end if

' pulizia
objRS.Close
Set objRS = Nothing

objConn.Close
    Set objConn = Nothing

%>