no código de Upload
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.
Discussão (1)
Carregando comentários...