Ny tabellrad efter 4:e fält.

Jag skriver ut data till en tabell som radbryts efter 4:e kolumnen.
Det fungerar nu men jag tycker min kodbit känns ganska klumpig. Kanske nån som har en smidigare lösning? :)

p = 0
	do until rs.eof
	dim val2 : 	val2 = rs("val") : val2 = UCase(Left(val2, 1)) & LCase(Right(val2, Len(val2) -1))
	
	if p =< 4 then
		response.write "<td>"&val2&"</td>"
		p=p+1
	else
		response.write "</tr><tr>"	
		p=0		
	end if
	
	rs.MoveNext
	loop
		response.write "</table>"