Listagem Em Colunas, Método Bem Simples

[Marcos-rj]

intrec=0
col = 2
response.write "<table border=0 cellpadding=0 cellspacing=8 width=750 align=center>"
Do While not RS.EOF
conta = intrec mod col
if conta = 0 Then
response.write "<tr><td width=250>"
else
response.write "<td width=250>"
end if
response.write "<img src=" & RS("foto") & " width=100 height=100><br>" & RS("credito") & " - " & RS("legenda") & "<BR><BR>"
if conta = (col - 1) then
response.Write "</td></tr>"
else
response.write "</td>"
end if
RS.MoveNext
intrec=intrec+1
Loop

[Lukoso]

porque aqui não deu certo????