erro na impressao da um tabela

obrigado desde ja

como faço para imprimir um tabela junto com o while

tentei de varias formas

a minha ultima foi essa

<% rs.Open "Select usuario,nome From Login Where usuario = '"& usuario2 &"'" , conn Response.Write "<b>Usuario:</b>" & rs("usuario") Response.Write "<br><b>Nome:</b>" & rs("nome")	%></td> <td width="294" rowspan="3"><table width="308" height="62" border="0" cellpadding="0" cellspacing="0"> <tr> <% aff2.Open "SELECT usuario FROM login ORDER BY Rnd(Int(Now()*[ID])-Now()*[ID])", conn cont = 0 While Not aff2.EOF cont = cont + 1 if cont = 3 then %> <td width="100"><div align="center"><img src="D:\asp\trabalho\fotos\<% response.Write aff2("usuario")%>" width="84" height="63"></div></td> <% else %> </tr> <tr> <td width="100"><div align="center"><img src="D:\asp\trabalho\fotos\<% response.Write aff2("usuario")%>" width="84" height="63"></div></td> <% aff2.MoveNext wend %>

Gente nao sei o que eu faço da erro no wend

por favor me ajudem

obrigado