Capo vazio com Dundas.Upload

[Reinaldo 0]

Bom dia!

 

Estou tentando passar o campo vazio sem dar erro dessa forma.

 

CODE

 

foto=""

 

if objUpload.form("foto") <> "" Then

 

 

foto=objUpload.GetFileName(objUpload.Files(0).Path)

 

end if

 

O que acontece é que grava o contúdo mas não a foto mesmo que não venha em branco o campo foto.

Podem ajudar?

 

grato

[Ted k' 126]

viu se o o nome do campo no FORM está correto!

[Reinaldo 0]

Os campos estão corretos se tiro a verificação funciona tudo normal faz o upload e grava no bd, mas se o campo foto que não é obrigatório vai vazio dá erro:

[Ted k' 126]

tenta englobar com a função CStr()

 

CStr(objUpload.form("foto"))

[Reinaldo 0]

è broder não eta dando certo, é normal o campo file da erro se estiver vazio?

[Ted k' 126]

não, coloque o codigo do form e da ação ai, fiquei com dúvidas agora!!!

[Reinaldo 0]

Esse é o codigo do upload

CODE

<%

 

'GRAVA DADOS DOS CLIENTES DO SITE FAZ UPLOAD

 

On Error Resume Next

 

 

Dim objUpload

 

Set objUpload = server.CreateObject("Dundas.Upload.2")

 

 

GetExtensionName = false

objUpload.UseUniqueNames = False

 

 

objUpload.Save "c:\Inetpub\ssiara\web\imagem"

 

 

 

categoria=objUpload.form("categoria")

nomeCliente = objUpload.form("nomeCliente")

url=objUpload.form("url")

foto=objUpload.GetFileName(objUpload.Files(0).Path)

 

 

sql="INSERT INTO subcategoria(ID_CATEGORIA,SUBCATEGORIA,URL,FOTO) VALUES ('"&categoria&"','"&nomeCliente&"','"&url&"','"&foto&"')"

Set objRs= cnn.execute(sql)

 

 

 

Set objUpload = nothing

 

If Err <> 0 Then

 

Response.Write Err.Description & " " & Err.Number & "<br>"

Response.Write "<font face=Verdana, Arial, Helvetica, sans-serif size=2><b>Houve erro(s) ao carregar o(s) arquivo(s) anexado(s)!<br><a href=java script:history.back(-1)>Voltar</a> </b></font>"

Else

 

response.Write("<script>alert('Caastra Efetudo com Sucesso');</script>")

response.Write("<script>top.location='Cadastra_clientes.asp'</script>")

 

End if

 

%>

[Mariana Alves 0]

Esse é o codigo do upload

<%

'GRAVA DADOS DOS CLIENTES DO SITE FAZ UPLOAD

On Error Resume Next


Dim objUpload

Set objUpload = server.CreateObject("Dundas.Upload.2")


GetExtensionName = false
objUpload.UseUniqueNames = False 


objUpload.Save "c:\Inetpub\ssiara\web\imagem"

	

categoria=objUpload.form("categoria")
nomeCliente = objUpload.form("nomeCliente")
url=objUpload.form("url")
foto=objUpload.GetFileName(objUpload.Files(0).Path)


sql="INSERT INTO subcategoria(ID_CATEGORIA,SUBCATEGORIA,URL,FOTO) VALUES ('"&categoria&"','"&nomeCliente&"','"&url&"','"&foto&"')"
Set objRs= cnn.execute(sql)



Set objUpload = nothing

If Err <> 0 Then

Response.Write Err.Description & " " & Err.Number & "<br>"
Response.Write "<font face=Verdana, Arial, Helvetica, sans-serif size=2><b>Houve erro(s) ao carregar o(s) arquivo(s) anexado(s)!<br><a href=java script:history.back(-1)>Voltar</a> </b></font>"
Else

response.Write("<script>alert('Caastra Efetudo com Sucesso');</script>")
response.Write("<script>top.location='Cadastra_clientes.asp'</script>")

End if

%>

 

Também estou com o mesmo problema!!! Não consigo gravar caso o campo do arquivo venha em branco... Pode nos ajudar Ted k'.

 

Quando mando salvar ocorre o erro:

 

DSUpload.CollFiles.2 error '80070057'

 

Index is out of range.

 

/encaminhamento/beta/admin/salva_materiais.asp, line 19

 

Obrigada

[Ted k' 126]

retire o On Error Resume Next e vamos ver os erros!