no código de Upload

[criacaoi7 0]

Oi pessoal, bom dia.

 

É o seguinte, tenho um formulário com um campo que faz o envio de uma imagem, foto, para os ervidor. Eu estou tentando adptar o mesmo código para enviar 10 fotos de uma só vez, sendo assim... eu inseri mais campos no formulário de upload e estou com uma dúvida na página que envia os dados para o DB e faz o upload.

 

Eu tenho este código agora,

 

BuildUploadRequest RequestBin

contentType = UploadRequest.Item("arqCapa").Item("ContentType")
filepathname = UploadRequest.Item("arqCapa").Item("FileName")
sArqCapa = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("arqCapa").Item("Value")
sExt = Right(sArqCapa,4)
nFesta = UploadRequest.Item("cmbFesta").Item("Value")
sSobreFoto = UploadRequest.Item("txtSobre").Item("Value")


sMsg = ""

'*** Erro de arquivo
If Trim(LCase(sArqCapa)) = "" Then
	sMsg = sMsg & "Erro, o campo <b>arquivo</b> tem que ser preenchido!" & "<br>"
ElseIf InStr(LCase(sArqCapa),"'") <> 0 Then
	sMsg = sMsg & "Erro, o campo <b>arquivo</b> está inválido!" & "<br>"
End If

ArqCapa é o nome do campo no formulário anterior aonde eu localizo a foto para o envio,

se eu tenho mais 9 campos, como eu reprogramo o código acima, seria desta forma:

 

BuildUploadRequest RequestBin

contentType = UploadRequest.Item("arqCapa";"arqCapa2";"arqCapa3";"arqCapa4";"arqCapa5").Item("ContentType")
filepathname = UploadRequest.Item("arqCapa";"arqCapa2";"arqCapa3";"arqCapa4";"arqCapa5").Item("FileName")
sArqCapa = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("arqCapa";"arqCapa2";"arqCapa3";"arqCapa4";"arqCapa5").Item("Value")
sExt = Right(sArqCapa,4)
nFesta = UploadRequest.Item("cmbFesta").Item("Value")
sSobreFoto = UploadRequest.Item("txtSobre").Item("Value")


sMsg = ""

'*** Erro de arquivo
If Trim(LCase(sArqCapa)) = "" Then
	sMsg = sMsg & "Erro, o campo <b>arquivo</b> tem que ser preenchido!" & "<br>"
ElseIf InStr(LCase(sArqCapa),"'") <> 0 Then
	sMsg = sMsg & "Erro, o campo <b>arquivo</b> está inválido!" & "<br>"
End If

 

Podem me ajudar.

 

Grato.

 

Jr.

[hargon 64]

Não me recordo desse script, mas se ele seguir a idéia dos componentes de Upload, você deve utilizar um FOR para pegar os arquivos a serem enviados para o servidor.