Problema com exibição de avatares

[-_KIKO_- 0]

Putz......

preciso aprender mais ASP....ta impossivel de fazer algumas coisas e algumas delas eh:

<%'***************** FileSet fso = CreateObject("Scripting.FileSystemObject")Set folder = fso.GetFolder(Server.Mappath("Avatares"))Set files = folder.FilesFor Each file in Filesnome = file.name	%> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">   <tr>      <td width="25%" align="center"><img border="0" src="avatares<%=nome%>"><br>     <input type="radio" value="V1" checked name="R1"></td>     <td width="25%" align="center"><img border="0" src="avatares<%=nome%>"><br>     <input type="radio" value="V1" checked name="R1"></td>     <td width="25%" align="center"><img border="0" src="avatares<%=nome%>"><br>     <input type="radio" value="V1" checked name="R1"></td>     <td width="25%" align="center"><img border="0" src="avatares<%=nome%>"><br>     <input type="radio" value="V1" checked name="R1"></td><%Next if nome = nome ThenFor Each file in Filesnextend if%>  </tr> </table>

 

esse codigo era pra listar TODAS as imagens da pasta AVATARES...

é...ele até que lista.....

mas pow....naum era pra listar tanto..

 

se é que não me entendem

 

olha o tamaico da pagina e olha só,.....os avatares fizeram nhaca nhaca e nasceram filhinhos.... =P

tem como mostrar sem repetir isso?

[nostrinkes 0]

se a tabela esta em um loop porque voce repete os tds?coloque somente um <td width="25%" align="center"><img border="0" src="avatares\<%=nome%>"><br> <input type="radio" value="V1" checked name="R1"></td>o value é dinamico?

[dimarcinho 0]

exatamente!!!!! coloca soh um cara

 

assim oh:

 

<%'***************** FileSet fso = CreateObject("Scripting.FileSystemObject")Set folder = fso.GetFolder(Server.Mappath("Avatares\"))Set files = folder.FilesFor Each file in Filesnome = file.name %><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">  <tr>    <td width="25%" align="center"><img border="0" src="avatares\<%=nome%>"><br>    <input type="radio" value="V1" checked name="R1"></td><%Next if nome = nome ThenFor Each file in Filesnextend if%> </tr></table>

[-_KIKO_- 0]

se eu colocar somente 1 TD, os avatares vão furar a tela para a direita...eu tentei isso jae outra...eu quero mostrar 4x4...4 na fileira de cima, 4 na de baixo e etc......

[dimarcinho 0]

cara, usa um outro loop dentro da funcaoTipo, pra cada 4 arkivos, tu fecha uma linha e cria outradae, qdo naum houver nenhum arkivo, fecha o looptipoDo While x < file.countcria linhacria colunax = x + 1cria colunax = x + 1cria colunax = x + 1cria colunax = x +1Wendalgo do tipo, o raciocinio eh esse.... to meio sem tempo pra editar o codigofuiz!

[-_KIKO_- 0]

ja tentei isso tbm...mas diferente:

 

veja>

 

 

<%'***************** FileSet fso = CreateObject("Scripting.FileSystemObject")Set folder = fso.GetFolder(Server.Mappath("Avatares\"))Set files = folder.FilesFor Each file in Filesnome1 = file.name nextFor Each file in Filesnome2 = file.namenextFor Each file in Filesnome3 = file.namenextFor Each file in Filesnome4 = file.namenextFor Each file in Files%><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">  <tr>    <td width="25%" align="center"><img border="0" src="avatares\<%=nome1%>"><br>    <input type="radio" value="V1" checked name="R1"></td>    <td width="25%" align="center"><img border="0" src="avatares\<%=nome2%>"><br>    <input type="radio" value="V1" checked name="R1"></td>    <td width="25%" align="center"><img border="0" src="avatares\<%=nome3%>"><br>    <input type="radio" value="V1" checked name="R1"></td>    <td width="25%" align="center"><img border="0" src="avatares\<%=nome4%>"><br>    <input type="radio" value="V1" checked name="R1"></td><%Next if nome = nome ThenFor Each file in Filesnextend if%>

[-_KIKO_- 0]

ninghuem sabe?

 

?

[HiTech-SP 0]

bem mais simpels kra..

usa assim :

 

<%'***************** FileSet fso = CreateObject("Scripting.FileSystemObject")Set folder = fso.GetFolder(Server.Mappath("Avatares\"))Set files = folder.Filesx=0%><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%"><tr><%For Each file in Filesnome = file.name     x = x + 1    if x=4 then    x=0    response.write("</tr><tr>")    end if%>    <td width="25%" align="center"><img border="0" src="avatares\<%=nome%>"><br>    <input type="radio" value="V1" checked name="R1"></td><%Next if nome = nome ThenFor Each file in Filesnextend if%> </tr></table>

 

Até Mais

HiTech-SP