Upload com Persits.Upload

[Lucas Pereira 0]

eae galera!

to fazendo um upload com o componente Persits.Upload

 

meu form tem 3 campo de file, ai o usuário seleciona as fotos e faz o up normal, só que se derrepente ele não selecionar algum dos campos, ele da erro meu codigo ta assim

 

<!--#Include file="conex.inc"-->
<%
server.ScriptTimeout = 500
dim ok, isbn, conexaodb, f1, f2, f3, teste
set Upload = Server.CreateObject("Persits.Upload")
Upload.CodePage = 65001
Upload.OverwriteFiles = true
Upload.ProgressID = Request.QueryString("PID")
Upload.SetMaxSize 1572864, True '1,5 MEGAS
nr_files = Upload.Save(Server.MapPath(path_var & "images/")) 

Set n1 = Upload.Files("txtArquivo1") '<- aki eu pego o nome do arquivo pra por no bd de cada input file
Set n2 = Upload.Files("txtArquivo2")
Set n3 = Upload.Files("txtArquivo3") 'response.write(nome_arquivo)

if Request.QueryString("id") = "" then
isbn = session("isbn")
else
isbn = Request.QueryString("id")
end if 

strINS = "UPDATE tabela SET campo1 = 'images/"&n1.FileName&"', campo2 = 'images/"&n2.FileName&"', campo3 = 'images/"&n3.FileName&"' WHERE ID ='"&isbn&"';"
call abreconexao
set rsSQL = conexaodb.execute(strINS)
Response.redirect("admin.asp")
%>

 

 

só que se ele nao seleciona um arquivo da esse erro

 

 

Microsoft VBScript runtime error '800a01a8'

 

Object required: 'n2' /locacoes/upload.asp, line 26

 

a linha 26 é a do comando sql pra da um update no bd, ai ele reclama que o 'n2' ta vazio, tem cmo tipo faze ele continuar mesmo sendo vazio?

[Ted k' 126]

tem usa uma função verificando se está vazio:

 

if Upload.Files("txtArquivo2") <> "" then
prossegue..

.

[Mário Monteiro 179]

voce precisa verificar se tem ou nao valor antes do UPDATE e a partir disso monta o mesmo