Hur fixar jag detta?

Hej,
Jag har denna kod som funkar bra, men jag vill att bilderna och texten vissas horisontellt, men hur?

<%
' ### arraydim 3 st
arrValda = Array(0,0,0,0) 

' ### koppling
Set objCon = Server.CreateObject("ADODB.Connection") 
objCon.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db/annonser.mdb") & ";"
Set objRs = Server.CreateObject("ADODB.Recordset") 

	' ### tabellinfo samt villkor
	strSQL = "SELECT * FROM mak" 
	objRs.Open strSQL, objCon, 3, 3 
	
	intPoster = objRs.RecordCount 
	
	' Start 2-0 = 3 poster
	For x = 0 To 2

				Do 
				strOk = true 
				Randomize 
				intSlump = int(rnd()*intPoster) 
				For Each value In arrValda 
				
				If value = intSlump Then strOk = false 
				
				Next 

	If strOk Then arrValda(x) = intSlump 
	Loop Until cBool(strOk) 

				objRs.Move intSlump 
	
				If Not objRs.EOF Then 
				Response.Write "<table width='100%' bordercolor='#99FF66' align='center' cellpadding='0' cellspacing='1' border='1'> "
							Response.Write "<tr>"
							if "" & objRs("fileName") = "" Then  
Response.Write "<td><center>" &objRs("item")&"" 
else 
				%>
				<td><center><img src="bilder/<%=objRs("filename")%>"  height="80" border="0">
				<%end if%>

				
				<%
				Response.Write "</tr></td></table></center>"
				End if 
				objRs.MoveFirst 
				Next 

objRs.Close 
Set objRs = Nothing 
objCon.Close 
Set objCon = Nothing 
%>