Sería algo así (usando un stringbuilder para un mejor performance)
Cita: ...
...
'obtengo mi reader
Dim dr as SqlDataReader = myCommand.ExecuteReader()
Dim
sb as New StringBuilder
...
sb.Append("<table width=434 align=center><tr>")
Do while dr.read()
If Ctype(dr("imagen"),String) <> "" Then
...
..
sb.Append("<td colspan=4>")
...
Else
...
sb.Append("<td colspan=4>")
...
End IF
counter=counter+1
If counter MOd 2=0 Then
sb.Append("</tr><tr>"")
End If
Loop
sb.Append("</table>")
Response.write(
sb.ToString())
Espero que sea lo que buscas.
Salu2