Como fazer isso da maneira certa?

[Michael_c 0]

Salve Galera!!

 

Sei que existe uma maneira melhor de fazer isso, só não consegui ter uma idéia melhor...

 

A lógica é a seguinte, estou fazendo um formulário de upload onde a pessoa vai informar em um passo anterior a quantidade de imagens que vai inserir.

 

Esse número de quantidade irá duplicar os campos no formulário de upload.

 

<%Dim numeronumero = request.form("numero_de_campos")Select Case numeroCase 1 campos = "<tr><td width='100'><label for='datafotos'>Imagem 1:</label></td><td><input name='imagem_1' type='file' id='imagem_1' /></td></tr>"Case 2campos = "<tr><td width='100'><label for='datafotos'>Imagem 1:</label></td><td><input name='imagem_1' type='file' id='imagem_1' /></td></tr>"  & chr(13) & chr(10) campos = campos & "<tr><td width='100'><label for='datafotos'>Imagem 2:</label></td><td><input name='imagem_2' type='file' id='imagem_2' /></td></tr>"Case 3campos = "<tr><td width='100'><label for='datafotos'>Imagem 1:</label></td><td><input name='imagem_1' type='file' id='imagem_1' /></td></tr>" & chr(13) & chr(10) campos = campos & "<tr><td width='100'><label for='datafotos'>Imagem 2:</label></td><td><input name='imagem_2' type='file' id='imagem_2' /></td></tr>" & chr(13) & chr(10) campos = campos & "<tr><td width='100'><label for='datafotos'>Imagem 3:</label></td><td><input name='imagem_3' type='file' id='imagem_3' /></td></tr>" Case 4 campos = "<tr><td width='100'><label for='datafotos'>Imagem 1:</label></td><td><input name='imagem_1' type='file' id='imagem_1' /></td></tr>" & chr(13) & chr(10) campos = campos & "<tr><td width='100'><label for='datafotos'>Imagem 2:</label></td><td><input name='imagem_2' type='file' id='imagem_2' /></td></tr>" & chr(13) & chr(10) campos = campos & "<tr><td width='100'><label for='datafotos'>Imagem 3:</label></td><td><input name='imagem_3' type='file' id='imagem_3' /></td></tr>" & chr(13) & chr(10) campos = campos & "<tr><td width='100'><label for='datafotos'>Imagem 4:</label></td><td><input name='imagem_4' type='file' id='imagem_4' /></td></tr>"Case 5campos = "<tr><td width='100'><label for='datafotos'>Imagem 1:</label></td><td><input name='imagem_1' type='file' id='imagem_1' /></td></tr>" & chr(13) & chr(10) campos = campos & "<tr><td width='100'><label for='datafotos'>Imagem 2:</label></td><td><input name='imagem_2' type='file' id='imagem_2' /></td></tr>" & chr(13) & chr(10) campos = campos & "<tr><td width='100'><label for='datafotos'>Imagem 3:</label></td><td><input name='imagem_3' type='file' id='imagem_3' /></td></tr>" & chr(13) & chr(10) campos = campos & "<tr><td width='100'><label for='datafotos'>Imagem 4:</label></td><td><input name='imagem_4' type='file' id='imagem_4' /></td></tr>" & chr(13) & chr(10) campos = campos & "<tr><td width='100'><label for='datafotos'>Imagem 5:</label></td><td><input name='imagem_5' type='file' id='imagem_5' /></td></tr>"End Select%><form name="form1" action="upload.asp" method="post" enctype="multipart/form-data"><fieldset><legend>Imagens<br /></legend><table width="400" border="0" cellpadding="1" cellspacing="0"><% =campos %> </table></fieldset><br><input type="submit" name="Submit" value="Gerar link e enviar e-mail"/ class="botao"></form>

Assim até funciona só que eu sei que ta errado e não sei como corrigir isso...

 

Alguém tem alguma idéia?

 

Valeu galera e obrigado.

 

Michael C.

[hargon 64]

<%

Dim numero

 

numero = request.form("numero_de_campos")

 

for i = 1 to numero

if len(campos) = 0 then

campos = "<tr><td width='100'><label for='datafotos'>Imagem "&i&":</label></td><td><input name='imagem_"&i&"' type='file' id='imagem_"&i&"' /></td></tr>"

else

campos = campos & "<tr><td width='100'><label for='datafotos'>Imagem "&i&":</label></td><td><input name='imagem_"&i&"' type='file' id='imagem_"&i&"' /></td></tr>"

end if

next

%>

[Michael_c 0]

Putz!!! Show de bola!!Era isso mesmo... Muito obrigado!Michael C.